summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorhobbs <hobbs>2002-01-30 02:50:46 (GMT)
committerhobbs <hobbs>2002-01-30 02:50:46 (GMT)
commited818f42e654780efe8d3020f9d0ece5e10de9fd (patch)
tree4696f693abf30c9dae84335fe0142d1bec8cd7c2 /tests
parent6eca2e4ac23af3da5fbd5fbdfe1edb0f7c4bd493 (diff)
downloadtcl-ed818f42e654780efe8d3020f9d0ece5e10de9fd.zip
tcl-ed818f42e654780efe8d3020f9d0ece5e10de9fd.tar.gz
tcl-ed818f42e654780efe8d3020f9d0ece5e10de9fd.tar.bz2
* tests/regexpComp.test:
* generic/tclCompCmds.c (TclCompileRegexpCmd): enhanced to support -nocase and -- options.
Diffstat (limited to 'tests')
-rw-r--r--tests/regexpComp.test22
1 files changed, 21 insertions, 1 deletions
diff --git a/tests/regexpComp.test b/tests/regexpComp.test
index 41e63d6..1a4de0f 100644
--- a/tests/regexpComp.test
+++ b/tests/regexpComp.test
@@ -751,9 +751,29 @@ test regexp-21.4 {regexp command compiling tests} {
} 1
test regexp-21.5 {regexp command compiling tests} {
evalInProc {
- regexp foo dogfod
+ regexp -nocase FOO dogfod
}
} 0
+test regexp-21.6 {regexp command compiling tests} {
+ evalInProc {
+ regexp -n foo dogfoOd
+ }
+} 1
+test regexp-21.7 {regexp command compiling tests} {
+ evalInProc {
+ regexp -no -- FoO dogfood
+ }
+} 1
+test regexp-21.8 {regexp command compiling tests} {
+ evalInProc {
+ regexp -- foo dogfod
+ }
+} 0
+test regexp-21.9 {regexp command compiling tests} {
+ evalInProc {
+ list [catch {regexp -- -nocase foo dogfod} msg] $msg
+ }
+} {0 0}
# cleanup
::tcltest::cleanupTests