diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/cmdAH.test | 4 | ||||
| -rw-r--r-- | tests/winPipe.test | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/tests/cmdAH.test b/tests/cmdAH.test index e09eb58..f9251a9 100644 --- a/tests/cmdAH.test +++ b/tests/cmdAH.test @@ -9,7 +9,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: cmdAH.test,v 1.3 1998/09/14 18:40:08 stanton Exp $ +# RCS: @(#) $Id: cmdAH.test,v 1.4 1999/02/03 19:12:27 stanton Exp $ if {[string compare test [info procs test]] == 1} then {source defs} @@ -784,7 +784,7 @@ test cmdAH-7.34 {Tcl_FileObjCmd: extension} { file extension a\\b.c\\ } {} set num 35 -foreach value {a..b a...b a.c..b ..b} result {..b ...b ..b ..b} { +foreach value {a..b a...b a.c..b ..b} result {.b .b .b .b} { foreach p {unix mac windows} { ; test cmdAH-7.$num {Tcl_FileObjCmd: extension} " testsetplatform $p diff --git a/tests/winPipe.test b/tests/winPipe.test index 62154ae..6e1cb85 100644 --- a/tests/winPipe.test +++ b/tests/winPipe.test @@ -11,7 +11,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: winPipe.test,v 1.4 1998/11/02 23:04:15 stanton Exp $ +# RCS: @(#) $Id: winPipe.test,v 1.5 1999/02/03 19:12:27 stanton Exp $ if {$tcl_platform(platform) != "windows"} { return @@ -368,4 +368,4 @@ if {[catch {set env(TEMP) $env_temp}]} { unset $env(TEMP) } -file delete big little stdout stderr nothing dummy.tcl +file delete big little stdout stderr nothing dummy.tcl echoArgs.tcl |