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