summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2015-10-24 16:02:32 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2015-10-24 16:02:32 (GMT)
commit4baed0fef3ccae5d7d617339a41c203c91cbf13c (patch)
tree6051ec1feef28dcdff96573f743d5400f278ce12
parentccc9970e65e75dc95fd697a5f31f622217ed8ccb (diff)
parent042f85a7d6565407ef15942699cb0e1d2f28330e (diff)
downloadtcl-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.test4
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