Lines 34-40
my ($branch1, $branch2) = keys %$branches;
Link Here
|
34 |
|
34 |
|
35 |
subtest 'General Add, Get and Del tests' => sub { |
35 |
subtest 'General Add, Get and Del tests' => sub { |
36 |
|
36 |
|
37 |
plan tests => 6; |
37 |
plan tests => 8; |
38 |
|
38 |
|
39 |
# Start transaction |
39 |
# Start transaction |
40 |
$dbh->{AutoCommit} = 0; |
40 |
$dbh->{AutoCommit} = 0; |
Lines 49-54
subtest 'General Add, Get and Del tests' => sub {
Link Here
|
49 |
cmp_ok($item_bibnum, '==', $bibnum, "New item is linked to correct biblionumber."); |
49 |
cmp_ok($item_bibnum, '==', $bibnum, "New item is linked to correct biblionumber."); |
50 |
cmp_ok($item_bibitemnum, '==', $bibitemnum, "New item is linked to correct biblioitemnumber."); |
50 |
cmp_ok($item_bibitemnum, '==', $bibitemnum, "New item is linked to correct biblioitemnumber."); |
51 |
|
51 |
|
|
|
52 |
# Get items. |
53 |
my @items_infos = GetItemsInfo( $bibnum, "cn_sort" ); |
54 |
cmp_ok(scalar(@items_infos), '==', 1, "One item for biblionumber."); |
55 |
cmp_ok($items_infos[0]{biblionumber}, '==', $bibnum, "Item has correct biblionumber."); |
56 |
|
52 |
# Get item. |
57 |
# Get item. |
53 |
my $getitem = GetItem($itemnumber); |
58 |
my $getitem = GetItem($itemnumber); |
54 |
cmp_ok($getitem->{'itemnumber'}, '==', $itemnumber, "Retrieved item has correct itemnumber."); |
59 |
cmp_ok($getitem->{'itemnumber'}, '==', $itemnumber, "Retrieved item has correct itemnumber."); |
55 |
- |
|
|