diff options
author | dgp <dgp@noemail.net> | 2004-05-04 19:50:39 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2004-05-04 19:50:39 (GMT) |
commit | 978b9e9e8577c6ec51e0070d29afdce7bd47384f (patch) | |
tree | 4eea27d7de22b0ef4a7522885187029fc31ab730 /tests/tcltest.test | |
parent | ea772a9728aecf6eff0e65d8612cadcf7608f2f0 (diff) | |
download | tcl-978b9e9e8577c6ec51e0070d29afdce7bd47384f.zip tcl-978b9e9e8577c6ec51e0070d29afdce7bd47384f.tar.gz tcl-978b9e9e8577c6ec51e0070d29afdce7bd47384f.tar.bz2 |
* tests/tcltest.test: Test corrections for Mac OSX. Thanks
to Steven Abner (tauvan). [Bug 947440]
FossilOrigin-Name: 3651e16a387d3a5903266812c7205a7ab30f67cc
Diffstat (limited to 'tests/tcltest.test')
-rwxr-xr-x | tests/tcltest.test | 29 |
1 files changed, 19 insertions, 10 deletions
diff --git a/tests/tcltest.test b/tests/tcltest.test index 2413cca..165e070 100755 --- a/tests/tcltest.test +++ b/tests/tcltest.test @@ -6,7 +6,7 @@ # Copyright (c) 2000 by Ajuba Solutions # All rights reserved. # -# RCS: @(#) $Id: tcltest.test,v 1.37.2.1 2004/04/02 17:39:08 dgp Exp $ +# RCS: @(#) $Id: tcltest.test,v 1.37.2.2 2004/05/04 19:50:41 dgp Exp $ # Note that there are several places where the value of # tcltest::currentFailure is stored/reset in the -setup/-cleanup @@ -525,9 +525,7 @@ set a [makeFile { set tdiaf [makeFile {} thisdirectoryisafile] set normaldirectory [makeDirectory normaldirectory] -if {$::tcl_platform(platform) == "macintosh"} { -set normaldirectory [file normalize $normaldirectory] -} +normalizePath normaldirectory # -tmpdir, [temporaryDirectory] test tcltest-8.1 {tcltest a.tcl -tmpdir a} {unixOrPc} { @@ -701,15 +699,26 @@ removeFile thisdirectoryisafile removeDirectory normaldirectory # -file, -notfile, [matchFiles], [skipFiles] -test tcltest-9.1 {-file a*.tcl} {unixOrPc} { +test tcltest-9.1 {-file a*.tcl} -constraints {unixOrPc} -setup { + set old [testsDirectory] + testsDirectory [file dirname [info script]] +} -body { slave msg [file join [testsDirectory] all.tcl] -file a*.test - list [regexp assocd\.test $msg] -} {1} -test tcltest-9.2 {-file a*.tcl} {unixOrPc} { + set msg +} -cleanup { + testsDirectory $old +} -match regexp -result {assocd\.test} + +test tcltest-9.2 {-file a*.tcl} -constraints {unixOrPc} -setup { + set old [testsDirectory] + testsDirectory [file dirname [info script]] +} -body { slave msg [file join [testsDirectory] all.tcl] \ -file a*.test -notfile assocd* - list [regexp assocd\.test $msg] -} {0} + regexp {assocd\.test} $msg +} -cleanup { + testsDirectory $old +} -result 0 test tcltest-9.3 {matchFiles} { -body { |