2009-02-11 19:58:42 -05:00
|
|
|
USING: accessors annotations combinators.short-circuit
|
|
|
|
|
io.pathnames kernel math sequences sorting tools.test ;
|
2009-02-11 19:42:01 -05:00
|
|
|
IN: annotations.tests
|
|
|
|
|
|
2015-07-02 13:34:01 -04:00
|
|
|
!NOTE testing toplevel form
|
2009-02-11 19:58:42 -05:00
|
|
|
|
2009-02-11 19:42:01 -05:00
|
|
|
: three ( -- x )
|
2009-02-11 19:58:42 -05:00
|
|
|
!BROKEN english plz
|
|
|
|
|
"þrij" ;
|
2009-02-11 19:42:01 -05:00
|
|
|
|
|
|
|
|
: four ( -- x )
|
|
|
|
|
!BROKEN this code is broken
|
2009-08-13 20:21:44 -04:00
|
|
|
2 2 + 1 + ;
|
2009-02-11 19:42:01 -05:00
|
|
|
|
|
|
|
|
: five ( -- x )
|
|
|
|
|
!TODO return 5
|
|
|
|
|
f ;
|
|
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ t } [
|
2009-02-11 19:58:42 -05:00
|
|
|
NOTEs {
|
|
|
|
|
[ length 1 = ]
|
|
|
|
|
[ first string>> file-name "annotations-tests.factor" = ]
|
|
|
|
|
} 1&&
|
|
|
|
|
] unit-test
|
|
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ t } [
|
2009-10-28 13:50:18 -04:00
|
|
|
BROKENs { [ \ four swap member? ] [ \ three swap member? ] } 1&&
|
|
|
|
|
] unit-test
|
|
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ t } [ TODOs \ five swap member? ] unit-test
|
