Bug 13321: Rename variables

[koha.git] / t / db_dependent / Serials / Claims.t

diff --git a/t/db_dependent/Serials/Claims.t b/t/db_dependent/Serials/Claims.t
index 83d585e..80126a2 100644 (file)
--- a/t/db_dependent/Serials/Claims.t
+++ b/t/db_dependent/Serials/Claims.t
@@ -1,7 +1,8 @@
 use Modern::Perl;
-use Test::More tests => 13;
+use Test::More tests => 17;
 
 use C4::Acquisition;
+use C4::Bookseller;
 use C4::Budgets;
 use_ok('C4::Serials');
 
@@ -47,7 +48,7 @@ my $sample_supplier1 = {
     gstreg        => 1,
     listincgst    => 1,
     invoiceincgst => 1,
-    gstrate       => '1.0000',
+    tax_rate       => '1.0000',
     discount      => '1.0000',
     notes         => 'notes1',
     deliverytime  => undef
@@ -67,7 +68,7 @@ my $sample_supplier2 = {
     gstreg        => 1,
     listincgst    => 1,
     invoiceincgst => 1,
-    gstrate       => '2.0000',
+    tax_rate       => '2.0000',
     discount      => '2.0000',
     notes         => 'notes2',
     deliverytime  => 2
@@ -134,6 +135,7 @@ is( exists $late_or_missing_issues[0]->{claimdate}, 1, 'GetLateOrMissingIssues r
 is( exists $late_or_missing_issues[0]->{claims_count}, 1, 'GetLateOrMissingIssues returns claims_count' );
 is( $late_or_missing_issues[0]->{claims_count}, 0, 'The issues should not habe been claimed yet' );
 
+is( updateClaim(), undef, 'updateClaim should return undef if not param passed' );
 my $serialid_to_claim = $late_or_missing_issues[0]->{serialid};
 updateClaim( $serialid_to_claim );
 
@@ -143,6 +145,17 @@ is( scalar(@late_or_missing_issues), 2, 'supplier 2 should have 2 issues in late
 my ( $serial_claimed ) = grep { ($_->{serialid} == $serialid_to_claim) ? $_ : () } @late_or_missing_issues;
 is( $serial_claimed->{claims_count}, 1, 'The serial should have been claimed' );
 
+my @serials_to_claim = map { $_->{serialid} } @late_or_missing_issues;
+updateClaim( \@serials_to_claim );
+@late_or_missing_issues = GetLateOrMissingIssues( $supplier_id2);
+is( scalar(@late_or_missing_issues), 2, 'supplier 2 should have 2 issues in late' );
+
+( $serial_claimed ) = grep { ($_->{serialid} == $serials_to_claim[0]) ? $_ : () } @late_or_missing_issues;
+is( $serial_claimed->{claims_count}, 2, 'The serial should have been claimed' );
+( $serial_claimed ) = grep { ($_->{serialid} == $serials_to_claim[1]) ? $_ : () } @late_or_missing_issues;
+is( $serial_claimed->{claims_count}, 1, 'The serial should have been claimed' );
+
+
 my $today = output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 1 });
 # FIXME: This test should pass. The GetLateOrMissingIssues should not deal with date format!
 #is( $serial_claimed->{claimdate}, $today, 'The serial should have been claimed today' );