15 lines
445 B
Factor
15 lines
445 B
Factor
|
USING: hooks kernel tools.test ;
|
||
|
|
IN: hooks.tests
|
||
|
|
|
||
|
|
SYMBOL: test-hook
|
||
|
|
test-hook reset-hook
|
||
|
|
: add-test-hook test-hook add-hook ;
|
||
|
|
[ ] [ test-hook call-hook ] unit-test
|
||
|
|
[ "op called" ] [ "op" [ "op called" ] add-test-hook test-hook call-hook ] unit-test
|
||
|
|
[ "first called" "second called" ] [
|
||
|
|
test-hook reset-hook
|
||
|
|
"second op" [ "second called" ] add-test-hook
|
||
|
|
"first op" [ "first called" ] add-test-hook
|
||
|
|
test-hook call-hook
|
||
|
|
] unit-test
|