summaryrefslogtreecommitdiffstats
path: root/tests/dict.test
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2005-11-07 09:38:22 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2005-11-07 09:38:22 (GMT)
commit97e03b3b4d93ec2a39aadc6fa256e55e5c0f6bdc (patch)
treeb2492501f8d0474af375e6a9bc732ae6dfc3b663 /tests/dict.test
parent1784f99d50c3e86f3f051d73ac1a42c377242633 (diff)
downloadtcl-97e03b3b4d93ec2a39aadc6fa256e55e5c0f6bdc.zip
tcl-97e03b3b4d93ec2a39aadc6fa256e55e5c0f6bdc.tar.gz
tcl-97e03b3b4d93ec2a39aadc6fa256e55e5c0f6bdc.tar.bz2
Squelch the false [Bug 1342858] by removing traces cleanly. The trace leaking
is being pursued elsewhere.
Diffstat (limited to 'tests/dict.test')
-rw-r--r--tests/dict.test12
1 files changed, 11 insertions, 1 deletions
diff --git a/tests/dict.test b/tests/dict.test
index 1733424..19f7088 100644
--- a/tests/dict.test
+++ b/tests/dict.test
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: dict.test,v 1.14 2005/10/08 14:42:54 dgp Exp $
+# RCS: @(#) $Id: dict.test,v 1.15 2005/11/07 09:38:22 dkf Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
@@ -808,6 +808,7 @@ test dict-19.2 {dict: testing for leaks} -setup {
set bepa [lrange $apa 0 end]
trace add variable bepa write {error hej}
catch {dict incr bepa a 5}
+ trace remove variable bepa write {error hej}
unset bepa
# An error during write to a shared object, incr
@@ -815,6 +816,7 @@ test dict-19.2 {dict: testing for leaks} -setup {
set bepa $apa
trace add variable bepa write {error hej}
catch {dict incr bepa a 5}
+ trace remove variable bepa write {error hej}
unset bepa
# A shared valid dictionary, invalid lappend
@@ -827,6 +829,7 @@ test dict-19.2 {dict: testing for leaks} -setup {
set bepa [lrange $apa 0 end]
trace add variable bepa write {error hej}
catch {dict lappend bepa a 5}
+ trace remove variable bepa write {error hej}
unset bepa
# An error during write to a shared object, lappend
@@ -834,6 +837,7 @@ test dict-19.2 {dict: testing for leaks} -setup {
set bepa $apa
trace add variable bepa write {error hej}
catch {dict lappend bepa a 5}
+ trace remove variable bepa write {error hej}
unset bepa
# An error during write to an unshared object, append
@@ -841,6 +845,7 @@ test dict-19.2 {dict: testing for leaks} -setup {
set bepa [lrange $apa 0 end]
trace add variable bepa write {error hej}
catch {dict append bepa a 5}
+ trace remove variable bepa write {error hej}
unset bepa
# An error during write to a shared object, append
@@ -848,6 +853,7 @@ test dict-19.2 {dict: testing for leaks} -setup {
set bepa $apa
trace add variable bepa write {error hej}
catch {dict append bepa a 5}
+ trace remove variable bepa write {error hej}
unset bepa
# An error during write to an unshared object, set
@@ -855,6 +861,7 @@ test dict-19.2 {dict: testing for leaks} -setup {
set bepa [lrange $apa 0 end]
trace add variable bepa write {error hej}
catch {dict set bepa a 5}
+ trace remove variable bepa write {error hej}
unset bepa
# An error during write to a shared object, set
@@ -862,6 +869,7 @@ test dict-19.2 {dict: testing for leaks} -setup {
set bepa $apa
trace add variable bepa write {error hej}
catch {dict set bepa a 5}
+ trace remove variable bepa write {error hej}
unset bepa
# An error during write to an unshared object, unset
@@ -869,6 +877,7 @@ test dict-19.2 {dict: testing for leaks} -setup {
set bepa [lrange $apa 0 end]
trace add variable bepa write {error hej}
catch {dict unset bepa a}
+ trace remove variable bepa write {error hej}
unset bepa
# An error during write to a shared object, unset
@@ -876,6 +885,7 @@ test dict-19.2 {dict: testing for leaks} -setup {
set bepa $apa
trace add variable bepa write {error hej}
catch {dict unset bepa a}
+ trace remove variable bepa write {error hej}
unset bepa
}
} -constraints memory -body {