diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2014-07-12 16:13:27 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2014-07-12 16:13:27 (GMT) |
commit | 7bea42569d8c2ccb8584155f706392d5812ec428 (patch) | |
tree | 4f61b95593d24393fff08344b408215836a58a05 /tests/lset.test | |
parent | f0bba60202785e634e8e1712db5cc37246d36e32 (diff) | |
download | tcl-7bea42569d8c2ccb8584155f706392d5812ec428.zip tcl-7bea42569d8c2ccb8584155f706392d5812ec428.tar.gz tcl-7bea42569d8c2ccb8584155f706392d5812ec428.tar.bz2 |
whopper change; now passes test suite on OSX
Diffstat (limited to 'tests/lset.test')
-rw-r--r-- | tests/lset.test | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/lset.test b/tests/lset.test index 1c1300b..36d3379 100644 --- a/tests/lset.test +++ b/tests/lset.test @@ -49,7 +49,7 @@ test lset-2.2 {lset, not compiled, 3 args, second arg neither index nor list} te list [catch { testevalex {lset x {{bad}1} 3} } msg] $msg -} {1 {bad index "{bad}1": must be integer?[+-]integer? or end?[+-]integer?}} +} {1 {bad index "{bad}1": should be integer?[+-]integer? or end?[+-]integer?}} test lset-3.1 {lset, not compiled, 3 args, data duplicated} testevalex { set x {0 1 2} @@ -91,7 +91,7 @@ test lset-4.2 {lset, not compiled, 3 args, bad index} testevalex { list [catch { testevalex {lset a [list 2a2] w} } msg] $msg -} {1 {bad index "2a2": must be integer?[+-]integer? or end?[+-]integer?}} +} {1 {bad index "2a2": should be integer?[+-]integer? or end?[+-]integer?}} test lset-4.3 {lset, not compiled, 3 args, index out of range} testevalex { set a {x y z} list [catch { @@ -133,7 +133,7 @@ test lset-4.8 {lset, not compiled, 3 args, bad index} testevalex { list [catch { testevalex {lset a 2a2 w} } msg] $msg -} {1 {bad index "2a2": must be integer?[+-]integer? or end?[+-]integer?}} +} {1 {bad index "2a2": should be integer?[+-]integer? or end?[+-]integer?}} test lset-4.9 {lset, not compiled, 3 args, index out of range} testevalex { set a {x y z} list [catch { @@ -273,11 +273,11 @@ test lset-8.2 {lset, not compiled, malformed sublist} testevalex { test lset-8.3 {lset, not compiled, bad second index} testevalex { set a {{b c} {d e}} list [catch {testevalex {lset a 0 2a2 f}} msg] $msg -} {1 {bad index "2a2": must be integer?[+-]integer? or end?[+-]integer?}} +} {1 {bad index "2a2": should be integer?[+-]integer? or end?[+-]integer?}} test lset-8.4 {lset, not compiled, bad second index} testevalex { set a {{b c} {d e}} list [catch {testevalex {lset a {0 2a2} f}} msg] $msg -} {1 {bad index "2a2": must be integer?[+-]integer? or end?[+-]integer?}} +} {1 {bad index "2a2": should be integer?[+-]integer? or end?[+-]integer?}} test lset-8.5 {lset, not compiled, second index out of range} testevalex { set a {{b c} {d e} {f g}} list [catch {testevalex {lset a 2 -1 h}} msg] $msg |