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 -r1.4 -r1.5 --- openacs-4/packages/acs-content-repository/tcl/test/content-item-test-procs.tcl 31 May 2006 13:42:30 -0000 1.4 +++ openacs-4/packages/acs-content-repository/tcl/test/content-item-test-procs.tcl 31 May 2006 14:16:18 -0000 1.5 @@ -66,9 +66,7 @@ aa_true "First item's revision exists" \ [expr \ {![string equal "" \ - [db_string get_revision "select - latest_revision - from cr_items, cr_revisions where latest_revision=revision_id and cr_items.item_id=:first_item_id" -default ""]]}] + [db_string get_revision "select latest_revision from cr_items, cr_revisions where latest_revision=revision_id and cr_items.item_id=:first_item_id" -default ""]]}] # check the folder is not empty now. set is_empty [content::folder::is_empty -folder_id $first_folder_id] @@ -225,8 +223,6 @@ -root_folder_id $first_folder_id] \ eq $tmp_item_id}] - latest_revision from cr_items where - item_id=:tmp_item_id" -default ""]' " aa_true "Tmp_filename added cr_revision exists" \ [expr {[content::item::get_latest_revision \ -item_id $tmp_item_id] ne ""}]