extra/annotations/annotations-tests.factor

   1 USING: accessors annotations combinators.short-circuit
   2 io.pathnames kernel math sequences sorting tools.test ;
   3 IN: annotations.tests
   4
   5 !NOTE testing toplevel form
   6
   7 : three ( -- x )
   8     !BROKEN english plz
   9     "þrij" ;
  10
  11 : four ( -- x )
  12     !BROKEN this code is broken
  13     2 2 + 1+ ;
  14
  15 : five ( -- x )
  16     !TODO return 5
  17     f ;
  18
  19 [ t ] [
  20     NOTEs {
  21         [ length 1 = ]
  22         [ first string>> file-name "annotations-tests.factor" = ]
  23     } 1&&
  24 ] unit-test
  25
  26 [ { four three } ] [ BROKENs natural-sort ] unit-test
  27 [ { five } ] [ TODOs ] unit-test