Index: openacs-4/packages/xowiki/www/admin/test.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/admin/Attic/test.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/xowiki/www/admin/test.tcl	29 Jul 2007 17:21:18 -0000	1.9
+++ openacs-4/packages/xowiki/www/admin/test.tcl	3 Sep 2007 21:07:53 -0000	1.10
@@ -365,7 +365,7 @@
 ? {db_string count "select count(*) from cr_items where parent_id=[$package_id folder_id]"} 4 \
     "folder contains: folder object, index and weblog page (+1 includelet)"
 
-test subsection "Create a test page named hello"
+test subsection "Create a test page named hello with package_id $package_id"
 
 set page [::xowiki::Page new \
               -title "Hello World" \
@@ -379,6 +379,7 @@
 $page set_content [string trim [$page text] " \n"]
 $page initialize_loaded_object
 $page save_new
+? {$page set package_id} $package_id "package_id $package_id not modified"
 ? {db_string count "select count(*) from cr_items where parent_id=[$package_id folder_id]"} 5 \
     "folder contains: folder object, index and weblog, hello page (+1 includelet)"
 ? {expr {[$page revision_id]>0}} 1 "revision_id given"