basis/bootstrap/image/image-tests.factor

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