From edeb2f602f676509e74e81b4d65bb966dc28e395 Mon Sep 17 00:00:00 2001 From: dkf Date: Mon, 29 Jul 2002 12:28:35 +0000 Subject: Dump junk spaces... --- tests/reg.test | 6 +++--- 1 file 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 {}} -- cgit v0.12