From 505e46bd6d843629fbcb822abd2d6eac6036d6e0 Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Thu, 6 Sep 2018 10:03:46 -0400 Subject: [PATCH] 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 Signed-off-by: Ben Shum --- Open-ILS/src/perlmods/live_t/16-acq-invoicing.t | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) 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 82f9ec0982..81381a9b5f 100644 --- 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( -- 2.43.2