summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-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 {