From 3e503f11f4ae1c0333b61a69761520d384b3c284 Mon Sep 17 00:00:00 2001
From: jenn <jenn>
Date: Fri, 29 Sep 2000 23:26:11 +0000
Subject: Fixed typo

---
 library/tcltest/tcltest2.tcl    | 5 +++--
 library/tcltest1.0/tcltest2.tcl | 5 +++--
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/library/tcltest/tcltest2.tcl b/library/tcltest/tcltest2.tcl
index 2a676dc..da793ad 100755
--- a/library/tcltest/tcltest2.tcl
+++ b/library/tcltest/tcltest2.tcl
@@ -13,7 +13,7 @@
 # Copyright (c) 2000 by Ajuba Solutions
 # All rights reserved.
 # 
-# RCS: @(#) $Id: tcltest2.tcl,v 1.2 2000/09/29 22:48:12 jenn Exp $
+# RCS: @(#) $Id: tcltest2.tcl,v 1.3 2000/09/29 23:26:11 jenn Exp $
 
 # create the "tcltest" namespace for all testing variables and procedures
 
@@ -2068,7 +2068,8 @@ proc tcltest::test {name description args} {
 	incr tcltest::testLevel -1
 	return 1
     } elseif {([string index [lindex $args 0] 0] == "-") || ([llength $args] == 1)} {
-	if {[llength args] == 1} {
+	
+	if {[llength $args] == 1} {
 	    set list [substArguments [lindex $args 0]]
 	    foreach {element value} $list { 
 		set testAttributes($element) $value
diff --git a/library/tcltest1.0/tcltest2.tcl b/library/tcltest1.0/tcltest2.tcl
index 2a676dc..da793ad 100755
--- a/library/tcltest1.0/tcltest2.tcl
+++ b/library/tcltest1.0/tcltest2.tcl
@@ -13,7 +13,7 @@
 # Copyright (c) 2000 by Ajuba Solutions
 # All rights reserved.
 # 
-# RCS: @(#) $Id: tcltest2.tcl,v 1.2 2000/09/29 22:48:12 jenn Exp $
+# RCS: @(#) $Id: tcltest2.tcl,v 1.3 2000/09/29 23:26:11 jenn Exp $
 
 # create the "tcltest" namespace for all testing variables and procedures
 
@@ -2068,7 +2068,8 @@ proc tcltest::test {name description args} {
 	incr tcltest::testLevel -1
 	return 1
     } elseif {([string index [lindex $args 0] 0] == "-") || ([llength $args] == 1)} {
-	if {[llength args] == 1} {
+	
+	if {[llength $args] == 1} {
 	    set list [substArguments [lindex $args 0]]
 	    foreach {element value} $list { 
 		set testAttributes($element) $value
-- 
cgit v0.12