14 lines
406 B
Factor
14 lines
406 B
Factor
! Unit tests for vocabs vocabulary
|
|
USING: vocabs tools.test ;
|
|
IN: vocabs.tests
|
|
|
|
[ f ] [ "kernel" vocab-main ] unit-test
|
|
|
|
[ t ] [ "" "" child-vocab? ] unit-test
|
|
[ t ] [ "" "io.files" child-vocab? ] unit-test
|
|
[ t ] [ "io" "io.files" child-vocab? ] unit-test
|
|
[ f ] [ "io.files" "io" child-vocab? ] unit-test
|
|
|
|
[ t ] [ "io.files" "io" parent-vocab? ] unit-test
|
|
[ f ] [ "io" "io.files" parent-vocab? ] unit-test
|