basis/cpu/x86/features/features-tests.factor

   1 USING: cpu.x86.features tools.test kernel sequences math math.order
   2 strings system endian ;
   3 IN: cpu.x86.features.tests
   4
   5 [ t ] [ sse-version 0 42 between? ] unit-test
   6 [ t ] [ [ 10000 [ ] times ] count-instructions integer? ] unit-test
   7
   8 { t }
   9 [
  10     0 cpuid [ 4 >le ] map { 1 3 2 } swap nths concat >string
  11     { "GenuineIntel" "AuthenticAMD" } member?
  12 ] unit-test