diff options
| author | pooryorick <com.digitalsmarties@pooryorick.com> | 2023-03-26 14:55:23 (GMT) |
|---|---|---|
| committer | pooryorick <com.digitalsmarties@pooryorick.com> | 2023-03-26 14:55:23 (GMT) |
| commit | 2122f0eb09d729bfbfbdbbf1540fa26bbfa42453 (patch) | |
| tree | 1d2c4aa77f9405a2f9d1f29c5068c08b6cc1c7d1 /tests/tcltests.tcl | |
| parent | 414896d31fc17726a8380347db1f306066ca6c70 (diff) | |
| download | tcl-2122f0eb09d729bfbfbdbbf1540fa26bbfa42453.zip tcl-2122f0eb09d729bfbfbdbbf1540fa26bbfa42453.tar.gz tcl-2122f0eb09d729bfbfbdbbf1540fa26bbfa42453.tar.bz2 | |
Failing test for [6d4e9d1af5bf5b7d].
Diffstat (limited to 'tests/tcltests.tcl')
| -rw-r--r-- | tests/tcltests.tcl | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/tests/tcltests.tcl b/tests/tcltests.tcl index a2251bf..61366a4 100644 --- a/tests/tcltests.tcl +++ b/tests/tcltests.tcl @@ -34,6 +34,18 @@ namespace eval ::tcltests { } + # Stolen from dict.test + proc scriptmemcheck script { + set end [lindex [split [memory info] \n] 3 3] + for {set i 0} {$i < 5} {incr i} { + uplevel 1 $script + set tmp $end + set end [lindex [split [memory info] \n] 3 3] + } + expr {$end - $tmp} + } + + proc tempdir_alternate {} { close [file tempfile tempfile] set tmpdir [file dirname $tempfile] |