diff options
| author | stanton <stanton> | 1998-09-21 23:39:52 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1998-09-21 23:39:52 (GMT) |
| commit | 494c2de3a748b449c69ce322a1a741f5a31fd4d5 (patch) | |
| tree | c3ece48c0ae3f4ba54787e0e8e729b65752ef3f9 /tests/link.test | |
| parent | 7a698c0488d99c0af42022714638ae1ba2afaa49 (diff) | |
| download | tcl-494c2de3a748b449c69ce322a1a741f5a31fd4d5.zip tcl-494c2de3a748b449c69ce322a1a741f5a31fd4d5.tar.gz tcl-494c2de3a748b449c69ce322a1a741f5a31fd4d5.tar.bz2 | |
Added contents of Tcl 8.1a2
Diffstat (limited to 'tests/link.test')
| -rw-r--r-- | tests/link.test | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/tests/link.test b/tests/link.test index 25eefb1..4e405a0 100644 --- a/tests/link.test +++ b/tests/link.test @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) link.test 1.12 97/01/21 21:16:04 +# SCCS: @(#) link.test 1.14 98/02/18 11:59:28 if {[info commands testlink] == {}} { puts "This application hasn't been compiled with the \"testlink\"" @@ -228,7 +228,10 @@ test link-8.3 {Tcl_UpdateLinkedVar procedure, read-only variable} { list [catch {testlink update 47 {} {} {}} msg] $msg $int } {0 {} 47} +testlink set 0 0 0 - testlink delete foreach i {int real bool string} { catch {unset $i} } + +return |