diff options
| -rw-r--r-- | tests/link.test | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/link.test b/tests/link.test index 6bff356..189762e 100644 --- a/tests/link.test +++ b/tests/link.test @@ -25,6 +25,16 @@ foreach i {int real bool string} { unset -nocomplain $i } +test link-0.1 {leak test} {testlink} { + interp create i + load {} Tcltest i + i eval { + testlink create 1 0 0 0 0 0 0 0 0 0 0 0 0 0 + namespace delete :: + } + interp delete i +} {} + test link-1.1 {reading C variables from Tcl} -constraints {testlink} -setup { testlink delete } -body { |