summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjenn <jenn>2000-09-29 23:26:11 (GMT)
committerjenn <jenn>2000-09-29 23:26:11 (GMT)
commit3e503f11f4ae1c0333b61a69761520d384b3c284 (patch)
tree9e2e3cc5331900a2232e31efb8dd9b8784570d4e
parent79f2a3d1cf1aad8715d1f384d8317a70007275ce (diff)
downloadtcl-3e503f11f4ae1c0333b61a69761520d384b3c284.zip
tcl-3e503f11f4ae1c0333b61a69761520d384b3c284.tar.gz
tcl-3e503f11f4ae1c0333b61a69761520d384b3c284.tar.bz2
Fixed typo
-rwxr-xr-xlibrary/tcltest/tcltest2.tcl5
-rwxr-xr-xlibrary/tcltest1.0/tcltest2.tcl5
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