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/cmdAH.test | |
| 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/cmdAH.test')
| -rw-r--r-- | tests/cmdAH.test | 4 |
1 files changed, 2 insertions, 2 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 |