diff options
| author | das <das> | 2002-04-08 09:02:00 (GMT) |
|---|---|---|
| committer | das <das> | 2002-04-08 09:02:00 (GMT) |
| commit | 0a15882ec2062a8b32ec855925a73e5644108f40 (patch) | |
| tree | 862099671ae61cb7366e579a4a370691d8ae40fc /tests/fileSystem.test | |
| parent | 99e8896f2e7f6cdf266ea20b486a1587ba574dba (diff) | |
| download | tcl-0a15882ec2062a8b32ec855925a73e5644108f40.zip tcl-0a15882ec2062a8b32ec855925a73e5644108f40.tar.gz tcl-0a15882ec2062a8b32ec855925a73e5644108f40.tar.bz2 | |
2002-04-08 Daniel Steffen <das@users.sourceforge.net>
* generic/tcl.h: no <sys/types.h> on mac.
* mac/tclMacFile.c: minor fixes to Vince's changes from 03-24.
* mac/tclMacOSA.c:
* mac/tclMacResource.c: added missing Tcl_UtfToExternalDString
conversions of resource file names.
* mac/tclMacSock.c (TcpGetOptionProc): fixed bug introduced
by Andreas on 02-25; changed strcmp's to strncmp's so that
option comparison behaves like on other platforms.
* mac/tcltkMacBuildSupport.sea.hqx (CW Pro6 changes): added
support to allow Tk to hookup C library stderr/stdout to TkConsole.
* tests/basic.test:
* tests/cmdAH.test:
* tests/encoding.test:
* tests/fileSystem.test:
* tests/ioCmd.test: fixed tests failing on mac: check for
existence of [exec], changed some result strings.
Diffstat (limited to 'tests/fileSystem.test')
| -rw-r--r-- | tests/fileSystem.test | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/fileSystem.test b/tests/fileSystem.test index eb0a082..bb1a5a7 100644 --- a/tests/fileSystem.test +++ b/tests/fileSystem.test @@ -151,6 +151,7 @@ test filesystem-4.3 {testfilesystem} { } test filesystem-5.1 {cache and ~} { + -match regexp -body { set orig $env(HOME) set ::env(HOME) /foo/bar/blah @@ -158,9 +159,10 @@ test filesystem-5.1 {cache and ~} { set res1 "Parent of ~ (/foo/bar/blah) is [file dirname $testdir]" set ::env(HOME) /a/b/c set res2 "Parent of ~ (/a/b/c) is [file dirname $testdir]" + set ::env(HOME) $orig list $res1 $res2 } - -result {{Parent of ~ (/foo/bar/blah) is /foo/bar} {Parent of ~ (/a/b/c) is /a/b}} + -result {{Parent of ~ \(/foo/bar/blah\) is (/foo/bar|foo:bar)} {Parent of ~ \(/a/b/c\) is (/a/b|a:b)}} } |