diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-04-21 20:26:08 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-04-21 20:26:08 (GMT) |
| commit | e3e6c3396989a8609a9544e197c4a3fa5e213f82 (patch) | |
| tree | 8b6a371f405e30c5ce89d988cffb390ad804154a | |
| parent | d39298874a1bc2665f1af0712f4798f82b7067fe (diff) | |
| parent | 1fe7d754ed84d81bf0fb2928b1bccfc96348bd12 (diff) | |
| download | tcl-e3e6c3396989a8609a9544e197c4a3fa5e213f82.zip tcl-e3e6c3396989a8609a9544e197c4a3fa5e213f82.tar.gz tcl-e3e6c3396989a8609a9544e197c4a3fa5e213f82.tar.bz2 | |
Add testcases
| -rw-r--r-- | tests/cmdIL.test | 3 | ||||
| -rw-r--r-- | tests/lsearch.test | 3 |
2 files changed, 6 insertions, 0 deletions
diff --git a/tests/cmdIL.test b/tests/cmdIL.test index 5a68925..b24b10c 100644 --- a/tests/cmdIL.test +++ b/tests/cmdIL.test @@ -168,6 +168,9 @@ test cmdIL-1.41 {lsort -stride and -index} -body { test cmdIL-1.42 {lsort -stride and-index} -body { lsort -stride 2 -index -1-1 {a 2 b 1} } -returnCodes error -result {index "-1-1" out of range} +test cmdIL-1.43 {lsort -stride errors} -returnCodes error -body { + lsort -stride 4294967296 bar +} -result {list size must be a multiple of the stride length} # Can't think of any good tests for the MergeSort and MergeLists procedures, # except a bunch of random lists to sort. diff --git a/tests/lsearch.test b/tests/lsearch.test index 7c1402d..b8a8aa7 100644 --- a/tests/lsearch.test +++ b/tests/lsearch.test @@ -688,6 +688,9 @@ test lsearch-28.8 {lsearch -sorted with -stride} -body { test lsearch-28.9 {lsearch -sorted with -stride} -body { lsearch -sorted -stride 2 -index 1 -subindices -inline {3 5 8 7 2 9} 9 } -result 9 +test lsearch-28.10 {lsearch -sorted with -stride} -body { + lsearch -sorted -stride 4294967296 -index 1 -subindices -inline {3 5 8 7 2 9} 9 +} -returnCodes 1 -result {list size must be a multiple of the stride length} # cleanup |