summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorstanton <stanton>1999-02-03 19:12:25 (GMT)
committerstanton <stanton>1999-02-03 19:12:25 (GMT)
commit51100ef26ab0199626b74c3bd866099610703ee9 (patch)
tree09c95ddbc632f3ea1c0f4181202eb986a9581701 /tests
parent3e5c4b0cfd21d1c35065c296da52fe468768810b (diff)
downloadtcl-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.test4
-rw-r--r--tests/winPipe.test4
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