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 [ t ] [
  27     BROKENs { [ \ four swap member? ] [ \ three swap member? ] } 1&&
  28 ] unit-test
  29
  30 [ t ] [ TODOs \ five swap member? ] unit-test