diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-09-19 15:36:11 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-09-19 15:36:11 (GMT) |
| commit | dc6c385849bdbc223accd3eef16355e2bbdff671 (patch) | |
| tree | cb4463287ab648160b78ed67abdaf5a95a0742f3 /tests | |
| parent | 52e96157d28e998adf71cf30b27b3e40ebeaa715 (diff) | |
| parent | 39795a1da493f0ea91a228e768c0c656156ab340 (diff) | |
| download | tcl-dc6c385849bdbc223accd3eef16355e2bbdff671.zip tcl-dc6c385849bdbc223accd3eef16355e2bbdff671.tar.gz tcl-dc6c385849bdbc223accd3eef16355e2bbdff671.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/all.tcl | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/tests/all.tcl b/tests/all.tcl index 287de1f..52c8763 100644 --- a/tests/all.tcl +++ b/tests/all.tcl @@ -25,4 +25,9 @@ if {[singleProcess]} { set ErrorOnFailures [info exists env(ERROR_ON_FAILURES)] unset -nocomplain env(ERROR_ON_FAILURES) if {[runAllTests] && $ErrorOnFailures} {exit 1} -proc exit args {} +# if calling direct only (avoid rewrite exit if inlined or interactive): +if { [info exists ::argv0] && [file tail $::argv0] eq [file tail [info script]] + && !([info exists ::tcl_interactive] && $::tcl_interactive) +} { + proc exit args {} +}
\ No newline at end of file |