diff options
| author | andy <andrew.m.goth@gmail.com> | 2016-12-11 04:03:35 (GMT) |
|---|---|---|
| committer | andy <andrew.m.goth@gmail.com> | 2016-12-11 04:03:35 (GMT) |
| commit | 8a3e6395d8298edf433c596780e47c07f03dac01 (patch) | |
| tree | e378d9f07df294165b4c62d1973dd011501680be | |
| parent | 05a6e9024f9c445a60e0c63418d2cdd2fe4dc646 (diff) | |
| download | tcl-8a3e6395d8298edf433c596780e47c07f03dac01.zip tcl-8a3e6395d8298edf433c596780e47c07f03dac01.tar.gz tcl-8a3e6395d8298edf433c596780e47c07f03dac01.tar.bz2 | |
Add first array search test
| -rw-r--r-- | tests/array.test | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/tests/array.test b/tests/array.test index d70d507..e3adac6 100644 --- a/tests/array.test +++ b/tests/array.test @@ -758,6 +758,17 @@ foreach { } ######### array-7.*: array anymore|donesearch|nextelement|startsearch ########## +foreach cmd {anymore donesearch nextelement} { + test { + name array-7.1.$cmd + desc {nonexistent search token} + {scalar cmd} $cmd + {array a} {} + body {array $cmd a s-1-a} + returnCodes error + result {couldn't find search "s-1-a"} + } +} # Cleanup. foreach namespace [namespace children] { |