From 9f97ae2b0c348304be99b08191b8bd2d3ddf047a Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 25 Apr 2008 01:54:42 -0500
Subject: [PATCH] add unit test for parser

---
 core/parser/parser-tests.factor | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/core/parser/parser-tests.factor b/core/parser/parser-tests.factor
index ab193e1c02..20d51f3461 100755
--- a/core/parser/parser-tests.factor
+++ b/core/parser/parser-tests.factor
@@ -3,6 +3,7 @@ io.streams.string namespaces classes effects source-files
 assocs sequences strings io.files definitions continuations
 sorting classes.tuple compiler.units debugger vocabs
 vocabs.loader accessors ;
+
 IN: parser.tests
 
 [
@@ -429,3 +430,5 @@ must-fail-with
 [
     "USE: this-better-not-exist" eval
 ] must-fail
+
+[ ": foo ;" eval ] [ error>> no-current-vocab? ] must-fail-with