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