[Tclresource-commits] Extras/Tests UpdateCmd.test,1.2,1.3

[Bernard D. <bde...@us...>]

Update of /cvsroot/tclresource/Extras/Tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9052

Modified Files:
	UpdateCmd.test 
Log Message:
New test "Update after resChanged bit change"

Index: UpdateCmd.test
===================================================================
RCS file: /cvsroot/tclresource/Extras/Tests/UpdateCmd.test,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- UpdateCmd.test	7 Sep 2004 05:17:28 -0000	1.2
+++ UpdateCmd.test	15 Sep 2004 11:25:28 -0000	1.3
@@ -1,7 +1,7 @@
 # -------------------------------------------------------
 # File: "UpdateCmd.test"
 #                        Created: 2004-09-05 20:16:33
-#              Last modification: 2004-09-07 07:09:08
+#              Last modification: 2004-09-15 13:02:10
 # Author: Bernard Desgraupes
 # e-mail: <bde...@ea...>
 # www: <http://webperso.easyconnect.fr/bdesgraupes/>
@@ -39,10 +39,20 @@
 	} -returnCodes error -match glob \
 	  -result "error * updating resource map"
 		
-# 	test ResourceUpdate-1-3 {} -setup {
-# 	} -body {
-# 	} -cleanup {
-# 	} -result ""
+	test ResourceUpdate-1-3 {Update after resChanged bit change} -setup {
+		set fname [file join [file dir [info script]] Forks TempFork.rsrc]
+		set rid [resource open $fname w+]
+	} -body {
+		resource write -id 128 -file $rid TEXT "Hello Tclresource!"
+		resource attributes $rid -id 128 TEXT 2
+		resource update $rid
+		set res [resource attributes $rid -id 128 TEXT]
+	} -cleanup {
+		resource close $rid
+		if {[file exists $fname]} {
+			file delete $fname
+		} 
+	} -result 0
 		
 	# Cleanup
 	::tcltest::cleanupTests