basis/specialized-arrays/specialized-arrays-tests.factor

   1 IN: specialized-arrays.tests
   2 USING: tools.test specialized-arrays sequences
   3 specialized-arrays.int speicalized-arrays.bool ;
   4
   5 [ t ] [ { 1 2 3 } >int-array int-array? ] unit-test
   6
   7 [ t ] [ int-array{ 1 2 3 } int-array? ] unit-test
   8
   9 [ 2 ] [ int-array{ 1 2 3 } second ] unit-test
  10
  11 [ t ] [ { t f t } >bool-array underlying>> { 1 0 1 } >int-array underlying>> = ] unit-test