2005-03-28 23:45:13 -05:00
|
|
|
IN: temporary
|
2004-07-16 02:26:21 -04:00
|
|
|
USE: kernel
|
2004-09-24 23:22:44 -04:00
|
|
|
USE: math
|
2004-07-16 02:26:21 -04:00
|
|
|
USE: test
|
2005-01-02 23:57:54 -05:00
|
|
|
USE: stdio
|
|
|
|
|
USE: prettyprint
|
2005-04-25 03:33:33 -04:00
|
|
|
USE: namespaces
|
2004-07-16 02:26:21 -04:00
|
|
|
|
2004-10-23 01:15:06 -04:00
|
|
|
[ slip ] unit-test-fails
|
|
|
|
|
[ 1 slip ] unit-test-fails
|
|
|
|
|
[ 1 2 slip ] unit-test-fails
|
|
|
|
|
[ 1 2 3 slip ] unit-test-fails
|
|
|
|
|
|
2004-10-03 16:07:48 -04:00
|
|
|
[ 5 ] [ [ 2 2 + ] 1 slip + ] unit-test
|
2004-09-24 23:22:44 -04:00
|
|
|
|
2004-10-23 01:15:06 -04:00
|
|
|
[ [ ] keep ] unit-test-fails
|
|
|
|
|
|
2004-10-03 16:07:48 -04:00
|
|
|
[ 6 ] [ 2 [ sq ] keep + ] unit-test
|
2004-09-24 23:22:44 -04:00
|
|
|
|
2004-11-08 22:36:51 -05:00
|
|
|
[ [ ] 2keep ] unit-test-fails
|
|
|
|
|
[ 1 [ ] 2keep ] unit-test-fails
|
|
|
|
|
[ 3 1 2 ] [ 1 2 [ 2drop 3 ] 2keep ] unit-test
|
|
|
|
|
|
2004-10-03 16:07:48 -04:00
|
|
|
[ 0 ] [ f [ sq ] [ 0 ] ifte* ] unit-test
|
|
|
|
|
[ 4 ] [ 2 [ sq ] [ 0 ] ifte* ] unit-test
|
2004-09-24 23:22:44 -04:00
|
|
|
|
2004-10-03 16:07:48 -04:00
|
|
|
[ 0 ] [ f [ 0 ] unless* ] unit-test
|
|
|
|
|
[ t ] [ t [ "Hello" ] unless* ] unit-test
|
2005-01-02 23:57:54 -05:00
|
|
|
|
|
|
|
|
[ "2\n" ] [ [ 1 2 [ . ] [ sq . ] ?ifte ] with-string ] unit-test
|
|
|
|
|
[ "9\n" ] [ [ 3 f [ . ] [ sq . ] ?ifte ] with-string ] unit-test
|
2005-04-25 03:33:33 -04:00
|
|
|
|
|
|
|
|
[ [ 9 8 7 6 5 4 3 2 1 ] ]
|
|
|
|
|
[ [ 10 [ , ] [ 1 - dup dup 0 = [ drop f ] when ] while ] make-list nip ]
|
|
|
|
|
unit-test
|
