Fix tests for new events code.

diff --git a/Open-ILS/src/perlmods/live_t/zz-lp1779467-mark-item-discard.t b/Open-ILS/src/perlmods/live_t/zz-lp1779467-mark-item-discard.t
index 1dfc1bf..2376cbe 100644 (file)
--- a/Open-ILS/src/perlmods/live_t/zz-lp1779467-mark-item-discard.t
+++ b/Open-ILS/src/perlmods/live_t/zz-lp1779467-mark-item-discard.t
@@ -199,8 +199,10 @@ $result = $U->simplereq(
     $copy->id(),
     {handle_checkin => 0}
 );
-ok(
-    $result == 1,
+# Check that we got the appropriate event: ITEM_TO_MARK_CHECKED_OUT
+is(
+    $result->{textcode},
+    'ITEM_TO_MARK_CHECKED_OUT',
     'Mark second checked out item discard'
 );
 
@@ -213,8 +215,8 @@ $copy = $U->simplereq(
 );
 is(
     $copy->status(),
-    OILS_COPY_STATUS_DISCARD,
-    'Second checked out copy has Discard/Weed status'
+    OILS_COPY_STATUS_CHECKED_OUT,
+    'Second checked out copy has Checked Out status'
 );
 
 # Check that it is still checked out.