Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

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

Browse source 
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>
This commit is contained in:
Julian Maurice 2014-05-07 10:40:58 +02:00 committed by Galen Charlton
parent 9b2431e83a
commit 606e902838
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
t/db_dependent/Serials.t
View file

@ -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;