factor/extra/annotations/annotations-tests.factor

28 lines
547 B
Factor

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