summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2004-05-04 19:50:40 (GMT)
committerdgp <dgp@users.sourceforge.net>2004-05-04 19:50:40 (GMT)
commitc8d75bda613025d7582de9ffe5d86969708b2984 (patch)
tree4eea27d7de22b0ef4a7522885187029fc31ab730 /tests
parent96113217ca1796f998db2554ab115ccbde07a1d2 (diff)
downloadtcl-c8d75bda613025d7582de9ffe5d86969708b2984.zip
tcl-c8d75bda613025d7582de9ffe5d86969708b2984.tar.gz
tcl-c8d75bda613025d7582de9ffe5d86969708b2984.tar.bz2
* tests/tcltest.test: Test corrections for Mac OSX. Thanks
to Steven Abner (tauvan). [Bug 947440]
Diffstat (limited to 'tests')
-rwxr-xr-xtests/tcltest.test29
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 {