diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2015-10-24 16:02:32 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2015-10-24 16:02:32 (GMT) |
| commit | 4baed0fef3ccae5d7d617339a41c203c91cbf13c (patch) | |
| tree | 6051ec1feef28dcdff96573f743d5400f278ce12 | |
| parent | ccc9970e65e75dc95fd697a5f31f622217ed8ccb (diff) | |
| parent | 042f85a7d6565407ef15942699cb0e1d2f28330e (diff) | |
| download | tcl-4baed0fef3ccae5d7d617339a41c203c91cbf13c.zip tcl-4baed0fef3ccae5d7d617339a41c203c91cbf13c.tar.gz tcl-4baed0fef3ccae5d7d617339a41c203c91cbf13c.tar.bz2 | |
A more lenient test; different platforms are more diverse in their correct output.
| -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 2b98975..cc00d49 100644 --- a/tests/platform.test +++ b/tests/platform.test @@ -63,10 +63,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 |