diff options
author | antirez <antirez> | 2005-03-19 21:39:34 +0000 |
---|---|---|
committer | antirez <antirez> | 2005-03-19 21:39:34 +0000 |
commit | 76e16dfe41d1cad0a7f01d1a45de0cbffe525c94 (patch) | |
tree | e48c4266e7453995a5852b28b5c56a9c48e0b320 /test.tcl | |
parent | 4212adfb46da94fa2851dd688889578127044de6 (diff) | |
download | jimtcl-76e16dfe41d1cad0a7f01d1a45de0cbffe525c94.zip jimtcl-76e16dfe41d1cad0a7f01d1a45de0cbffe525c94.tar.gz jimtcl-76e16dfe41d1cad0a7f01d1a45de0cbffe525c94.tar.bz2 |
Jim_GetIndex() bug fixed (SS)
Diffstat (limited to 'test.tcl')
-rw-r--r-- | test.tcl | 36 |
1 files changed, 20 insertions, 16 deletions
@@ -1,4 +1,4 @@ -# $Id: test.tcl,v 1.22 2005/03/15 14:05:38 antirez Exp $ +# $Id: test.tcl,v 1.23 2005/03/19 21:39:34 antirez Exp $ # # This are Tcl tests imported into Jim. Tests that will probably not be passed # in the long term are usually removed (for example all the tests about @@ -29,21 +29,6 @@ proc test {id descr script expectedResult} { proc error {msg} { return -code error $msg } ################################################################################ -# JIM REGRESSION TESTS -################################################################################ -test regression-1.0 {Rename against procedures with static vars} { - proc foobar {x} {{y 10}} { - incr y $x - } - foobar 30 - foobar 20 - rename foobar barfoo - list [barfoo 1] [barfoo 2] [barfoo 3] -} {61 63 66} - -rename barfoo {} - -################################################################################ # SET ################################################################################ @@ -3459,6 +3444,25 @@ test lrange-2.4 {error conditions} { #} {1 {unmatched open brace in list}} ################################################################################ +# JIM REGRESSION TESTS +################################################################################ +test regression-1.0 {Rename against procedures with static vars} { + proc foobar {x} {{y 10}} { + incr y $x + } + foobar 30 + foobar 20 + rename foobar barfoo + list [barfoo 1] [barfoo 2] [barfoo 3] +} {61 63 66} + +rename barfoo {} + +test regression-1.1 {lrange bug with negative indexes of type int} { + lrange {a b c} 0 [- 0 1] +} {} + +################################################################################ # FINAL REPORT ################################################################################ |