From faeb1396345fc35302566b999c9c15e372fc36e5 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Mon, 13 May 2013 12:03:40 +0200 Subject: [PATCH] Bug 7593: Fix Unit tests --- t/db_dependent/Acquisition.t | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/t/db_dependent/Acquisition.t b/t/db_dependent/Acquisition.t index db43118..6198dae 100755 --- a/t/db_dependent/Acquisition.t +++ b/t/db_dependent/Acquisition.t @@ -10,7 +10,7 @@ use POSIX qw(strftime); use C4::Bookseller qw( GetBookSellerFromId ); -use Test::More tests => 42; +use Test::More tests => 41; BEGIN { use_ok('C4::Acquisition'); @@ -43,7 +43,7 @@ SKIP: { my $testorder = @$orders[0]; my $testbiblio = $testorder->{'biblionumber'}; my @listorders = GetOrdersByBiblionumber($testbiblio); - isa_ok( ref @listorders, 'ARRAY','GetOrdersByBiblionumber : result is an array' ); + ok( $#listorders > 1,'GetOrdersByBiblionumber : result is not empty' ); ok( scalar (@listorders) >0,'GetOrdersByBiblionumber : result contains at least one element' ); my @matched_biblios = grep {$_->{biblionumber} == $testbiblio} @listorders; ok ( @matched_biblios == @listorders, "all orders match"); -- 1.7.10.4