From 6c723642bd5ae573ded152c9bee1bdfa50178fd3 Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Wed, 11 Feb 2009 18:42:01 -0600
Subject: [PATCH] annotations tests

---
 extra/annotations/annotations-tests.factor | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 extra/annotations/annotations-tests.factor

diff --git a/extra/annotations/annotations-tests.factor b/extra/annotations/annotations-tests.factor
new file mode 100644
index 0000000000..72fd0f8b74
--- /dev/null
+++ 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