factor/library/test/combinators.factor

IN: temporary
USE: kernel
USE: math
USE: test
USE: stdio
USE: prettyprint

[ slip ] unit-test-fails
[ 1 slip ] unit-test-fails
[ 1 2 slip ] unit-test-fails
[ 1 2 3 slip ] unit-test-fails

[ 5 ] [ [ 2 2 + ] 1 slip + ] unit-test
[ 6 ] [ [ 2 2 + ] 1 1 2slip + + ] unit-test

[ [ ] keep ] unit-test-fails

[ 6 ] [ 2 [ sq ] keep + ] unit-test

[ [ ] 2keep ] unit-test-fails
[ 1 [ ] 2keep ] unit-test-fails
[ 3 1 2 ] [ 1 2 [ 2drop 3 ] 2keep ] unit-test

[ 0 ] [ f [ sq ] [ 0 ] ifte* ] unit-test
[ 4 ] [ 2 [ sq ] [ 0 ] ifte* ] unit-test

[ 0 ] [ f [ 0 ] unless* ] unit-test
[ t ] [ t [ "Hello" ] unless* ] unit-test

[ "2\n" ] [ [ 1 2 [ . ] [ sq . ] ?ifte ] with-string ] unit-test
[ "9\n" ] [ [ 3 f [ . ] [ sq . ] ?ifte ] with-string ] unit-test
messing around with ffi, various other fixes 2005-03-28 23:45:13 -05:00			`IN: temporary`
First import of Factor 0.60 2004-07-16 02:26:21 -04:00			`USE: kernel`
some bug fixes and ffi updates 2004-09-24 23:22:44 -04:00			`USE: math`
First import of Factor 0.60 2004-07-16 02:26:21 -04:00			`USE: test`
new ?ifte ?unless ?when combinators 2005-01-02 23:57:54 -05:00			`USE: stdio`
			`USE: prettyprint`
First import of Factor 0.60 2004-07-16 02:26:21 -04:00
alien fixes, sdl fixes, lotsa other stuff 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`

throw is primitive in CFactor, working on test suite 2004-10-03 16:07:48 -04:00			`[ 5 ] [ [ 2 2 + ] 1 slip + ] unit-test`
			`[ 6 ] [ [ 2 2 + ] 1 1 2slip + + ] unit-test`
some bug fixes and ffi updates 2004-09-24 23:22:44 -04:00
alien fixes, sdl fixes, lotsa other stuff 2004-10-23 01:15:06 -04:00			`[ [ ] keep ] unit-test-fails`

throw is primitive in CFactor, working on test suite 2004-10-03 16:07:48 -04:00			`[ 6 ] [ 2 [ sq ] keep + ] unit-test`
some bug fixes and ffi updates 2004-09-24 23:22:44 -04:00
a pile of bug fixes and improvements 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`

throw is primitive in CFactor, working on test suite 2004-10-03 16:07:48 -04:00			`[ 0 ] [ f [ sq ] [ 0 ] ifte* ] unit-test`
			`[ 4 ] [ 2 [ sq ] [ 0 ] ifte* ] unit-test`
some bug fixes and ffi updates 2004-09-24 23:22:44 -04:00
throw is primitive in CFactor, working on test suite 2004-10-03 16:07:48 -04:00			`[ 0 ] [ f [ 0 ] unless* ] unit-test`
			`[ t ] [ t [ "Hello" ] unless* ] unit-test`
new ?ifte ?unless ?when combinators 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`