From 606e902838f866cdf92c2bb66a4666d8d66c0498 Mon Sep 17 00:00:00 2001
From: Julian Maurice <julian.maurice@biblibre.com>
Date: Wed, 7 May 2014 10:40:58 +0200
Subject: [PATCH] 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>
---
 t/db_dependent/Serials.t | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/t/db_dependent/Serials.t b/t/db_dependent/Serials.t
index f1f5d9d89f..ab466e6c39 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;