From 25523663bff85c27189fd4e31aa20f2f48600c27 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Wed, 21 Aug 2013 14:38:34 +0200 Subject: [PATCH] Bug 7677: UT: add unit tests for GetPreviousSerialid --- t/db_dependent/Serials_2.t | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/t/db_dependent/Serials_2.t b/t/db_dependent/Serials_2.t index 72d71d9..0f93472 100644 --- a/t/db_dependent/Serials_2.t +++ b/t/db_dependent/Serials_2.t @@ -1,7 +1,7 @@ #!/usr/bin/perl use Modern::Perl; -use Test::More tests => 4; +use Test::More tests => 8; use MARC::Record; use C4::Biblio qw( AddBiblio ); @@ -69,4 +69,14 @@ my $subscription = GetSubscription( $subscriptionid ); is( C4::Serials::can_edit_subscription($subscription), 1, "User can edit a subscription with an empty branchcode"); #TODO add UT when C4::Auth->set_permissions (or setuserflags) will exist. +# GetPreviousSerialid +my $serialid1 = NewIssue( 1, $subscriptionid, $biblionumber, 2 ); +my $serialid2 = NewIssue( 2, $subscriptionid, $biblionumber, 2 ); +my $serialid3 = NewIssue( 3, $subscriptionid, $biblionumber, 2 ); + +is( GetPreviousSerialid( $subscriptionid ), $serialid2, "get previous serialid without parameter"); +is( GetPreviousSerialid( $subscriptionid, 1 ), $serialid2, "get previous serialid with 1" ); +is( GetPreviousSerialid( $subscriptionid, 2 ), $serialid1, "get previous serialid with 2" ); +is( GetPreviousSerialid( $subscriptionid, 3 ), undef, "get previous serialid with 3, does not exist" ); + $dbh->rollback; -- 1.7.10.4