2009-05-01 07:48:33 -04:00
|
|
|
USING: tools.test math kernel compiler.units definitions ;
|
2009-08-13 20:21:44 -04:00
|
|
|
IN: compiler.tests.generic
|
2009-05-01 07:48:33 -04:00
|
|
|
|
|
|
|
|
GENERIC: bad ( -- )
|
|
|
|
|
M: integer bad ;
|
|
|
|
|
M: object bad ;
|
|
|
|
|
|
|
|
|
|
[ 0 bad ] must-fail
|
|
|
|
|
[ "" bad ] must-fail
|
|
|
|
|
|
2009-08-13 20:21:44 -04:00
|
|
|
[ ] [ [ \ bad forget ] with-compilation-unit ] unit-test
|
