From 30d70b2d70bdb017b76e6687e7d6f0202c1c07f3 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sat, 18 Jul 2009 07:02:13 -0500
Subject: [PATCH] vocabs.parser: add tests to assert that the correct errors
 get thrown

---
 core/vocabs/parser/parser-tests.factor | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 core/vocabs/parser/parser-tests.factor

diff --git a/core/vocabs/parser/parser-tests.factor b/core/vocabs/parser/parser-tests.factor
new file mode 100644
index 0000000000..b9a3245b34
--- /dev/null
+++ b/core/vocabs/parser/parser-tests.factor
@@ -0,0 +1,10 @@
+IN: vocabs.parser.tests
+USING: vocabs.parser tools.test eval kernel accessors ;
+
+[ "FROM: kernel => doesnotexist ;" eval( -- ) ]
+[ error>> T{ no-word-in-vocab { word "doesnotexist" } { vocab "kernel" } } = ]
+must-fail-with
+
+[ "RENAME: doesnotexist kernel => newname" eval( -- ) ]
+[ error>> T{ no-word-in-vocab { word "doesnotexist" } { vocab "kernel" } } = ]
+must-fail-with
\ No newline at end of file