Lines 40-46
my $location = 'My Location';
Link Here
|
40 |
|
40 |
|
41 |
subtest 'General Add, Get and Del tests' => sub { |
41 |
subtest 'General Add, Get and Del tests' => sub { |
42 |
|
42 |
|
43 |
plan tests => 14; |
43 |
plan tests => 16; |
44 |
|
44 |
|
45 |
$schema->storage->txn_begin; |
45 |
$schema->storage->txn_begin; |
46 |
|
46 |
|
Lines 58-63
subtest 'General Add, Get and Del tests' => sub {
Link Here
|
58 |
cmp_ok($item_bibnum, '==', $bibnum, "New item is linked to correct biblionumber."); |
58 |
cmp_ok($item_bibnum, '==', $bibnum, "New item is linked to correct biblionumber."); |
59 |
cmp_ok($item_bibitemnum, '==', $bibitemnum, "New item is linked to correct biblioitemnumber."); |
59 |
cmp_ok($item_bibitemnum, '==', $bibitemnum, "New item is linked to correct biblioitemnumber."); |
60 |
|
60 |
|
|
|
61 |
# Get items. |
62 |
my @items_infos = GetItemsInfo( $bibnum, "cn_sort" ); |
63 |
cmp_ok(scalar(@items_infos), '==', 1, "One item for biblionumber."); |
64 |
cmp_ok($items_infos[0]{biblionumber}, '==', $bibnum, "Item has correct biblionumber."); |
65 |
|
61 |
# Get item. |
66 |
# Get item. |
62 |
my $getitem = GetItem($itemnumber); |
67 |
my $getitem = GetItem($itemnumber); |
63 |
cmp_ok($getitem->{'itemnumber'}, '==', $itemnumber, "Retrieved item has correct itemnumber."); |
68 |
cmp_ok($getitem->{'itemnumber'}, '==', $itemnumber, "Retrieved item has correct itemnumber."); |
64 |
- |
|
|