From 6899bb28989f2cf3080fd25d32044c8fd3b636b4 Mon Sep 17 00:00:00 2001
From: James Cash <james.nvc@gmail.com>
Date: Tue, 9 Sep 2008 12:25:14 -0400
Subject: [PATCH] Adding tests for quoted forms in lisp.parser

---
 extra/lisp/parser/parser-tests.factor | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/extra/lisp/parser/parser-tests.factor b/extra/lisp/parser/parser-tests.factor
index d722390f9a..68bda1780a 100644
--- a/extra/lisp/parser/parser-tests.factor
+++ b/extra/lisp/parser/parser-tests.factor
@@ -65,4 +65,12 @@ IN: lisp.parser.tests
    }
 } [
     "(1 (3 4) 2)" lisp-expr
+] unit-test
+    
+{ { T{ lisp-symbol { name "quote" } } { 1 2 3 } } } [
+    "'(1 2 3)" lisp-expr cons>seq
+] unit-test
+    
+{ { T{ lisp-symbol f "quote" } T{ lisp-symbol f "foo" } } } [
+    "'foo" lisp-expr cons>seq
 ] unit-test
\ No newline at end of file