Merge branch 'bug_7593' into 3.14-master

This commit is contained in:
Jared Camins-Esakov 2013-05-14 13:46:12 -04:00
commit 1b877167f5

View file

@ -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 ,'GetOrdersByBiblionumber : result is defined' );
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");