diff options
author | pspjuth <peter.spjuth@gmail.com> | 2018-01-25 20:05:54 (GMT) |
---|---|---|
committer | pspjuth <peter.spjuth@gmail.com> | 2018-01-25 20:05:54 (GMT) |
commit | 83df36ac4194e2b04610ad61244a08b9b068a816 (patch) | |
tree | e581090a37bd3e143fc70b8e0b7ea3bea78f9a05 /tests/lsearch.test | |
parent | eb9e2858c160aa46fea8ce4eebd1354eaec2f76e (diff) | |
download | tcl-83df36ac4194e2b04610ad61244a08b9b068a816.zip tcl-83df36ac4194e2b04610ad61244a08b9b068a816.tar.gz tcl-83df36ac4194e2b04610ad61244a08b9b068a816.tar.bz2 |
Allow -stride 1.
Diffstat (limited to 'tests/lsearch.test')
-rw-r--r-- | tests/lsearch.test | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/tests/lsearch.test b/tests/lsearch.test index 4e4b206..a53a8be 100644 --- a/tests/lsearch.test +++ b/tests/lsearch.test @@ -518,7 +518,7 @@ test lsearch-23.1 {lsearch -stride option, errors} -body { } -returnCodes error -result {"-stride" option must be followed by stride length} test lsearch-23.2 {lsearch -stride option, errors} -body { lsearch -stride 0 {a b} a -} -returnCodes error -result {stride length must be at least 2} +} -returnCodes error -result {stride length must be at least 1} test lsearch-23.3 {lsearch -stride option, errors} -body { lsearch -stride 2 {a b c} a } -returnCodes error -result {list size must be a multiple of the stride length} @@ -562,6 +562,10 @@ test lsearch-24.9 {lsearch -stride option} -body { test lsearch-24.10 {lsearch -stride option} -body { lsearch -all -inline -stride 3 -index 0 {a b c d e f a e i} a } -result "a b c a e i" +test lsearch-24.11 {lsearch -stride option} -body { + # Stride 1 is same as no stride + lsearch -stride 1 {a b c d e f g h} d +} -result 3 # 25* mimics 19* but with -inline added to -subindices test lsearch-25.1 {lsearch -subindices option} { |