View | Details | Raw Unified | Return to bug 10336
Collapse All | Expand All

(-)a/t/db_dependent/HoldsQueue.t (-14 / +26 lines)
Lines 6-19 Link Here
6
# MySQL WARNING: This makes sense only if your tables are InnoDB, otherwise
6
# MySQL WARNING: This makes sense only if your tables are InnoDB, otherwise
7
# transactions are not supported and mess is left behind
7
# transactions are not supported and mess is left behind
8
8
9
use strict;
9
use Modern::Perl;
10
use warnings;
10
11
use C4::Context;
11
use C4::Context;
12
12
13
use Data::Dumper;
13
use Data::Dumper;
14
14
15
use Test::More tests => 18;
15
use Test::More tests => 18;
16
16
17
use C4::Branch;
18
use C4::ItemType;
19
use C4::Members;
20
17
BEGIN {
21
BEGIN {
18
    use FindBin;
22
    use FindBin;
19
    use lib $FindBin::Bin;
23
    use lib $FindBin::Bin;
Lines 22-45 BEGIN { Link Here
22
}
26
}
23
27
24
my $TITLE = "Test Holds Queue XXX";
28
my $TITLE = "Test Holds Queue XXX";
25
# Pick a plausible borrower. Easier than creating one.
29
26
my $BORROWER_QRY = <<EOQ;
30
my %data = (
27
select *
31
    cardnumber => 'CARDNUMBER42',
28
from borrowers
32
    firstname =>  'my firstname',
29
where borrowernumber = (select max(borrowernumber) from issues)
33
    surname => 'my surname',
30
EOQ
34
    categorycode => 'S',
31
my $dbh = C4::Context->dbh;
35
    branchcode => 'CPL',
32
my $borrower = $dbh->selectrow_hashref($BORROWER_QRY);
36
);
33
my $borrowernumber = $borrower->{borrowernumber};
37
38
my $borrowernumber = AddMember(%data);
39
my $borrower = GetMember( borrowernumber => $borrowernumber );
34
# Set special (for this test) branches
40
# Set special (for this test) branches
35
my $borrower_branchcode = $borrower->{branchcode};
41
my $borrower_branchcode = $borrower->{branchcode};
36
my @other_branches = grep { $_ ne $borrower_branchcode } @{ $dbh->selectcol_arrayref("SELECT branchcode FROM branches") };
42
my @other_branches = grep { $_ ne $borrower_branchcode } keys GetBranches;
37
my $least_cost_branch_code = pop @other_branches
43
my $least_cost_branch_code = pop @other_branches
38
  or BAIL_OUT("No point testing only one branch...");
44
  or BAIL_OUT("No point testing only one branch...");
39
my $itemtype = $dbh->selectrow_array("SELECT min(itemtype) FROM itemtypes WHERE notforloan = 0")
45
my @item_types = C4::ItemType->all;
46
my $itemtype = grep { $_->{notforloan} == 1 } @item_types
40
  or BAIL_OUT("No adequate itemtype");
47
  or BAIL_OUT("No adequate itemtype");
41
48
42
# Start transaction
49
# Start transaction
50
my $dbh = C4::Context->dbh;
43
$dbh->{AutoCommit} = 0;
51
$dbh->{AutoCommit} = 0;
44
$dbh->{RaiseError} = 1;
52
$dbh->{RaiseError} = 1;
45
53
Lines 144-149 ok( $queue_item Link Here
144
# Cleanup
152
# Cleanup
145
$dbh->rollback;
153
$dbh->rollback;
146
154
155
END {
156
    C4::Members::DelMember( $borrowernumber );
157
};
158
147
exit;
159
exit;
148
160
149
sub test_queue {
161
sub test_queue {
Lines 171-173 sub dump_records { Link Here
171
    my ($tablename) = @_;
183
    my ($tablename) = @_;
172
    return $dbh->selectall_arrayref("SELECT * from $tablename where borrowernumber = ?", { Slice => {} }, $borrowernumber);
184
    return $dbh->selectall_arrayref("SELECT * from $tablename where borrowernumber = ?", { Slice => {} }, $borrowernumber);
173
}
185
}
174
- 
186

Return to bug 10336