From 1baaab50eb6dd25c16272edb6a0e88a9c2eb8d45 Mon Sep 17 00:00:00 2001 From: Srdjan Date: Tue, 1 Apr 2014 18:44:37 +1300 Subject: [PATCH] bug_11213: GetItemsInfo() test --- t/db_dependent/Items.t | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/t/db_dependent/Items.t b/t/db_dependent/Items.t index f9ab049..65576aa 100755 --- a/t/db_dependent/Items.t +++ b/t/db_dependent/Items.t @@ -61,6 +61,11 @@ subtest 'General Add, Get and Del tests' => sub { cmp_ok($item_bibnum, '==', $bibnum, "New item is linked to correct biblionumber."); cmp_ok($item_bibitemnum, '==', $bibitemnum, "New item is linked to correct biblioitemnumber."); + # Get items. + my @items_infos = GetItemsInfo( $bibnum, "cn_sort" ); + cmp_ok(scalar(@items_infos), '==', 1, "One item for biblionumber."); + cmp_ok($items_infos[0]{biblionumber}, '==', $bibnum, "Item has correct biblionumber."); + # Get item. my $getitem = GetItem($itemnumber); cmp_ok($getitem->{'itemnumber'}, '==', $itemnumber, "Retrieved item has correct itemnumber."); -- 2.7.4