diff options
| author | gahr <gahr@gahr.ch> | 2016-06-10 12:10:41 (GMT) |
|---|---|---|
| committer | gahr <gahr@gahr.ch> | 2016-06-10 12:10:41 (GMT) |
| commit | 74cee16544d00f49288f1819fb71e1c5c74ce5ad (patch) | |
| tree | d77bcc9fb09de474104b1fc59dde7cc6c20b4031 /tests/platform.test | |
| parent | 8377ed833a9566731442ef744b419425638d5040 (diff) | |
| parent | 03462e2c1dfc9da26f049ee17a3001df257442e4 (diff) | |
| download | tcl-74cee16544d00f49288f1819fb71e1c5c74ce5ad.zip tcl-74cee16544d00f49288f1819fb71e1c5c74ce5ad.tar.gz tcl-74cee16544d00f49288f1819fb71e1c5c74ce5ad.tar.bz2 | |
Merge trunk
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 c826444..5838a41 100644 --- a/tests/platform.test +++ b/tests/platform.test @@ -51,12 +51,12 @@ test platform-2.1 {tcl_platform(wordSize) indicates size of native word} { test platform-3.1 {CPU ID on Windows/UNIX} \ -constraints testCPUID \ - -body { + -body { set cpudata [testcpuid 0] binary format iii \ [lindex $cpudata 1] \ [lindex $cpudata 3] \ - [lindex $cpudata 2] + [lindex $cpudata 2] } \ -match regexp \ -result {^(?:AuthenticAMD|CentaurHauls|CyrixInstead|GenuineIntel)$} |