|
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 |
- |
|
|