factor/library/compiler/test/simple.factor

USE: compiler
USE: test
USE: math
USE: kernel
USE: words
USE: kernel
USE: math-internals
USE: memory
IN: temporary

: no-op ;

[ ] [ no-op ] unit-test

: literals 3 5 ;

: tail-call fixnum+ ;

[ 4 ] [ 1 3 tail-call ] unit-test

[ 3 5 ] [ literals ] unit-test

: literals&tail-call 3 5 fixnum+ ;

[ 8 ] [ literals&tail-call ] unit-test

: two-calls dup fixnum* ;

[ 25 ] [ 5 two-calls ] unit-test

: mix-test 3 5 fixnum+ 6 fixnum* ;

[ 48 ] [ mix-test ] unit-test

: indexed-literal-test "hello world" ;

full-gc
full-gc

[ "hello world" ] [ indexed-literal-test ] unit-test

: foo dup [ dup [ ] [ ] if drop ] [ drop ] if ;

[ 10 ] [ 10 2 foo ] unit-test

: foox dup [ foox ] when ; inline
: bar foox ;