annotations tests

2009-02-11 18:42:01 -06:00 · 2009-02-11 18:42:01 -06:00 · 6c723642bd
parent a3115d0215
commit 6c723642bd
1 changed files with 17 additions and 0 deletions
--- a/extra/annotations/annotations-tests.factor
+++ b/extra/annotations/annotations-tests.factor
@ -0,0 +1,17 @@
+USING: annotations math sorting tools.test ;
+IN: annotations.tests
+
+: three ( -- x )
+    !BROKEN find a dictionary
+    "threa" ;
+
+: four ( -- x )
+    !BROKEN this code is broken
+    2 2 + 1+ ;
+
+: five ( -- x )
+    !TODO return 5
+    f ;
+
+[ { four three } ] [ BROKENs natural-sort ] unit-test
+[ { five } ] [ TODOs ] unit-test