diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-10-09 01:48:31 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-10-09 01:48:31 (GMT) |
| commit | 1061121812191fb6a50842007771b34c289131da (patch) | |
| tree | d1beba8c0233d9c74a0c2a6b90e69e959f14636c /tests/fileName.test | |
| parent | c88725ffebf6be846bce8f33ddee5a39eea664a3 (diff) | |
| parent | cf9cce374ed8d3bc405f998d01d9965d224bc482 (diff) | |
| download | tcl-1061121812191fb6a50842007771b34c289131da.zip tcl-1061121812191fb6a50842007771b34c289131da.tar.gz tcl-1061121812191fb6a50842007771b34c289131da.tar.bz2 | |
merge trunk
<p>Dont include U+0082 and U+0083 in the Tcl space set
Diffstat (limited to 'tests/fileName.test')
| -rw-r--r-- | tests/fileName.test | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/fileName.test b/tests/fileName.test index 6dd1cb4..51f00d1 100644 --- a/tests/fileName.test +++ b/tests/fileName.test @@ -749,7 +749,7 @@ test filename-11.13 {Tcl_GlobCmd} { } [file join $env(HOME)] set oldpwd [pwd] set oldhome $env(HOME) -cd [temporaryDirectory] +catch {cd [makeDirectory tcl[pid]]} set env(HOME) [pwd] file delete -force globTest file mkdir globTest/a1/b1 @@ -1616,6 +1616,7 @@ catch {file delete -force C:/globTest} cd [temporaryDirectory] file delete -force globTest cd $oldpwd +catch {removeDirectory tcl[pid]} set env(HOME) $oldhome if {[testConstraint testsetplatform]} { testsetplatform $platform |