factor/library/test/parsing-word.factor

IN: scratchpad

USE: parser
USE: test
USE: words
USE: strings
USE: kernel

DEFER: foo

": foo 2 2 + . ; parsing" eval

[ [ ] ] [ "foo" parse ] unit-test

": foo 2 2 + . ;" eval

[ [ foo ] ] [ "foo" parse ] unit-test

! Test > 1 ( ) comment; only the first one should be used.
[ t ] [
    "a" ": foo ( a ) ( b ) ;" parse drop word
    "stack-effect" word-property str-contains?
] unit-test