-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
- 2 2 + 1+ ;
+ 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