extra/annotations/annotations-tests.factor

   1 USING: annotations math sorting tools.test ;
   2 IN: annotations.tests
   3
   4 : three ( -- x )
   5     !BROKEN find a dictionary
   6     "threa" ;
   7
   8 : four ( -- x )
   9     !BROKEN this code is broken
  10     2 2 + 1+ ;
  11
  12 : five ( -- x )
  13     !TODO return 5
  14     f ;
  15
  16 [ { four three } ] [ BROKENs natural-sort ] unit-test
  17 [ { five } ] [ TODOs ] unit-test