LP#1766716 Closed dates Perl live test API repair

Update the org unit close date Perl live test to match API changes for
emergecy org unit close dates handling.

Signed-off-by: Bill Erickson <berickxx@gmail.com>

diff --git a/Open-ILS/src/perlmods/live_t/04-overdue_with_closed_dates.t b/Open-ILS/src/perlmods/live_t/04-overdue_with_closed_dates.t
index 739fe26..1672921 100644 (file)
--- a/Open-ILS/src/perlmods/live_t/04-overdue_with_closed_dates.t
+++ b/Open-ILS/src/perlmods/live_t/04-overdue_with_closed_dates.t
@@ -41,10 +41,13 @@ sub create_closed_date {
 sub update_closed_date {
     my $aoucd = shift;
     $aoucd->reason($aoucd->reason . ' modified');
-    return $apputils->simplereq(
+
+    my $cd = $apputils->simplereq(
         'open-ils.actor',
         'open-ils.actor.org_unit.closed.update',
         $script->authtoken, $aoucd);
+
+    return ref $cd eq 'Fieldmapper::actor::org_unit::closed_date';
 }
 
 sub delete_closed_date {