USING: kernel parser sequences test words ;
IN: temporary

DEFER: foo

"IN: temporary : foo 2 2 + . ; parsing" eval

[ [ ] ] [ "USE: temporary foo" parse ] unit-test

"IN: temporary : foo 2 2 + . ;" eval

[ [ POSTPONE: foo ] ] [ "USE: temporary foo" parse ] unit-test