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 | 56bf715712103efdda0acc21514986fc646fb933 (patch) | |
| tree | f8695b0b70cb4f4cf5e79c08ea8ccee86e061f7e | |
| parent | e8786f83481dd47d804eaf372c6dfd3e6d35d679 (diff) | |
| download | tcl-56bf715712103efdda0acc21514986fc646fb933.zip tcl-56bf715712103efdda0acc21514986fc646fb933.tar.gz tcl-56bf715712103efdda0acc21514986fc646fb933.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 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 |