From 9eaf91de16747fd342ac82c47ae7db75fe82bd47 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 29 Aug 2012 17:59:07 -0700
Subject: [PATCH] literate: adding some tests.

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

diff --git a/extra/literate/literate-tests.factor b/extra/literate/literate-tests.factor
new file mode 100644
index 0000000000..448e68c2dd
--- /dev/null
+++ b/extra/literate/literate-tests.factor
@@ -0,0 +1,12 @@
+USING: eval kernel math tools.test ;
+IN: literate
+
+{ 2 3 t } [
+<LITERATE
+1
+> 2
+>   3
+blah
+>     2dup 1 - =
+LITERATE>
+] unit-test