summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2004-06-23 15:10:43 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2004-06-23 15:10:43 (GMT)
commit5ce4f325726f9d4a32b7499cc8a0ff0d81a2dc48 (patch)
tree649d0375d8cfe04e13be22f1ab03462094b5e4c7
parent3cbf22b6cf95f7f50d278996567fdd4fd6f15a44 (diff)
downloadtcl-5ce4f325726f9d4a32b7499cc8a0ff0d81a2dc48.zip
tcl-5ce4f325726f9d4a32b7499cc8a0ff0d81a2dc48.tar.gz
tcl-5ce4f325726f9d4a32b7499cc8a0ff0d81a2dc48.tar.bz2
Fixed constraint name and whitespace usage
-rw-r--r--tests/winFCmd.test44
1 files changed, 19 insertions, 25 deletions
diff --git a/tests/winFCmd.test b/tests/winFCmd.test
index b141c01..c90b120 100644
--- a/tests/winFCmd.test
+++ b/tests/winFCmd.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: winFCmd.test,v 1.30 2004/06/18 15:59:18 kennykb Exp $
+# RCS: @(#) $Id: winFCmd.test,v 1.31 2004/06/23 15:10:43 dkf Exp $
#
if {[lsearch [namespace children] ::tcltest] == -1} {
@@ -1022,30 +1022,24 @@ test winFCmd-16.11 {Windows file normalization} {pcOnly cdrom} {
# Must not crash
set result "no crash"
} {no crash}
-
-test winFCmd-16.12 {Windows file normalization} \
- -constraints pconly \
- -setup {
- set oldwd [pwd]
- set oldhome ""
- catch {set oldhome $::env(HOME)}
- } \
- -body {
- set expectedResult [file normalize ${d}:]
- set ::env(HOME) ${d}:
- cd
- set result [pwd]; # <- Must not crash
- if { [string equal $result $expectedResult] } {
- concat ok
- } else {
- list $result != $expectedResult
- }
- } \
- -cleanup {
- set ::env(HOME) $oldhome
- cd $oldwd
- } \
- -result ok
+test winFCmd-16.12 {Windows file normalization} -constraints pcOnly -setup {
+ set oldwd [pwd]
+ set oldhome ""
+ catch {set oldhome $::env(HOME)}
+} -body {
+ set expectedResult [file normalize ${d}:]
+ set ::env(HOME) ${d}:
+ cd
+ set result [pwd]; # <- Must not crash
+ if { [string equal $result $expectedResult] } {
+ concat ok
+ } else {
+ list $result != $expectedResult
+ }
+} -cleanup {
+ set ::env(HOME) $oldhome
+ cd $oldwd
+} -result ok
cd $pwd
unset d dd pwd