factor/extra/tools/annotations/annotations-tests.factor

27 lines
476 B
Factor
Raw Normal View History

2008-02-16 16:54:53 -05:00
USING: tools.test tools.annotations math parser ;
2007-09-20 18:09:08 -04:00
IN: temporary
: foo ;
\ foo watch
[ ] [ foo ] unit-test
2008-02-16 16:54:53 -05:00
! erg's bug
GENERIC: some-generic
M: integer some-generic 1+ ;
[ 4 ] [ 3 some-generic ] unit-test
[ ] [ \ some-generic watch ] unit-test
[ 4 ] [ 3 some-generic ] unit-test
[ ] [ "IN: temporary USE: math M: integer some-generic 1- ;" eval ] unit-test
[ 2 ] [ 3 some-generic ] unit-test
[ ] [ \ some-generic reset ] unit-test
[ 2 ] [ 3 some-generic ] unit-test