LP#1670407 Add tests for xact_finish close/re-open
authorDan Wells <dbw2@calvin.edu>
Tue, 18 Apr 2017 15:06:03 +0000 (11:06 -0400)
committerDan Wells <dbw2@calvin.edu>
Tue, 18 Apr 2017 15:06:03 +0000 (11:06 -0400)
Since this bug came about due to negative balance changes (and it was
easier), this commit extends the existing negative balances test suite
to include basic tests for checking both xact_finish conditions.

One of these tests fails without the fix from the previous commit.

Signed-off-by: Dan Wells <dbw2@calvin.edu>
Open-ILS/src/perlmods/live_t/09-lp1198465_neg_balances.t

index 3ee0576..0190f28 100644 (file)
@@ -1,6 +1,6 @@
 #!perl
 
 #!perl
 
-use Test::More tests => 127;
+use Test::More tests => 129;
 
 diag("Test features of Conditional Negative Balances code.");
 
 
 diag("Test features of Conditional Negative Balances code.");
 
@@ -531,6 +531,11 @@ is(
     'Remaining balance of 0.00 after payment'
 );
 
     'Remaining balance of 0.00 after payment'
 );
 
+ok(
+    $summary->xact_finish ne '',
+    'xact_finish is set due to 0.00 balance'
+);
+
 ### check-in the lost copy
 
 $item_req = $storage_ses->request('open-ils.storage.direct.asset.copy.retrieve', $item_id);
 ### check-in the lost copy
 
 $item_req = $storage_ses->request('open-ils.storage.direct.asset.copy.retrieve', $item_id);
@@ -576,6 +581,11 @@ is(
     'Patron has a negative balance (credit) of 50.00 due to overpayment'
 );
 
     'Patron has a negative balance (credit) of 50.00 due to overpayment'
 );
 
+ok(
+    !defined($summary->xact_finish),
+    'xact_finish is not set due to non-zero balance'
+);
+
 
 ##############################
 # 14. RERUN of Case 12. Test negative balance settings on fines
 
 ##############################
 # 14. RERUN of Case 12. Test negative balance settings on fines