diff options
| author | stanton <stanton> | 1999-02-03 19:12:25 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1999-02-03 19:12:25 (GMT) |
| commit | 51100ef26ab0199626b74c3bd866099610703ee9 (patch) | |
| tree | 09c95ddbc632f3ea1c0f4181202eb986a9581701 /tests | |
| parent | 3e5c4b0cfd21d1c35065c296da52fe468768810b (diff) | |
| download | tcl-51100ef26ab0199626b74c3bd866099610703ee9.zip tcl-51100ef26ab0199626b74c3bd866099610703ee9.tar.gz tcl-51100ef26ab0199626b74c3bd866099610703ee9.tar.bz2 | |
* test/winPipe.test: Changed to remove echoArgs.tcl temporary file
when done.
* tests/cmdAH.test:
* generic/tclFileName.c (TclGetExtension): Changed behavior so the
split happens at the last period in the name instead of the first
period of the last run of periods. So, "foo..o" is split into
"foo." and ".o" now. [Bug: 1126]
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 |