From 69cc53d7f8ac841724d273b01c57f3ea91ddd999 Mon Sep 17 00:00:00 2001 From: Julian Maurice Date: Wed, 7 May 2014 10:40:58 +0200 Subject: [PATCH] [PASSED QA] Bug 11843: (follow-up) fix unit test in t/db_dependent/Serials.t Signed-off-by: Galen Charlton Signed-off-by: Kyle M Hall --- t/db_dependent/Serials.t | 8 +++++--- 1 files changed, 5 insertions(+), 3 deletions(-) diff --git a/t/db_dependent/Serials.t b/t/db_dependent/Serials.t index f1f5d9d..ab466e6 100644 --- a/t/db_dependent/Serials.t +++ b/t/db_dependent/Serials.t @@ -234,11 +234,13 @@ is( @others, 6, "GetSerials returns all serials not arrived and not missing if c $subscription = C4::Serials::GetSubscription($subscriptionid); # Retrieve the updated subscription my @serialseqs; -for my $am ( reverse @arrived_missing ) { - if ( grep {/^$am->{status}$/} qw( 4 41 42 43 44 5 ) ) { +for my $am ( @arrived_missing ) { + if ( grep {/^$am->{status}$/} qw( 4 41 42 43 44 ) ) { push @serialseqs, $am->{serialseq} + } elsif ( grep {/^$am->{status}$/} qw( 5 ) ) { + push @serialseqs, 'not issued ' . $am->{serialseq}; } } -is( $subscription->{missinglist}, 'not issued ' . join('; ', @serialseqs), "subscription missinglist is updated after ModSerialStatus" ); +is( $subscription->{missinglist}, join('; ', @serialseqs), "subscription missinglist is updated after ModSerialStatus" ); $dbh->rollback; -- 1.7.2.5