LP#1635354 Invoice close date perl live test

Update Perl live test script to inspect invoice close dates instead of
the now-defunct 'complete' field.

Signed-off-by: Bill Erickson <berickxx@gmail.com>
Signed-off-by: Ben Shum <ben@evergreener.net>

diff --git a/Open-ILS/src/perlmods/live_t/16-acq-invoicing.t b/Open-ILS/src/perlmods/live_t/16-acq-invoicing.t
index 82f9ec0..81381a9 100644 (file)
--- a/Open-ILS/src/perlmods/live_t/16-acq-invoicing.t
+++ b/Open-ILS/src/perlmods/live_t/16-acq-invoicing.t
@@ -26,7 +26,6 @@ $invoice->receiver(1);
 $invoice->provider(1);
 $invoice->shipper(1);
 $invoice->inv_ident(rand());
-$invoice->complete('f');
 
 my $entry = Fieldmapper::acq::invoice_entry->new;
 $entry->isnew(1);
@@ -57,7 +56,8 @@ is($inv_debit->encumbrance, 't',
     'Debit is still encumbered after invoice create');
 
 # Close the invoice.  LP#1333254. 
-$invoice->complete('t');
+$invoice->close_date('2018-01-01');
+$invoice->closed_by(1); # admin
 $invoice->ischanged(1);
 
 $req = $acq_ses->request(
@@ -65,7 +65,7 @@ $req = $acq_ses->request(
 
 $invoice = $req->recv->content;
 
-is($invoice->complete, 't', 'Invoice is closed');
+isnt($invoice->close_date, undef, 'Invoice is closed');
 
 $inv_debit = $e->retrieve_acq_fund_debit($inv_debit->id);
 
@@ -73,7 +73,8 @@ is($inv_debit->encumbrance, 'f',
     'Debit is disencumbered after invoice close');
 
 # re-open the invoice
-$invoice->complete('f');
+$invoice->clear_close_date;
+$invoice->clear_closed_by;
 $invoice->ischanged(1);
 
 $req = $acq_ses->request(