Index: openacs-4/packages/acs-content-repository/tcl/test/content-item-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/test/content-item-test-procs.tcl,v
diff -u -N -r1.2.2.9 -r1.2.2.10
--- openacs-4/packages/acs-content-repository/tcl/test/content-item-test-procs.tcl	13 Jan 2005 23:39:19 -0000	1.2.2.9
+++ openacs-4/packages/acs-content-repository/tcl/test/content-item-test-procs.tcl	9 Feb 2005 16:00:23 -0000	1.2.2.10
@@ -104,8 +104,12 @@
             # delete the evil_name item
             #########################################################
             
-
-            aa_true "evil_name item deleted" [expr [content::item::delete -item_id $evil_item_id] == 0]
+            # in oracle content_item.del is not a fucntion and cannot
+            # return true or false so we have to rely on a query to
+            # see if the item exists or not
+            
+            content::item::delete -item_id $evil_item_id
+            aa_true "evil_name item deleted"
             array unset evil_name
             aa_true "evil_name item no longer exists" [expr \
                 [content::item::get \