summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--tests/reg.test6
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 {}}