summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorhobbs <hobbs>1999-11-30 01:42:57 (GMT)
committerhobbs <hobbs>1999-11-30 01:42:57 (GMT)
commit75a24aeeddf75c00a068fffcf2ae042aebfcb44b (patch)
treed32f04afe68f725680837e17a2ec14bb9e264656 /tests
parentd33e2488bcb85e9721459e8cccf43eab523cad87 (diff)
downloadtcl-75a24aeeddf75c00a068fffcf2ae042aebfcb44b.zip
tcl-75a24aeeddf75c00a068fffcf2ae042aebfcb44b.tar.gz
tcl-75a24aeeddf75c00a068fffcf2ae042aebfcb44b.tar.bz2
* tests/scan.test:
* generic/tclScan.c: fixed scan where %[..] didn't match anything and added test case [Bug: 3700]
Diffstat (limited to 'tests')
-rw-r--r--tests/scan.test6
1 files changed, 5 insertions, 1 deletions
diff --git a/tests/scan.test b/tests/scan.test
index 4957f9f..0d8d045 100644
--- a/tests/scan.test
+++ b/tests/scan.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: scan.test,v 1.8 1999/11/19 06:35:01 hobbs Exp $
+# RCS: @(#) $Id: scan.test,v 1.9 1999/11/30 01:43:00 hobbs Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -42,6 +42,10 @@ test scan-1.7 {BuildCharSet, CharInSet} {
test scan-1.8 {BuildCharSet, CharInSet} {
list [scan def-abc {%[^c-a]} x] $x
} {1 def-}
+test scan-1.9 {BuildCharSet, CharInSet no match} {
+ catch {unset x}
+ list [scan {= f} {= %[TF]} x] [info exists x]
+} {0 0}
test scan-2.1 {ReleaseCharSet} {
list [scan abcde {%[abc]} x] $x