From 5ce4f325726f9d4a32b7499cc8a0ff0d81a2dc48 Mon Sep 17 00:00:00 2001
From: dkf <donal.k.fellows@manchester.ac.uk>
Date: Wed, 23 Jun 2004 15:10:43 +0000
Subject: Fixed constraint name and whitespace usage

---
 tests/winFCmd.test | 44 +++++++++++++++++++-------------------------
 1 file 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
-- 
cgit v0.12