diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2005-11-07 09:38:22 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2005-11-07 09:38:22 (GMT) |
| commit | 97e03b3b4d93ec2a39aadc6fa256e55e5c0f6bdc (patch) | |
| tree | b2492501f8d0474af375e6a9bc732ae6dfc3b663 /tests/dict.test | |
| parent | 1784f99d50c3e86f3f051d73ac1a42c377242633 (diff) | |
| download | tcl-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.test | 12 |
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 { |