Index: openacs-4/packages/acs-content-repository/tcl/test/content-revision-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/test/content-revision-test-procs.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/acs-content-repository/tcl/test/content-revision-test-procs.tcl	13 Feb 2005 02:10:31 -0000	1.3
+++ openacs-4/packages/acs-content-repository/tcl/test/content-revision-test-procs.tcl	14 Feb 2005 18:17:32 -0000	1.4
@@ -32,7 +32,8 @@
             set returned_first_item_id [content::item::new \
                                             -name "test_item_one" \
                                             -item_id $first_item_id \
-                                            -parent_id $first_folder_id]
+                                            -parent_id $first_folder_id \
+	                                    -storage_type "text"]
 
             aa_true "First item created $first_item_id" [expr $first_item_id == $returned_first_item_id]
 
@@ -47,10 +48,13 @@
                                           -content "Test Content"]
             aa_true "Basic Revision created revision_id $revision_id returned_revision_id $returned_revision_id " [expr $revision_id == $returned_revision_id]
 
-            set r [db_string get_r {select revision_id from cr_revisions
-                where item_id=:first_item_id and title='Test Title' and
-                description='Test Description' and content='Test Content'} -default ""]
-            aa_true "Revision contains correct content" [expr $revision_id == $returned_revision_id]
+	::item::get_content -revision_id $returned_revision_id -array revision_content
+	set revision_content(content) [cr_write_content -revision_id $returned_revision_id -string]
+        aa_true "Revision contains correct content" [expr \
+	    [string equal $revision_content(title) "Test Title"] \
+	    && [string equal $revision_content(content) "Test Content"] \
+	    && $revision_id == $revision_content(revision_id)]
+	    
             content::item::delete -item_id $first_item_id
 
             content::folder::unregister_content_type \