Bug 11843: (follow-up) fix unit test in t/db_dependent/Serials.t

Signed-off-by: Galen Charlton <gmc@esilibrary.com>
Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
Signed-off-by: Galen Charlton <gmc@esilibrary.com>

diff --git a/t/db_dependent/Serials.t b/t/db_dependent/Serials.t
index f1f5d9d..ab466e6 100644 (file)
--- 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;