49 lines
1.5 KiB
Factor
Executable File
49 lines
1.5 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
|
|
|
|
[ t ] [
|
|
changed-words get assoc-size
|
|
[ ] define-temp drop
|
|
changed-words get assoc-size =
|
|
] unit-test
|
|
|
|
parse-hook get [
|
|
DEFER: foo \ foo reset-generic
|
|
DEFER: bar \ bar reset-generic
|
|
|
|
[ ] [ \ foo [ 1 2 ] define-compound ] unit-test
|
|
{ 0 2 } [ foo ] unit-test-effect
|
|
[ ] [ \ foo compile ] unit-test
|
|
[ ] [ \ bar [ foo foo ] define-compound ] unit-test
|
|
[ ] [ \ bar compile ] unit-test
|
|
[ ] [ \ foo [ 1 2 3 ] define-compound ] unit-test
|
|
[ t ] [ \ bar changed-words get key? ] unit-test
|
|
[ ] [ recompile ] unit-test
|
|
{ 0 3 } [ foo ] unit-test-effect
|
|
[ f ] [ \ bar changed-words get key? ] unit-test
|
|
[ ] [ \ bar [ 1 2 ] define-compound ] unit-test
|
|
[ t ] [ \ bar changed-words get key? ] unit-test
|
|
[ ] [ recompile ] unit-test
|
|
{ 0 2 } [ bar ] unit-test-effect
|
|
[ f ] [ \ bar changed-words get key? ] unit-test
|
|
[ ] [ \ foo [ 1 2 3 ] define-compound ] unit-test
|
|
[ f ] [ \ bar changed-words get key? ] unit-test
|
|
[ ] [ \ bar [ 1 2 3 ] define-compound ] unit-test
|
|
[ t ] [ \ bar changed-words get key? ] unit-test
|
|
[ ] [ [ \ bar forget ] with-compilation-unit ] unit-test
|
|
[ f ] [ \ bar changed-words get key? ] unit-test
|
|
|
|
: xy ;
|
|
: yx xy ;
|
|
|
|
\ yx compile
|
|
|
|
\ xy [ 1 ] define-compound
|
|
|
|
[ ] [ recompile ] unit-test
|
|
|
|
[ 1 ] [ yx ] unit-test
|
|
] when
|