extra/tools/annotations/annotations-tests.factor

   1 USING: tools.test tools.annotations math parser ;
   2 IN: tools.annotations.tests
   3
   4 : foo ;
   5 \ foo watch
   6
   7 [ ] [ foo ] unit-test
   8
   9 ! erg's bug
  10 GENERIC: some-generic ( a -- b )
  11
  12 M: integer some-generic 1+ ;
  13
  14 [ 4 ] [ 3 some-generic ] unit-test
  15
  16 [ ] [ \ some-generic watch ] unit-test
  17
  18 [ 4 ] [ 3 some-generic ] unit-test
  19
  20 [ ] [ "IN: tools.annotations.tests USE: math M: integer some-generic 1- ;" eval ] unit-test
  21
  22 [ 2 ] [ 3 some-generic ] unit-test
  23
  24 [ ] [ \ some-generic reset ] unit-test
  25
  26 [ 2 ] [ 3 some-generic ] unit-test