diff options
| author | dgp <dgp@users.sourceforge.net> | 2018-07-09 14:53:45 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2018-07-09 14:53:45 (GMT) |
| commit | 9bd3b59e1deef204fd29cac25e705bfffd93177d (patch) | |
| tree | c5ae520a28addd15bde6de72f59681836492a29d /tests/tcltest.test | |
| parent | fd7ecfb8773ddaea6892a08930ff34f6516187b0 (diff) | |
| parent | 64cbe6e187a319a8a9cef0d6201f22ba68a7ed60 (diff) | |
| download | tcl-9bd3b59e1deef204fd29cac25e705bfffd93177d.zip tcl-9bd3b59e1deef204fd29cac25e705bfffd93177d.tar.gz tcl-9bd3b59e1deef204fd29cac25e705bfffd93177d.tar.bz2 | |
merge 8.7
Diffstat (limited to 'tests/tcltest.test')
| -rw-r--r-- | tests/tcltest.test | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/tests/tcltest.test b/tests/tcltest.test index 17fa926..0bcf342 100644 --- a/tests/tcltest.test +++ b/tests/tcltest.test @@ -908,7 +908,9 @@ removeFile load.tcl # [interpreter] test tcltest-13.1 {interpreter} { + -constraints notValgrind -setup { + #to do: Why is $::tcltest::tcltest being saved and restored here? set old $::tcltest::tcltest set ::tcltest::tcltest tcltest } @@ -920,6 +922,11 @@ test tcltest-13.1 {interpreter} { } -result {tcltest tclsh tclsh} -cleanup { + # writing ::tcltest::tcltest triggers a trace that sets up the stdio + # constraint, which involves a call to [exec] that might fail after + # "fork" and before "exec", in which case the forked process will not + # have a chance to clean itself up before exiting, which causes + # valgrind to issue numerous "still reachable" reports. set ::tcltest::tcltest $old } } |