diff options
| author | Steve Bennett <steveb@workware.net.au> | 2024-09-04 14:52:31 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2024-09-20 11:20:34 +1000 |
| commit | aea59d5f9b068a12eaa47451ad0fe6a3e9eeb5d5 (patch) | |
| tree | 3b8a5d5340b21adb1f3076e18ccf52864ab50afc /regtest.tcl | |
| parent | 04faf00753541dd414074e7589d92e93d765f034 (diff) | |
| download | jimtcl-aea59d5f9b068a12eaa47451ad0fe6a3e9eeb5d5.zip jimtcl-aea59d5f9b068a12eaa47451ad0fe6a3e9eeb5d5.tar.gz jimtcl-aea59d5f9b068a12eaa47451ad0fe6a3e9eeb5d5.tar.bz2 | |
aio: fix rare refcount error in maintainer mode
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'regtest.tcl')
| -rw-r--r-- | regtest.tcl | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/regtest.tcl b/regtest.tcl index 5e66aa3..99a65fe 100644 --- a/regtest.tcl +++ b/regtest.tcl @@ -399,6 +399,13 @@ set json { catch {json::decode $json} puts "TEST 56 PASSED" +if {[exists -command debug]} { + set f [open /dev/null w] + $f puts [debug objects] + $f close +} +puts "TEST 57 PASSED" + # TAKE THE FOLLOWING puts AS LAST LINE puts "--- ALL TESTS PASSED ---" |