Bug 7677: UT: add unit tests for GetPreviousSerialid

Signed-off-by: Brendan Gallagher <brendan@bywatersolutions.com>
http://bugs.koha-community.org/show_bug.cgi?id=7767

Signed-off-by: Katrin Fischer  <katrin.fischer@bsz-bw.de>
Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>

diff --git a/t/db_dependent/Serials_2.t b/t/db_dependent/Serials_2.t
index a73ef1f..52662b2 100644 (file)
--- a/t/db_dependent/Serials_2.t
+++ b/t/db_dependent/Serials_2.t
@@ -246,6 +246,18 @@ is( C4::Serials::can_show_subscription($subscription_from_another_branch), 1,
 
 $schema->storage->txn_rollback;
 
+# 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;
+
 # C4::Context->userenv
 sub Mock_userenv {
     return $userenv;