diff options
author | dgp <dgp@users.sourceforge.net> | 2019-05-03 18:54:46 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2019-05-03 18:54:46 (GMT) |
commit | 48891ff56a16c20d88b9643b9949a9915208188f (patch) | |
tree | 436a4c44dd8dda88259b5f10b3351f0919d6752b /tests/link.test | |
parent | e42fbc68b9ea8a6b6209a348830ae0743a020c5c (diff) | |
parent | 5ee08fdf00619e1d0d4852f2219e985b8c15f3b6 (diff) | |
download | tcl-48891ff56a16c20d88b9643b9949a9915208188f.zip tcl-48891ff56a16c20d88b9643b9949a9915208188f.tar.gz tcl-48891ff56a16c20d88b9643b9949a9915208188f.tar.bz2 |
memleak demo test
Diffstat (limited to 'tests/link.test')
-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 { |