Index: openacs-4/packages/assessment/tcl/test/as-item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/test/as-item-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/assessment/tcl/test/as-item-procs.tcl	6 Aug 2006 14:06:24 -0000	1.2
+++ openacs-4/packages/assessment/tcl/test/as-item-procs.tcl	6 Aug 2006 17:27:45 -0000	1.3
@@ -46,6 +46,34 @@
             aa_true "Long question successfully entered" [expr {$content eq $long_text}]
             aa_true "Mime type is text/html" \
                 [expr {$mime_type eq "text/html"}]
-         }
+
+
+	    aa_log "Test item::edit"
+	    set new_item_rev_id \
+		[as::item::edit -as_item_id $as_item_rev_id -title $long_text]
+            aa_true "Item created" [db_0or1row q "select title,mime_type from cr_revisions where revision_id=:new_item_rev_id"]
+            set content [db_string q "select content from cr_revisions where revision_id=:new_item_rev_id"]
+            aa_true "Long title successfully entered" \
+                [expr {[string range $long_text 0 999] eq $title}]
+            aa_true "Long question successfully entered" [expr {$content eq $long_text}]
+	    aa_log "Test item::new_revision"
+	    set new_rev_rev_id [as::item::new_revision -as_item_id $new_item_rev_id]
+            aa_true "Item created" [db_0or1row q "select title,mime_type from cr_revisions where revision_id=:new_rev_rev_id"]
+            set content [db_string q "select content from cr_revisions where revision_id=:new_rev_rev_id"]
+            aa_true "Long title successfully entered" \
+                [expr {[string range $long_text 0 999] eq $title}]
+            aa_true "Long question successfully entered" [expr {$content eq $long_text}]
+
+	    aa_log "Test item::copy"
+	    set copy_rev_id [as::item::copy \
+				-as_item_id $new_item_rev_id \
+				-title $long_text]
+            aa_true "Item created" [db_0or1row q "select title,mime_type from cr_revisions where revision_id=:copy_rev_id"]
+            set content [db_string q "select content from cr_revisions where revision_id=:copy_rev_id"]
+            aa_true "Long title successfully entered" \
+                [expr {[string range $long_text 0 999] eq $title}]
+            aa_true "Long question successfully entered" [expr {$content eq $long_text}]
+	    
+	}
 }
  
\ No newline at end of file