diff options
| author | pooryorick <com.digitalsmarties@pooryorick.com> | 2018-06-20 08:03:22 (GMT) |
|---|---|---|
| committer | pooryorick <com.digitalsmarties@pooryorick.com> | 2018-06-20 08:03:22 (GMT) |
| commit | 645241afc13d0aa6272925a04c3afa93ca93ef19 (patch) | |
| tree | 9c9d2e03db99f439d104601b87acc9b63009fd80 | |
| parent | 03a3c09b1fc4fc80caec28b88b0fe09d612835b8 (diff) | |
| download | tcl-645241afc13d0aa6272925a04c3afa93ca93ef19.zip tcl-645241afc13d0aa6272925a04c3afa93ca93ef19.tar.gz tcl-645241afc13d0aa6272925a04c3afa93ca93ef19.tar.bz2 | |
Remove recent auto_path modification in tests/all.tcl and suppress more
valgrind reports.
| -rw-r--r-- | tests/all.tcl | 20 | ||||
| -rw-r--r-- | tools/valgrind_suppress | 20 |
2 files changed, 25 insertions, 15 deletions
diff --git a/tests/all.tcl b/tests/all.tcl index d6434fb..250163b 100644 --- a/tests/all.tcl +++ b/tests/all.tcl @@ -15,22 +15,12 @@ package require Tcl 8.5- package require tcltest 2.2 namespace import tcltest::* -apply {args { - global auto_path - set testsdir [file dirname [file dirname [file normalize [ - info script]/...]]] +configure {*}$argv -testdir [file dirname [file dirname [file normalize [ + info script]/...]]] - configure {*}$args -testdir $testsdir - - if {[singleProcess]} { - interp debug {} -frame 1 - } - - set auto_path [lmap x $auto_path[set auto_path {}] { - if {$x eq $testsdir} continue - lindex $x - }] -}} {*}$argv +if {[singleProcess]} { + interp debug {} -frame 1 +} runAllTests proc exit args {} diff --git a/tools/valgrind_suppress b/tools/valgrind_suppress index e8f0204..84ed4cd 100644 --- a/tools/valgrind_suppress +++ b/tools/valgrind_suppress @@ -31,3 +31,23 @@ fun:TclpGetPwNam } +{ + TclCreatesocketAddress/getaddrinfo/calloc + Memcheck:Leak + match-leak-kinds: reachable + fun:calloc + ... + fun:getaddrinfo + fun:TclCreateSocketAddress +} + +{ + TclCreatesocketAddress/getaddrinfo/malloc + Memcheck:Leak + match-leak-kinds: reachable + fun:malloc + ... + fun:getaddrinfo + fun:TclCreateSocketAddress +} + |