diff options
| -rw-r--r-- | ChangeLog | 2 | ||||
| -rw-r--r-- | tests/fCmd.test | 24 |
2 files changed, 14 insertions, 12 deletions
@@ -17,6 +17,8 @@ whether WinTcl on NTFS can coexist peacefully with links in the filesystem. Added new test command 'testfilelink' to enable the newer code to be tested. + * tests/fCmd.test: (made certain tests of 'testfilelink' not + run on unix). 2002-06-12 Miguel Sofer <msofer@users.sourceforge.net> diff --git a/tests/fCmd.test b/tests/fCmd.test index b04262f..a5cb889 100644 --- a/tests/fCmd.test +++ b/tests/fCmd.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: fCmd.test,v 1.12 2002/06/13 09:40:00 vincentdarley Exp $ +# RCS: @(#) $Id: fCmd.test,v 1.13 2002/06/13 13:17:06 vincentdarley Exp $ # if {[lsearch [namespace children] ::tcltest] == -1} { @@ -2201,42 +2201,42 @@ makeDirectory abc2.dir makeFile contents abc.file makeFile contents abc2.file -test fCmd-28.3 {testfilelink} {linkDirectory} { +test fCmd-28.3 {testfilelink} {linkDirectory winOnly} { list [catch {testfilelink abc.dir abc2.dir} msg] $msg } {1 {could not create link from "abc.dir" to "abc2.dir": file already exists}} -test fCmd-28.4 {testfilelink} {linkFile} { +test fCmd-28.4 {testfilelink} {linkFile winOnly} { list [catch {testfilelink abc.file abc2.file} msg] $msg } {1 {could not create link from "abc.file" to "abc2.file": file already exists}} -test fCmd-28.5 {testfilelink} {linkFile} { +test fCmd-28.5 {testfilelink} {linkFile winOnly} { file delete -force abc.link list [catch {testfilelink abc.link abc.file} msg] $msg } {0 abc.file} catch {file delete -force abc.link} -test fCmd-28.6 {testfilelink} {linkDirectory} { +test fCmd-28.6 {testfilelink} {linkDirectory winOnly} { file delete -force abc.link list [catch {testfilelink abc.link abc2.doesnt} msg] $msg } {1 {could not create link from "abc.link" to "abc2.doesnt": no such file or directory}} -test fCmd-28.7 {testfilelink} {linkDirectory} { +test fCmd-28.7 {testfilelink} {linkDirectory winOnly} { file delete -force abc.link list [catch {testfilelink abc.link abc.dir} msg] $msg } {0 abc.dir} -test fCmd-28.7.1 {testfilelink} {linkDirectory} { +test fCmd-28.7.1 {testfilelink} {linkDirectory winOnly} { # duplicate link throws error list [catch {testfilelink abc.link abc.dir} msg] $msg } {1 {could not create link from "abc.link" to "abc.dir": file already exists}} -test fCmd-28.8 {testfilelink: deletes link not dir} {linkDirectory} { +test fCmd-28.8 {testfilelink: deletes link not dir} {linkDirectory winOnly} { file delete -force abc.link list [file exists abc.link] [file exists abc.dir] } {0 1} -test fCmd-28.9 {testfilelink: copies link not dir} {linkDirectory} { +test fCmd-28.9 {testfilelink: copies link not dir} {linkDirectory winOnly} { file delete -force abc.link testfilelink abc.link abc.dir file copy abc.link abc2.link @@ -2249,17 +2249,17 @@ file delete -force abc2.link file copy abc.file abc.dir file copy abc2.file abc.dir -test fCmd-28.10 {testfilelink: glob inside link} {linkDirectory} { +test fCmd-28.10 {testfilelink: glob inside link} {linkDirectory winOnly} { file delete -force abc.link testfilelink abc.link abc.dir glob -dir abc.link -tails * } {abc.file abc2.file} -test fCmd-28.11 {testfilelink: glob -type l} {linkDirectory} { +test fCmd-28.11 {testfilelink: glob -type l} {linkDirectory winOnly} { glob -dir [pwd] -type l -tails abc* } {abc.link} -test fCmd-28.12 {testfilelink: glob -type d} {linkDirectory} { +test fCmd-28.12 {testfilelink: glob -type d} {linkDirectory winOnly} { lsort [glob -dir [pwd] -type d -tails abc*] } [lsort [list abc.link abc.dir abc2.dir]] |