diff options
| author | jenn <jenn> | 2000-09-29 23:26:11 (GMT) |
|---|---|---|
| committer | jenn <jenn> | 2000-09-29 23:26:11 (GMT) |
| commit | 3e503f11f4ae1c0333b61a69761520d384b3c284 (patch) | |
| tree | 9e2e3cc5331900a2232e31efb8dd9b8784570d4e | |
| parent | 79f2a3d1cf1aad8715d1f384d8317a70007275ce (diff) | |
| download | tcl-3e503f11f4ae1c0333b61a69761520d384b3c284.zip tcl-3e503f11f4ae1c0333b61a69761520d384b3c284.tar.gz tcl-3e503f11f4ae1c0333b61a69761520d384b3c284.tar.bz2 | |
Fixed typo
| -rwxr-xr-x | library/tcltest/tcltest2.tcl | 5 | ||||
| -rwxr-xr-x | 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 |