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

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

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

Modified Files:
	OpenCmd.test 
Log Message:
Test for append permission "a"

Index: OpenCmd.test
===================================================================
RCS file: /cvsroot/tclresource/Extras/Tests/OpenCmd.test,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- OpenCmd.test	6 Sep 2004 13:42:23 -0000	1.2
+++ OpenCmd.test	6 Sep 2004 16:56:23 -0000	1.3
@@ -106,6 +106,19 @@
 		resource close $rid
 	} -match glob -result resource*
 		
+	test ResourceOpen-2-6 {Append permission "a"} -setup {
+	} -body {
+		set rid [resource open $resfileDF a]
+	} -cleanup {
+		resource close $rid
+	} -match glob -result resource*
+		
+	test ResourceOpen-2-7 {Unknown permission} -setup {
+	} -body {
+		set rid [resource open $resfileDF z]
+	} -cleanup {
+	} -returnCodes error -result "couldn't get open mode for z"
+		
 	# Cleanup
 	::tcltest::cleanupTests
 }