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
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-content-repository/tcl/test/content-item-test-procs.tcl	10 Jun 2004 01:14:26 -0000	1.1
@@ -0,0 +1,71 @@
+# 
+
+ad_library {
+    
+    Tests for content item
+    
+    @author Dave Bauer (dave@thedesignexperience.org)
+    @creation-date 2004-05-28
+    @cvs-id $Id: content-item-test-procs.tcl,v 1.1 2004/06/10 01:14:26 daveb Exp $
+    
+}
+
+# FIXME DaveB Write some tests!
+
+aa_register_case content_item {
+    content item test
+} {
+
+    aa_run_with_teardown \
+	-rollback \
+	-test_code {
+	    # create a cr_folder
+	    set first_folder_id [db_nextval "acs_object_id_seq"]
+	    set returned_first_folder_id [content::folder::new \
+					      -folder_id $first_folder_id \
+					      -name "test_folder_${first_folder_id}"]
+	    content::folder::register_content_type \
+		-folder_id $first_folder_id \
+		-content_type "content_revision" \
+		
+	    aa_true "Folder created" [expr $first_folder_id == $returned_first_folder_id]
+	    # create another
+	    set second_folder_id [db_nextval  "acs_object_id_seq"]
+	    set returned_second_folder_id [content::folder::new \
+					       -folder_id $second_folder_id \
+					       -name "test_folder_${second_folder_id}"]
+	    aa_true "Folder 2 created" [expr $second_folder_id == $returned_second_folder_id]
+	    # create a cr_item
+	    set first_item_id [db_nextval  "acs_object_id_seq"]
+	    set returned_first_item_id [content::item::new \
+					    -name "test_item_one" \
+					    -item_id $first_item_id \
+ 					    -parent_id $first_folder_id]
+
+	    aa_true "First item created" [expr $first_item_id == $returned_first_item_id]
+	    # copy it
+
+	    # move the copy
+
+	    # delete the copy
+
+	    # rename it
+
+	    # publish it
+
+	    # unpublish it
+
+	    # delete first folder and everything in it to clean up
+	    content::folder::delete \
+		-folder_id $second_folder_id
+
+	    content::folder::delete \
+		-folder_id $first_folder_id \
+		-cascade_p "t"
+		
+		
+	}
+
+}
+
+
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
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-content-repository/tcl/test/content-revision-test-procs.tcl	10 Jun 2004 01:14:26 -0000	1.1
@@ -0,0 +1,60 @@
+# 
+
+ad_library {
+    
+    Procedures to test content::revision tcl API
+    
+    @author Dave Bauer (dave@thedesignexperience.org)
+    @creation-date 2004-06-05
+    @arch-tag: e8817de4-54e8-48f6-99bc-49c0a8d94691
+    @cvs-id $Id: content-revision-test-procs.tcl,v 1.1 2004/06/10 01:14:26 daveb Exp $
+}
+
+
+aa_register_case content_revision {
+    content revision test
+} {
+
+    aa_run_with_teardown \
+	-rollback \
+	-test_code {
+
+	    # create a cr_folder
+	    set first_folder_id [db_nextval "acs_object_id_seq"]
+	    set returned_first_folder_id [content::folder::new \
+					      -folder_id $first_folder_id \
+					      -name "test_folder_${first_folder_id}"]
+	    content::folder::register_content_type \
+		-folder_id $first_folder_id \
+		-content_type "content_revision" \
+		
+	    aa_true "Folder created" [expr $first_folder_id == $returned_first_folder_id]
+
+	    # create a cr_item
+	    set first_item_id [db_nextval  "acs_object_id_seq"]
+	    set returned_first_item_id [content::item::new \
+					    -name "test_item_one" \
+					    -item_id $first_item_id \
+ 					    -parent_id $first_folder_id]
+
+	    aa_true "First item created" [expr $first_item_id == $returned_first_item_id]
+				      
+	    # create a revision
+	    set revision_id [db_nextval "acs_object_id_seq"]
+	    
+	    set returned_revision_id [content::revision::new \
+					  -revision_id $revision_id \
+					  -item_id $first_item_id \
+					  -title "Test Title" \
+					  -description "Test Description" \
+				          -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]
+	    content::item::delete -item_id $first_item_id
+	    content::folder::delete -folder_id $first_folder_id
+	}
+}