summaryrefslogtreecommitdiffstats
path: root/tcl8.6/tests/platform.test
diff options
context:
space:
mode:
Diffstat (limited to 'tcl8.6/tests/platform.test')
-rw-r--r--tcl8.6/tests/platform.test6
1 files changed, 5 insertions, 1 deletions
diff --git a/tcl8.6/tests/platform.test b/tcl8.6/tests/platform.test
index 8ee0ec7..e5a4c90 100644
--- a/tcl8.6/tests/platform.test
+++ b/tcl8.6/tests/platform.test
@@ -10,6 +10,7 @@
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
package require tcltest 2
+package require tcltests
namespace eval ::tcl::test::platform {
namespace import ::tcltest::testConstraint
@@ -67,7 +68,10 @@ test platform-3.1 {CPU ID on Windows/UNIX} \
# format of string it produces consists of two non-empty words separated by a
# hyphen.
package require platform
-test platform-4.1 {format of platform::identify result} -match regexp -body {
+test platform-4.1 {format of platform::identify result} -constraints notValgrind -match regexp -body {
+ # [identify] may attempt to [exec] dpkg-architecture, which may not exist,
+ # in which case fork will not be followed by exec, and valgrind will issue
+ # "still reachable" reports.
platform::identify
} -result {^([^-]+-)+[^-]+$}
test platform-4.2 {format of platform::generic result} -match regexp -body {