diff --git a/extra/annotations/annotations-tests.factor b/extra/annotations/annotations-tests.factor index 72fd0f8b74..d5a13e48d8 100644 --- a/extra/annotations/annotations-tests.factor +++ b/extra/annotations/annotations-tests.factor @@ -1,9 +1,12 @@ -USING: annotations math sorting tools.test ; +USING: accessors annotations combinators.short-circuit +io.pathnames kernel math sequences sorting tools.test ; IN: annotations.tests +!NOTE testing toplevel form + : three ( -- x ) - !BROKEN find a dictionary - "threa" ; + !BROKEN english plz + "þrij" ; : four ( -- x ) !BROKEN this code is broken @@ -13,5 +16,12 @@ IN: annotations.tests !TODO return 5 f ; +[ t ] [ + NOTEs { + [ length 1 = ] + [ first string>> file-name "annotations-tests.factor" = ] + } 1&& +] unit-test + [ { four three } ] [ BROKENs natural-sort ] unit-test [ { five } ] [ TODOs ] unit-test diff --git a/extra/annotations/annotations.factor b/extra/annotations/annotations.factor index 5102a36a71..c61250b89d 100644 --- a/extra/annotations/annotations.factor +++ b/extra/annotations/annotations.factor @@ -10,7 +10,7 @@ IN: annotations : (non-annotation-usage) ( word -- usages ) smart-usage - [ { [ word? ] [ vocabulary>> "annotations" = not ] } 1&& ] + [ { [ word? ] [ vocabulary>> "annotations" = ] } 1&& not ] filter ; FUNCTOR: define-annotation ( NAME -- )