summaryrefslogtreecommitdiffstats
path: root/tests/reg.test
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2009-10-29 17:21:48 (GMT)
committerdgp <dgp@users.sourceforge.net>2009-10-29 17:21:48 (GMT)
commit4c88e5710e2844b84cd5893e41bc3d369c37d65c (patch)
tree869c8c9633df43ae1f9ecb430490394374cd5df5 /tests/reg.test
parente06f616f4b1db4e440fd0883a4987547208d8dd9 (diff)
downloadtcl-4c88e5710e2844b84cd5893e41bc3d369c37d65c.zip
tcl-4c88e5710e2844b84cd5893e41bc3d369c37d65c.tar.gz
tcl-4c88e5710e2844b84cd5893e41bc3d369c37d65c.tar.bz2
test hygiene for the ::tmp variable
Diffstat (limited to 'tests/reg.test')
-rw-r--r--tests/reg.test14
1 files changed, 9 insertions, 5 deletions
diff --git a/tests/reg.test b/tests/reg.test
index 79eaaa0..46b5e64 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.25 2008/03/19 13:39:28 dkf Exp $
+# RCS: @(#) $Id: reg.test,v 1.26 2009/10/29 17:21:48 dgp Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
@@ -1050,13 +1050,17 @@ test reg-33.8 {Bug 505048} {
test reg-33.9 {Bug 505048} {
regexp -indices -inline {\A\s*[^b]*b} ab
} {{0 1}}
-test reg-33.10 {Bug 840258} {
+test reg-33.10 {Bug 840258} -body {
regsub {(^|\n)+\.*b} \n.b {} tmp
-} 1
-test reg-33.11 {Bug 840258} {
+} -cleanup {
+ unset tmp
+} -result 1
+test reg-33.11 {Bug 840258} -body {
regsub {(^|[\n\r]+)\.*\?<.*?(\n|\r)+} \
"TQ\r\n.?<5000267>Test already stopped\r\n" {} tmp
-} 1
+} -cleanup {
+ unset tmp
+} -result 1
test reg-33.12 {Bug 1810264 - bad read} {
regexp {\3161573148} {\3161573148}
} 0