Minor fixes for marginally more clarity

FossilOrigin-Name: 172b22ddbdb27432169996d8d9987e9a427d22a5

1 files changed, 10 insertions, 10 deletions

diff --git a/tests/cmdAH.test b/tests/cmdAH.test
index 68593d5..ac45434 100644
--- a/tests/cmdAH.test
+++ b/tests/cmdAH.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: cmdAH.test,v 1.47 2004/10/31 17:38:24 dkf Exp $
+# RCS: @(#) $Id: cmdAH.test,v 1.48 2004/10/31 18:44:27 dkf Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest 2.1
@@ -629,14 +629,14 @@ test cmdAH-10.34 {Tcl_FileObjCmd: rootname} testsetplatform {
 } a\\b.c\\
 set num 35
 foreach outer { {} a .a a. a.a } {
-  foreach inner { {} a .a a. a.a } {
-    set thing [format %s/%s $outer $inner]
-;   test cmdAH-10.$num {Tcl_FileObjCmd: rootname and extension options} testsetplatform {
-	testsetplatform unix
-	format %s%s [file rootname $thing] [file ext $thing]
-    } $thing
-    set num [expr $num+1]
-  }
+    foreach inner { {} a .a a. a.a } {
+	set thing [format %s/%s $outer $inner]
+	;test cmdAH-10.$num {Tcl_FileObjCmd: rootname and extension options} testsetplatform "
+	    testsetplatform unix
+	    format %s%s [file rootname $thing] [file ext $thing]
+	" $thing
+	incr num
+    }
 }
 
 # extension
@@ -732,7 +732,7 @@ test cmdAH-11.34 {Tcl_FileObjCmd: extension} testsetplatform {
 set num 35
 foreach value {a..b a...b a.c..b ..b} result {.b .b .b .b} {
     foreach p {unix windows} {
-;	test cmdAH-11.$num {Tcl_FileObjCmd: extension} testsetplatform "
+	;test cmdAH-11.$num {Tcl_FileObjCmd: extension} testsetplatform "
 	    testsetplatform $p
 	    file extension $value
 	" $result