13 lines
417 B
Factor
13 lines
417 B
Factor
IN: vocabs.hierarchy.tests
|
|
USING: continuations namespaces tools.test vocabs.hierarchy vocabs.hierarchy.private ;
|
|
|
|
[ ] [
|
|
changed-vocabs get-global
|
|
f changed-vocabs set-global
|
|
[ t ] [ "kernel" changed-vocab? ] unit-test
|
|
[ "kernel" changed-vocab ] [ changed-vocabs set-global ] [ ] cleanup
|
|
] unit-test
|
|
|
|
[ t ] [ "some-vocab" valid-vocab-dirname ] unit-test
|
|
[ f ] [ ".git" valid-vocab-dirname ] unit-test
|