diff options
author | vincentdarley <vincentdarley> | 2002-07-18 16:32:39 (GMT) |
---|---|---|
committer | vincentdarley <vincentdarley> | 2002-07-18 16:32:39 (GMT) |
commit | d54f558eda82c5c6ab3459cc35ab7fdcc5c0a0cb (patch) | |
tree | 44361091b58909446a715bf9862980cc177b97d5 /tests/winFCmd.test | |
parent | 4bb72e7bf13c65b6744c9dd1ab7580494cfeaa69 (diff) | |
download | tcl-d54f558eda82c5c6ab3459cc35ab7fdcc5c0a0cb.zip tcl-d54f558eda82c5c6ab3459cc35ab7fdcc5c0a0cb.tar.gz tcl-d54f558eda82c5c6ab3459cc35ab7fdcc5c0a0cb.tar.bz2 |
winFCmd.test cleanup
Diffstat (limited to 'tests/winFCmd.test')
-rw-r--r-- | tests/winFCmd.test | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/tests/winFCmd.test b/tests/winFCmd.test index 7d1ae3b..97296e9 100644 --- a/tests/winFCmd.test +++ b/tests/winFCmd.test @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: winFCmd.test,v 1.17 2002/07/15 09:01:51 vincentdarley Exp $ +# RCS: @(#) $Id: winFCmd.test,v 1.18 2002/07/18 16:32:55 vincentdarley Exp $ # if {[lsearch [namespace children] ::tcltest] == -1} { @@ -202,11 +202,11 @@ test winFCmd-1.12 {TclpRenameFile: errno: EACCES} {pcOnly} { close $fd set msg } {1 EACCES} -test winFCmd-1.13 {TclpRenameFile: errno: EACCES} {win2000orXP} { +test winFCmd-1.13 {TclpRenameFile: errno: EACCES} {pcOnly win2000orXP} { cleanup list [catch {testfile mv nul tf1} msg] $msg } {1 EINVAL} -test winFCmd-1.13.1 {TclpRenameFile: errno: EACCES} {winOlderThan2000} { +test winFCmd-1.13.1 {TclpRenameFile: errno: EACCES} {pcOnly winOlderThan2000} { cleanup list [catch {testfile mv nul tf1} msg] $msg } {1 EACCES} @@ -234,11 +234,11 @@ test winFCmd-1.18 {TclpRenameFile: srcAttr == -1} {pcOnly} { cleanup list [catch {testfile mv tf1 tf2} msg] $msg } {1 ENOENT} -test winFCmd-1.19 {TclpRenameFile: errno == EACCES} {win2000orXP} { +test winFCmd-1.19 {TclpRenameFile: errno == EACCES} {pcOnly win2000orXP} { cleanup list [catch {testfile mv nul tf1} msg] $msg } {1 EINVAL} -test winFCmd-1.19.1 {TclpRenameFile: errno == EACCES} {winOlderThan2000} { +test winFCmd-1.19.1 {TclpRenameFile: errno == EACCES} {pcOnly winOlderThan2000} { cleanup list [catch {testfile mv nul tf1} msg] $msg } {1 EACCES} @@ -383,11 +383,11 @@ test winFCmd-2.7 {TclpCopyFile: errno: EACCES} {95} { close $fd set msg } {1 EACCES} -test winFCmd-2.8 {TclpCopyFile: errno: EACCES} {win2000orXP} { +test winFCmd-2.8 {TclpCopyFile: errno: EACCES} {pcOnly win2000orXP} { cleanup list [catch {testfile cp nul tf1} msg] $msg } {1 EINVAL} -test winFCmd-2.8.1 {TclpCopyFile: errno: EACCES} {nt winOlderThan2000} { +test winFCmd-2.8.1 {TclpCopyFile: errno: EACCES} {pcOnly nt winOlderThan2000} { cleanup list [catch {testfile cp nul tf1} msg] $msg } {1 EACCES} |