diff options
author | dkf <dkf@noemail.net> | 2002-07-29 10:56:07 (GMT) |
---|---|---|
committer | dkf <dkf@noemail.net> | 2002-07-29 10:56:07 (GMT) |
commit | 4f7698a7031ba5f3629600f7cd0f7a56ffd5e4d4 (patch) | |
tree | e6c38e79aa2217b6f74c03b96dea9f14f3e29f97 /tests/reg.test | |
parent | 14187be07e693f2cc2638a81adf9d0609e18e210 (diff) | |
download | tcl-4f7698a7031ba5f3629600f7cd0f7a56ffd5e4d4.zip tcl-4f7698a7031ba5f3629600f7cd0f7a56ffd5e4d4.tar.gz tcl-4f7698a7031ba5f3629600f7cd0f7a56ffd5e4d4.tar.bz2 |
Fixes for regexp issues raised in [Bug 578363].
Lots of thanks to pvgoran@users.sf.net for tracking them down!
Also made the RE files touched meet the Tcl Engineering Guidelines a bit better (they've a long way to go, but this is a start...)
FossilOrigin-Name: 8cfaf94bd837a529e9a21183061ca146ef877650
Diffstat (limited to 'tests/reg.test')
-rw-r--r-- | tests/reg.test | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/tests/reg.test b/tests/reg.test index f35050b..58ebc55 100644 --- a/tests/reg.test +++ b/tests/reg.test @@ -9,7 +9,7 @@ # # Copyright (c) 1998, 1999 Henry Spencer. All rights reserved. # -# RCS: @(#) $Id: reg.test,v 1.14 2002/06/22 04:19:47 dgp Exp $ +# RCS: @(#) $Id: reg.test,v 1.15 2002/07/29 10:56:08 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -987,8 +987,14 @@ m 9 HLP {(?n)^(?![t#])\S+} "tk\n\n#\n#\nit0" it0 # flush any leftover complaints doing 0 "flush" +# Tests resulting from bugs reported by users +test reg-31.1 {[[:xdigit:]] behaves correctly when followed by [[:space:]]} { + set str {2:::DebugWin32} + set re {([[:xdigit:]])([[:space:]]*)} + list [regexp $re $str match xdigit spaces] $match $xdigit $spaces + # Code used to produce {1 2:::DebugWin32 2 :::DebugWin32} !!! +} {1 2 2 {}} + # cleanup ::tcltest::cleanupTests return - - |