[Tclresource-commits] Extras/Tests AttributesCmd.test,1.3,1.4

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

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

Modified Files:
	AttributesCmd.test 
Log Message:
Use temp file in test ResourceAttributes-1-5

Index: AttributesCmd.test
===================================================================
RCS file: /cvsroot/tclresource/Extras/Tests/AttributesCmd.test,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- AttributesCmd.test	7 Sep 2004 05:18:35 -0000	1.3
+++ AttributesCmd.test	7 Sep 2004 05:56:00 -0000	1.4
@@ -61,12 +61,18 @@
 	} -result 0
 	
 	test ResourceAttributes-1-5 {Set resLocked attr for res in RW map} -setup {
-		set rid [resource open $resfileDF w]
+		# Use a temporary file in order not to corrupt resfileDF 
+		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 "Hello1"
 		# resLocked = 16
 		set res [resource attributes $rid -id 128 TEXT 16]
 	} -cleanup {
 		resource close $rid
+		if {[file exists $fname]} {
+			file delete $fname
+		} 
 	} -result ""
 	
 	test ResourceAttributes-1-6 {Set resLocked attr for single resource} -setup {