diff options
| author | dgp <dgp@users.sourceforge.net> | 2018-03-08 19:43:57 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2018-03-08 19:43:57 (GMT) |
| commit | ed53b715acb5d9a060c898f5ad4cfa79d6c9db1d (patch) | |
| tree | 81ce75ddf57419cc6c1038b1d20ff3cb267d8091 /tests/lreplace.test | |
| parent | b8b87e52802d476aa5e7d6796ff233f89cf0156b (diff) | |
| download | tcl-ed53b715acb5d9a060c898f5ad4cfa79d6c9db1d.zip tcl-ed53b715acb5d9a060c898f5ad4cfa79d6c9db1d.tar.gz tcl-ed53b715acb5d9a060c898f5ad4cfa79d6c9db1d.tar.bz2 | |
Another error ordering test.
Diffstat (limited to 'tests/lreplace.test')
| -rw-r--r-- | tests/lreplace.test | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/tests/lreplace.test b/tests/lreplace.test index 7377869..4a6b853 100644 --- a/tests/lreplace.test +++ b/tests/lreplace.test @@ -107,6 +107,9 @@ test lreplace-1.28 {lreplace command} -body { test lreplace-1.29 {lreplace command} -body { lreplace x 1 1 [error foo] } -returnCodes 1 -result {foo} +test lreplace-1.30 {lreplace command} -body { + lreplace {not {}alist} 0 0 [error foo] +} -returnCodes 1 -result {foo} test lreplace-2.1 {lreplace errors} { list [catch lreplace msg] $msg |