basis/bootstrap/image/image-tests.factor

   1 USING: bootstrap.image bootstrap.image.private tools.test
   2 kernel math ;
   3 IN: bootstrap.image.tests
   4
   5 { f } [ { 1 2 3 } [ 1 2 3 ] eql? ] unit-test
   6
   7 { t } [ [ 1 2 3 ] [ 1 2 3 ] eql? ] unit-test
   8
   9 { f } [ [ 2drop 0 ] [ 2drop 0.0 ] eql? ] unit-test
  10
  11 { t } [ [ 2drop 0 ] [ 2drop 0 ] eql? ] unit-test
  12
  13 { f } [ \ + [ 2drop 0 ] eql? ] unit-test
  14
  15 { f } [ 3 [ 0 1 2 ] eql? ] unit-test
  16
  17 { f } [ 3 3.0 eql? ] unit-test
  18
  19 { t } [ 4.0 4.0 eql? ] unit-test