diff options
| author | dkf <dkf@noemail.net> | 2002-07-29 12:28:34 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2002-07-29 12:28:34 (GMT) |
| commit | 5b9737b045b2ebaf7d812f8551a5eb3dddbc98c7 (patch) | |
| tree | 2bda96936db01a8d7e355efe43933979c9d87f43 /tests/reg.test | |
| parent | 5e6451e400caad98c6acccc76c3c355c64a574db (diff) | |
| download | tcl-5b9737b045b2ebaf7d812f8551a5eb3dddbc98c7.zip tcl-5b9737b045b2ebaf7d812f8551a5eb3dddbc98c7.tar.gz tcl-5b9737b045b2ebaf7d812f8551a5eb3dddbc98c7.tar.bz2 | |
Dump junk spaces...
FossilOrigin-Name: 6a66fc9f19cf09581729e20beb93f6fefec3a87c
Diffstat (limited to 'tests/reg.test')
| -rw-r--r-- | tests/reg.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/reg.test b/tests/reg.test index 58ebc55..86f0098 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.15 2002/07/29 10:56:08 dkf Exp $ +# RCS: @(#) $Id: reg.test,v 1.16 2002/07/29 12:28:35 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -989,8 +989,8 @@ 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:]]*)} + 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 {}} |