diff options
| author | dgp <dgp@users.sourceforge.net> | 2019-05-03 18:50:13 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2019-05-03 18:50:13 (GMT) |
| commit | 5ee08fdf00619e1d0d4852f2219e985b8c15f3b6 (patch) | |
| tree | 30f7d1395227dc98f7644ca28e53b3e13d61773a /tests/link.test | |
| parent | 1e9a4512c736103a6d392290d210f2ace698787a (diff) | |
| download | tcl-5ee08fdf00619e1d0d4852f2219e985b8c15f3b6.zip tcl-5ee08fdf00619e1d0d4852f2219e985b8c15f3b6.tar.gz tcl-5ee08fdf00619e1d0d4852f2219e985b8c15f3b6.tar.bz2 | |
memleak demo test
Diffstat (limited to 'tests/link.test')
| -rw-r--r-- | tests/link.test | 11 |
1 files changed, 11 insertions, 0 deletions
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 |