factor/extra/annotations/annotations-tests.factor

31 lines
597 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
[ t ] [
BROKENs { [ \ four swap member? ] [ \ three swap member? ] } 1&&
] unit-test
[ t ] [ TODOs \ five swap member? ] unit-test