diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2015-10-24 16:01:56 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2015-10-24 16:01:56 (GMT) |
| commit | 042f85a7d6565407ef15942699cb0e1d2f28330e (patch) | |
| tree | f8695b0b70cb4f4cf5e79c08ea8ccee86e061f7e /tests/platform.test | |
| parent | d0c545cc65b329440189d7ebfec034137b26e0e7 (diff) | |
| download | tcl-042f85a7d6565407ef15942699cb0e1d2f28330e.zip tcl-042f85a7d6565407ef15942699cb0e1d2f28330e.tar.gz tcl-042f85a7d6565407ef15942699cb0e1d2f28330e.tar.bz2 | |
A more lenient test; different platforms are more diverse in their correct output.
Diffstat (limited to 'tests/platform.test')
| -rw-r--r-- | tests/platform.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/platform.test b/tests/platform.test index b5ddc48..51b9067 100644 --- a/tests/platform.test +++ b/tests/platform.test @@ -60,10 +60,10 @@ test platform-3.1 {CPU ID on Windows/UNIX} \ package require platform test platform-4.1 {format of platform::identify result} -match regexp -body { platform::identify -} -result {^[^-]+-[^-]+$} +} -result {^([^-]+-)+[^-]+$} test platform-4.2 {format of platform::generic result} -match regexp -body { platform::generic -} -result {^[^-]+-[^-]+$} +} -result {^([^-]+-)+[^-]+$} # cleanup cleanupTests |