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