diff options
Diffstat (limited to 'tcl8.6/tests/platform.test')
| -rw-r--r-- | tcl8.6/tests/platform.test | 6 |
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 { |