Lines 61-66
subtest 'General Add, Get and Del tests' => sub {
Link Here
|
61 |
cmp_ok($item_bibnum, '==', $bibnum, "New item is linked to correct biblionumber."); |
61 |
cmp_ok($item_bibnum, '==', $bibnum, "New item is linked to correct biblionumber."); |
62 |
cmp_ok($item_bibitemnum, '==', $bibitemnum, "New item is linked to correct biblioitemnumber."); |
62 |
cmp_ok($item_bibitemnum, '==', $bibitemnum, "New item is linked to correct biblioitemnumber."); |
63 |
|
63 |
|
|
|
64 |
# Get items. |
65 |
my @items_infos = GetItemsInfo( $bibnum, "cn_sort" ); |
66 |
cmp_ok(scalar(@items_infos), '==', 1, "One item for biblionumber."); |
67 |
cmp_ok($items_infos[0]{biblionumber}, '==', $bibnum, "Item has correct biblionumber."); |
68 |
|
64 |
# Get item. |
69 |
# Get item. |
65 |
my $getitem = GetItem($itemnumber); |
70 |
my $getitem = GetItem($itemnumber); |
66 |
cmp_ok($getitem->{'itemnumber'}, '==', $itemnumber, "Retrieved item has correct itemnumber."); |
71 |
cmp_ok($getitem->{'itemnumber'}, '==', $itemnumber, "Retrieved item has correct itemnumber."); |
67 |
- |
|
|