summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
Diffstat (limited to 'library')
-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