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
}
|
