Import Tcl 8.6.12
This commit is contained in:
@@ -54,12 +54,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)$}
|
||||
|
||||
Reference in New Issue
Block a user