factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test

[factor.git] / basis / vocabs / files / files-tests.factor

IN: vocabs.files.tests
USING: tools.test vocabs.files vocabs arrays grouping ;

{ t } [
    "kernel" vocab-files
    "kernel" lookup-vocab vocab-files
    "kernel" <vocab-link> vocab-files
    3array all-equal?
] unit-test