diff options
| author | stanton <stanton> | 1999-05-20 02:53:54 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1999-05-20 02:53:54 (GMT) |
| commit | a31ffea5862bbe41deaf7aea200506bb5cbd0fb2 (patch) | |
| tree | 03a5e4cfbcb90937d1aa4462016b05eb75c0f004 | |
| parent | 549e4c8a71b10cd204526f381eb896dc8346f539 (diff) | |
| download | tcl-a31ffea5862bbe41deaf7aea200506bb5cbd0fb2.zip tcl-a31ffea5862bbe41deaf7aea200506bb5cbd0fb2.tar.gz tcl-a31ffea5862bbe41deaf7aea200506bb5cbd0fb2.tar.bz2 | |
Added tests for regexp bug.
| -rw-r--r-- | ChangeLog | 2 | ||||
| -rw-r--r-- | tests/regexp.test | 6 |
2 files changed, 6 insertions, 2 deletions
@@ -24,7 +24,7 @@ Paul Duffin. * generic/tclRegexp.c: Fix bug when the regexp cache is empty - and an empty pattern is used in regexp ( such as {} or "" ).s + and an empty pattern is used in regexp ( such as {} or "" ). 1999-05-18 <stanton@scriptics.com> diff --git a/tests/regexp.test b/tests/regexp.test index d490ef3..bb516fe 100644 --- a/tests/regexp.test +++ b/tests/regexp.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: regexp.test,v 1.3.2.1 1999/05/14 18:26:12 stanton Exp $ +# RCS: @(#) $Id: regexp.test,v 1.3.2.2 1999/05/20 02:53:54 stanton Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -381,6 +381,10 @@ test regexp-13.2 {CompileRegexp: regexp cache, different flags} { append x *a regexp -nocase $x bbba } 1 +test regexp-13.3 {CompileRegexp: regexp cache, empty regexp and empty cache} { + makeFile {puts [regexp {} foo]} junk.tcl + exec $tcltest junk.tcl +} 1 set x 1 set y 2 |