diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2002-07-29 12:28:35 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2002-07-29 12:28:35 (GMT) |
| commit | f4ad55f3b75dedd30fcbaf63214922915688c926 (patch) | |
| tree | 2bda96936db01a8d7e355efe43933979c9d87f43 | |
| parent | cb31fbc8e1c86591dacb2be74a770f4c305097a3 (diff) | |
| download | tcl-f4ad55f3b75dedd30fcbaf63214922915688c926.zip tcl-f4ad55f3b75dedd30fcbaf63214922915688c926.tar.gz tcl-f4ad55f3b75dedd30fcbaf63214922915688c926.tar.bz2 | |
Dump junk spaces...
| -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 {}} |