52 lines
1.2 KiB
Factor
Executable File
52 lines
1.2 KiB
Factor
Executable File
USING: compiler definitions generic assocs inference math
|
|
namespaces parser tools.test words kernel sequences arrays io
|
|
effects tools.test.inference ;
|
|
IN: temporary
|
|
|
|
DEFER: b
|
|
DEFER: c
|
|
|
|
[ ] [ "IN: temporary : a 1 2 ; : b a a ;" eval ] unit-test
|
|
|
|
[ 1 2 1 2 ] [ "USE: temporary b" eval ] unit-test
|
|
|
|
{ 0 4 } [ b ] unit-test-effect
|
|
|
|
[ ] [ "IN: temporary : a 1 2 3 ;" eval ] unit-test
|
|
|
|
[ 1 2 3 1 2 3 ] [ "USE: temporary b" eval ] unit-test
|
|
|
|
{ 0 6 } [ b ] unit-test-effect
|
|
|
|
\ b word-xt "b-xt" set
|
|
|
|
[ ] [ "IN: temporary : c b ;" eval ] unit-test
|
|
|
|
[ t ] [ "b-xt" get \ b word-xt = ] unit-test
|
|
|
|
\ c word-xt "c-xt" set
|
|
|
|
[ ] [ "IN: temporary : a 1 2 4 ;" eval ] unit-test
|
|
|
|
[ t ] [ "c-xt" get \ c word-xt = ] unit-test
|
|
|
|
[ 1 2 4 1 2 4 ] [ "USE: temporary c" eval ] unit-test
|
|
|
|
[ ] [ "IN: temporary : a 1 2 ;" eval ] unit-test
|
|
|
|
{ 0 4 } [ c ] unit-test-effect
|
|
|
|
[ f ] [ "c-xt" get \ c word-xt = ] unit-test
|
|
|
|
[ 1 2 1 2 ] [ "USE: temporary c" eval ] unit-test
|
|
|
|
[ ] [ "IN: temporary : d 3 ; inline" eval ] unit-test
|
|
|
|
[ ] [ "IN: temporary : e d d ;" eval ] unit-test
|
|
|
|
[ 3 3 ] [ "USE: temporary e" eval ] unit-test
|
|
|
|
[ ] [ "IN: temporary : d 4 ; inline" eval ] unit-test
|
|
|
|
[ 4 4 ] [ "USE: temporary e" eval ] unit-test
|