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

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

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

Modified Files:
	DeleteCmd.test 
Log Message:
Use temp file in test ResourceDelete-1-8

Index: DeleteCmd.test
===================================================================
RCS file: /cvsroot/tclresource/Extras/Tests/DeleteCmd.test,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- DeleteCmd.test	7 Sep 2004 05:18:06 -0000	1.3
+++ DeleteCmd.test	7 Sep 2004 05:57:13 -0000	1.4
@@ -90,13 +90,12 @@
 	} -cleanup $CLEANUP -returnCodes error -match glob \
 	  -result "resource cannot be deleted: it is protected."
 
-	test ResourceDelete-1-8 {Delete resource in read-only map} -setup {
-		set rid [resource open $resfileDF]
-	} -body {
+	test ResourceDelete-1-8 {Delete resource in read-only map} -setup $SETUP -body {
+		resource write -id 128 -name "Hello1" -file $rid TEXT "Hello1"
+		# Reopen read-only
+		set rid [resource open $fname r]
 		resource delete -id 128 -file $rid TEXT
-	} -cleanup {
-		resource close $rid
-	} -returnCodes error -match glob \
+	} -cleanup $CLEANUP -returnCodes error -match glob \
 	  -result "cannot delete from resource file *, it was opened read only"
 
 	# Cleanup