memleak demo test

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 {