2008-03-01 17:00:45 -05:00
|
|
|
IN: bootstrap.image.tests
|
2008-04-29 02:49:06 -04:00
|
|
|
USING: bootstrap.image bootstrap.image.private tools.test
|
|
|
|
|
kernel math ;
|
2007-12-26 21:37:18 -05:00
|
|
|
|
|
|
|
|
\ ' must-infer
|
|
|
|
|
\ write-image must-infer
|
2008-04-29 02:49:06 -04:00
|
|
|
|
|
|
|
|
[ f ] [ { 1 2 3 } [ 1 2 3 ] eql? ] unit-test
|
|
|
|
|
|
|
|
|
|
[ t ] [ [ 1 2 3 ] [ 1 2 3 ] eql? ] unit-test
|
|
|
|
|
|
|
|
|
|
[ f ] [ [ 2drop 0 ] [ 2drop 0.0 ] eql? ] unit-test
|
|
|
|
|
|
|
|
|
|
[ t ] [ [ 2drop 0 ] [ 2drop 0 ] eql? ] unit-test
|
|
|
|
|
|
|
|
|
|
[ f ] [ \ + [ 2drop 0 ] eql? ] unit-test
|
|
|
|
|
|
|
|
|
|
[ f ] [ 3 [ 0 1 2 ] eql? ] unit-test
|
|
|
|
|
|
|
|
|
|
[ f ] [ 3 3.0 eql? ] unit-test
|
|
|
|
|
|
|
|
|
|
[ t ] [ 4.0 4.0 eql? ] unit-test
|
