diff options
| -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 {}} |