diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2002-07-29 10:56:08 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2002-07-29 10:56:08 (GMT) |
| commit | 392e6300e2782ea71b0e7e57f97e7b74ced0530b (patch) | |
| tree | e6c38e79aa2217b6f74c03b96dea9f14f3e29f97 /tests/reg.test | |
| parent | 8aac5314070c34799ffa1a70feb28b35584bc49a (diff) | |
| download | tcl-392e6300e2782ea71b0e7e57f97e7b74ced0530b.zip tcl-392e6300e2782ea71b0e7e57f97e7b74ced0530b.tar.gz tcl-392e6300e2782ea71b0e7e57f97e7b74ced0530b.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...)
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 - - |