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.3 -r1.4
--- openacs-4/packages/acs-content-repository/tcl/test/content-item-test-procs.tcl	15 Feb 2005 17:27:06 -0000	1.3
+++ openacs-4/packages/acs-content-repository/tcl/test/content-item-test-procs.tcl	31 May 2006 13:42:30 -0000	1.4
@@ -208,7 +208,29 @@
             #########################################################
             #TODO
 
+
             #########################################################
+            # new from tmpfile
+            #########################################################            
+            set tmp_item_name [ns_mktemp "__content_item_test_XXXXXX"] 
+            set tmp_item_id [content::item::new \
+                                 -name $tmp_item_name \
+                                 -title $tmp_item_name \
+                                 -parent_id $first_folder_id \
+                                 -tmp_filename [acs_root_dir]/packages/acs-content-repository/tcl/test/test.html]
+
+            aa_true "Tmp_filename added cr_item exists" \
+                [expr {[content::item::get_id \
+                            -item_path $tmp_item_name \
+                            -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 ""}]
+            #########################################################
             # delete first folder and everything in it to clean up
             #########################################################
             content::folder::delete \