From 5ee08fdf00619e1d0d4852f2219e985b8c15f3b6 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Fri, 3 May 2019 18:50:13 +0000
Subject: memleak demo test

---
 tests/link.test | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/tests/link.test b/tests/link.test
index 22a1fc2..96ebb4d 100644
--- a/tests/link.test
+++ b/tests/link.test
@@ -21,6 +21,17 @@ testConstraint testlink [llength [info commands testlink]]
 foreach i {int real bool string} {
     catch {unset $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} {testlink} {
     testlink delete
     testlink set 43 1.23 4 - 12341234 64 250 30000 60000 0xbeefbabe 12321 32123 3.25 1231231234
-- 
cgit v0.12