diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-09-27 09:17:44 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-09-27 09:17:44 (GMT) |
commit | 524d6bb36ec16228d711b48a3806f39100e388d2 (patch) | |
tree | 24202ebe9ed4b18e655054eb287e35ede662c21a /tests/link.test | |
parent | fffc4119bef3f1894ff2043a720b902b6a88adbe (diff) | |
download | tcl-524d6bb36ec16228d711b48a3806f39100e388d2.zip tcl-524d6bb36ec16228d711b48a3806f39100e388d2.tar.gz tcl-524d6bb36ec16228d711b48a3806f39100e388d2.tar.bz2 |
Eliminate use of old deprecated trace subcommands from testcases
Diffstat (limited to 'tests/link.test')
-rw-r--r-- | tests/link.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/link.test b/tests/link.test index d37f08a..bd6a708 100644 --- a/tests/link.test +++ b/tests/link.test @@ -364,7 +364,7 @@ test link-8.1 {Tcl_UpdateLinkedVar procedure} {testlink} { testlink set 14 -2.0 0 xyzzy 995511 64 250 30000 60000 0xbeefbabe 12321 32123 3.25 1231231234 trace var int w x testlink update 32 4.0 3 abcd 113355 65 251 30001 60001 0xbabebeef 12322 32124 3.125 12312312340 - trace vdelete int w x + trace remove variable int write x return $x } {{int {} w} 32 -2.0 0 xyzzy 995511} test link-8.2 {Tcl_UpdateLinkedVar procedure} {testlink} { @@ -378,7 +378,7 @@ test link-8.2 {Tcl_UpdateLinkedVar procedure} {testlink} { testlink delete trace var int w x testlink update 32 4.0 6 abcd 113355 65 251 30001 60001 0xbabebeef 12322 32124 3.125 12312312340 - trace vdelete int w x + trace remove variable int write x return $x } {} test link-8.3 {Tcl_UpdateLinkedVar procedure, read-only variable} {testlink} { |