From c0523b1c3b8bd3688445d1b3451e2a514caab33a Mon Sep 17 00:00:00 2001
From: Jason Stephenson <jason@sigio.com>
Date: Sat, 8 Jan 2022 14:02:03 -0500
Subject: [PATCH] Modify Perl live test for aci update chagnes

---
 .../src/perlmods/live_t/lp1883171-copy-inventory.t | 22 ++++++++++++++--------
 1 file changed, 14 insertions(+), 8 deletions(-)

diff --git a/Open-ILS/src/perlmods/live_t/lp1883171-copy-inventory.t b/Open-ILS/src/perlmods/live_t/lp1883171-copy-inventory.t
index 19dbeeb131..3a01714277 100755
--- a/Open-ILS/src/perlmods/live_t/lp1883171-copy-inventory.t
+++ b/Open-ILS/src/perlmods/live_t/lp1883171-copy-inventory.t
@@ -251,8 +251,8 @@ my $resp = $U->simplereq(
     {copy_list=>[$copies->[0]->id()]}
 );
 is(
-    $resp,
-    '1',
+    $resp->[0],
+    1,
     'Update copy inventory succeeded'
 );
 
@@ -322,9 +322,15 @@ $resp = $U->simplereq(
     $authtoken,
     {copy_list=>[$copies->[0]->id()]}
 );
-ok(
-    ref $resp,
-    'Update copy inventory should fail'
+is(
+    $resp->[0],
+    0,
+    'Update copy inventory should have 0 success'
+);
+is(
+    $resp->[1],
+    1,
+    'Update copy inventory should have 1 failure'
 );
 # Make the second one float and it should succeed.
 $fcopy = $copies->[1];
@@ -339,8 +345,8 @@ if ($editor->update_asset_copy($fcopy)) {
         {copy_list=>[$fcopy->id()]}
     );
     is(
-        $resp,
-        '1',
+        $resp->[0],
+        1,
         'Update inventory for floating copy'
     );
 } else {
@@ -348,7 +354,7 @@ if ($editor->update_asset_copy($fcopy)) {
     BAIL_OUT('Set copy floating failed');
 }
 
-# We could run 35 or 36 tests depending on what we find in the
+# We could run 36 or more tests depending on what we find in the
 # database, so we don't specify a number of tests.
 done_testing();
 
-- 
2.11.0