Modify Perl live test for aci update chagnes

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 19dbeeb..3a01714 100755 (executable)
--- 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();