factor/library/test/compiler/generic.factor

48 lines
1.1 KiB
Factor
Raw Normal View History

2004-10-01 22:02:54 -04:00
IN: scratchpad
USE: compiler
2004-12-18 23:35:20 -05:00
USE: generic
2004-10-01 22:02:54 -04:00
USE: test
USE: math
USE: kernel
USE: words
GENERIC: single-combination-test
M: object single-combination-test drop ;
M: f single-combination-test nip ;
\ single-combination-test compile
2004-10-01 22:02:54 -04:00
2004-12-18 23:35:20 -05:00
[ 2 3 ] [ 2 3 t single-combination-test ] unit-test
[ 2 3 ] [ 2 3 4 single-combination-test ] unit-test
[ 2 f ] [ 2 3 f single-combination-test ] unit-test
2004-10-01 22:02:54 -04:00
2004-12-18 23:35:20 -05:00
DEFER: single-combination-test-2
2004-10-01 22:02:54 -04:00
2004-12-18 23:35:20 -05:00
: single-combination-test-4
dup [ single-combination-test-2 ] when ;
2004-10-01 22:02:54 -04:00
2004-12-18 23:35:20 -05:00
: single-combination-test-3
2004-10-01 22:02:54 -04:00
drop 3 ;
GENERIC: single-combination-test-2
M: object single-combination-test-2 single-combination-test-3 ;
M: f single-combination-test-2 single-combination-test-4 ;
\ single-combination-test-2 compile
2004-10-01 22:02:54 -04:00
2004-12-18 23:35:20 -05:00
[ 3 ] [ t single-combination-test-2 ] unit-test
[ 3 ] [ 3 single-combination-test-2 ] unit-test
[ f ] [ f single-combination-test-2 ] unit-test
2005-02-25 17:25:40 -05:00
GENERIC: broken-generic
M: fixnum broken-generic 1.0 * broken-generic ;
M: float broken-generic neg ;
: broken-partial-eval 5 broken-generic ;
\ broken-partial-eval compile
[ -5.0 ] [ broken-partial-eval ] unit-test