2009-02-11 19:58:42 -05:00
|
|
|
USING: accessors annotations combinators.short-circuit
|
|
|
|
|
io.pathnames kernel math sequences sorting tools.test ;
|
2009-02-11 19:42:01 -05:00
|
|
|
IN: annotations.tests
|
|
|
|
|
|
2009-02-11 19:58:42 -05:00
|
|
|
!NOTE testing toplevel form
|
|
|
|
|
|
2009-02-11 19:42:01 -05:00
|
|
|
: three ( -- x )
|
2009-02-11 19:58:42 -05:00
|
|
|
!BROKEN english plz
|
|
|
|
|
"þrij" ;
|
2009-02-11 19:42:01 -05:00
|
|
|
|
|
|
|
|
: four ( -- x )
|
|
|
|
|
!BROKEN this code is broken
|
|
|
|
|
2 2 + 1+ ;
|
|
|
|
|
|
|
|
|
|
: five ( -- x )
|
|
|
|
|
!TODO return 5
|
|
|
|
|
f ;
|
|
|
|
|
|
2009-02-11 19:58:42 -05:00
|
|
|
[ t ] [
|
|
|
|
|
NOTEs {
|
|
|
|
|
[ length 1 = ]
|
|
|
|
|
[ first string>> file-name "annotations-tests.factor" = ]
|
|
|
|
|
} 1&&
|
|
|
|
|
] unit-test
|
|
|
|
|
|
2009-02-11 19:42:01 -05:00
|
|
|
[ { four three } ] [ BROKENs natural-sort ] unit-test
|
|
|
|
|
[ { five } ] [ TODOs ] unit-test
|
