factor/core/classes/builtin/builtin-tests.factor

IN: classes.builtin.tests
USING: tools.test words sequences kernel memory accessors ;

[ f ] [
    [ word? ] instances
    [
        [ name>> "f?" = ]
        [ vocabulary>> "syntax" = ] bi and
    ] contains?
] unit-test