USING: accessors annotations combinators.short-circuit
io.pathnames kernel math sequences sorting tools.test ;
IN: annotations.tests

!NOTE testing toplevel form 

: three ( -- x )
    !BROKEN english plz
    "þrij" ;

: four ( -- x )
    !BROKEN this code is broken
    2 2 + 1+ ;

: five ( -- x )
    !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