basis/compiler/tests/generic.factor

   1 USING: tools.test math kernel compiler.units definitions ;
   2 IN: compiler.tests.generic
   3
   4 GENERIC: bad ( -- )
   5 M: integer bad ;
   6 M: object bad ;
   7
   8 [ 0 bad ] must-fail
   9 [ "" bad ] must-fail
  10
  11 [ ] [ [ \ bad forget ] with-compilation-unit ] unit-test