diff options
| author | dgp <dgp@users.sourceforge.net> | 2009-10-29 17:21:48 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2009-10-29 17:21:48 (GMT) |
| commit | 4c88e5710e2844b84cd5893e41bc3d369c37d65c (patch) | |
| tree | 869c8c9633df43ae1f9ecb430490394374cd5df5 /tests/reg.test | |
| parent | e06f616f4b1db4e440fd0883a4987547208d8dd9 (diff) | |
| download | tcl-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.test | 14 |
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 |