2012-09-18 21:40:29 -04:00
|
|
|
USING: cpu.x86.features tools.test kernel sequences math math.order
|
|
|
|
|
strings system io.binary ;
|
2009-08-13 20:21:44 -04:00
|
|
|
IN: cpu.x86.features.tests
|
2009-05-31 16:02:14 -04:00
|
|
|
|
2012-09-18 21:40:29 -04:00
|
|
|
[ t ] [ sse-version 0 42 between? ] unit-test
|
|
|
|
|
[ t ] [ [ 10000 [ ] times ] count-instructions integer? ] unit-test
|
|
|
|
|
|
2012-09-19 11:48:14 -04:00
|
|
|
{ t }
|
|
|
|
|
[
|
|
|
|
|
0 cpuid [ 4 >le ] map { 1 3 2 } swap nths concat >string
|
|
|
|
|
{ "GenuineIntel" "AuthenticAMD" } member?
|
|
|
|
|
] unit-test
|
