summaryrefslogtreecommitdiffstats
path: root/tests/lsearch.test
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2005-12-09 14:39:19 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2005-12-09 14:39:19 (GMT)
commit935e1e7bff4e2328bdf256ef524c4a6a3aa9947e (patch)
treeda3986461468c87bac28425373ea0a11e510ddb2 /tests/lsearch.test
parent268ee946f3eb31ba016fd1d3275e202b7617dbe1 (diff)
downloadtcl-935e1e7bff4e2328bdf256ef524c4a6a3aa9947e.zip
tcl-935e1e7bff4e2328bdf256ef524c4a6a3aa9947e.tar.gz
tcl-935e1e7bff4e2328bdf256ef524c4a6a3aa9947e.tar.bz2
Fix [Bug 1374778]
Diffstat (limited to 'tests/lsearch.test')
-rw-r--r--tests/lsearch.test14
1 files changed, 13 insertions, 1 deletions
diff --git a/tests/lsearch.test b/tests/lsearch.test
index 47d4ffc..86884c4 100644
--- a/tests/lsearch.test
+++ b/tests/lsearch.test
@@ -11,7 +11,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: lsearch.test,v 1.10.2.2 2005/11/29 10:32:31 dkf Exp $
+# RCS: @(#) $Id: lsearch.test,v 1.10.2.3 2005/12/09 14:39:25 dkf Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -293,6 +293,18 @@ test lsearch-10.7 {offset searching with an empty list} {
# Stop bug #694232 from reocurring
lsearch -start 0 {} x
} -1
+test lsearch-10.8 {offset searching past the end of the list} {
+ # Stop [Bug 1374778] from reoccurring
+ lsearch -start 10 {a b c} c
+} -1
+test lsearch-10.9 {offset searching past the end of the list} {
+ # Stop [Bug 1374778] from reoccurring
+ lsearch -start 10 -all {a b c} c
+} {}
+test lsearch-10.10 {offset searching past the end of the list} {
+ # Stop [Bug 1374778] from reoccurring
+ lsearch -start 10 -inline {a b c} c
+} {}
test lsearch-11.1 {negated searches} {
lsearch -not {a a a b a a a} a