summaryrefslogtreecommitdiffstats
path: root/tests/fCmd.test
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2012-06-14 13:56:20 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2012-06-14 13:56:20 (GMT)
commit7485fdafcf89b96cc2194aed57e115adebe20580 (patch)
tree29342c9ba4916f219205ab9546973f1dc4644f0f /tests/fCmd.test
parent9dcac0dc2ebd0ff9db16ca5a532025a754fe702b (diff)
downloadtcl-7485fdafcf89b96cc2194aed57e115adebe20580.zip
tcl-7485fdafcf89b96cc2194aed57e115adebe20580.tar.gz
tcl-7485fdafcf89b96cc2194aed57e115adebe20580.tar.bz2
fix fCmd-6.19 on win32, which was broken by [a7e00a0e02]
Diffstat (limited to 'tests/fCmd.test')
-rw-r--r--tests/fCmd.test14
1 files changed, 7 insertions, 7 deletions
diff --git a/tests/fCmd.test b/tests/fCmd.test
index f2adcef..4775f05 100644
--- a/tests/fCmd.test
+++ b/tests/fCmd.test
@@ -48,15 +48,15 @@ if {[testConstraint unix]} {
set group [lindex $groupList 0]
testConstraint foundGroup 1
}
+}
- proc dev dir {
- file stat $dir stat
- return $stat(dev)
- }
+proc dev dir {
+ file stat $dir stat
+ return $stat(dev)
+}
- if {[catch {makeDirectory tcl[pid] /tmp} tmpspace] == 0} {
- testConstraint xdev [expr {([dev .] != [dev $tmpspace])}]
- }
+if {[catch {makeDirectory tcl[pid] /tmp} tmpspace] == 0} {
+ testConstraint xdev [expr {([dev .] != [dev $tmpspace])}]
}
# Also used in winFCmd...