diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-06-27 19:09:01 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-06-27 19:09:01 (GMT) |
| commit | 66ec3cd3a668d06b78e321578eb5f3fa1cda5031 (patch) | |
| tree | a552d7e0fe3970cf84238655cf00cdff26f88208 /tests/platform.test | |
| parent | c44181ecafaa160b94728593527ebca0260dc51f (diff) | |
| parent | 7cb7a44074f18108b2cedbf4496758442149d9d5 (diff) | |
| download | tcl-66ec3cd3a668d06b78e321578eb5f3fa1cda5031.zip tcl-66ec3cd3a668d06b78e321578eb5f3fa1cda5031.tar.gz tcl-66ec3cd3a668d06b78e321578eb5f3fa1cda5031.tar.bz2 | |
merge trunk
Diffstat (limited to 'tests/platform.test')
| -rw-r--r-- | tests/platform.test | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/tests/platform.test b/tests/platform.test index 8a68351..fa533e8 100644 --- a/tests/platform.test +++ b/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 { |