From 7ee8144259922bd9f6f1a73faad8f1ffe55d87bf Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@shill.local>
Date: Mon, 28 Sep 2009 05:42:41 -0500
Subject: [PATCH] alien.parser: fix unit tests

---
 basis/alien/parser/parser-tests.factor | 40 ++++++++++++++------------
 1 file changed, 22 insertions(+), 18 deletions(-)

diff --git a/basis/alien/parser/parser-tests.factor b/basis/alien/parser/parser-tests.factor
index b9ef08e890..195cbb78a2 100644
--- a/basis/alien/parser/parser-tests.factor
+++ b/basis/alien/parser/parser-tests.factor
@@ -1,27 +1,31 @@
 ! (c)2009 Joe Groff bsd license
 USING: accessors alien.c-types alien.parser alien.syntax
-tools.test vocabs.parser ;
+tools.test vocabs.parser parser ;
 IN: alien.parser.tests
 
 TYPEDEF: char char2
 
-[ int ] [ "int" parse-c-type ] unit-test
-[ { int 5 } ] [ "int[5]" parse-c-type ] unit-test
-[ { int 5 10 11 } ] [ "int[5][10][11]" parse-c-type ] unit-test
-[ void* ] [ "int*" parse-c-type ] unit-test
-[ void* ] [ "int**" parse-c-type ] unit-test
-[ void* ] [ "int***" parse-c-type ] unit-test
-[ void* ] [ "int****" parse-c-type ] unit-test
-[ char* ] [ "char*" parse-c-type ] unit-test
-[ void* ] [ "char**" parse-c-type ] unit-test
-[ void* ] [ "char***" parse-c-type ] unit-test
-[ void* ] [ "char****" parse-c-type ] unit-test
-[ char2 ] [ "char2" parse-c-type ] unit-test
-[ char* ] [ "char2*" parse-c-type ] unit-test
-
 SYMBOL: not-c-type
 
-[ "not-c-type" parse-c-type ] [ no-c-type? ] must-fail-with
-! uncomment this when string C type parsing goes away
-! [ "not-word" parse-c-type ] [ error>> no-word-error? ] must-fail-with
+[
+    "alien.parser.tests" use-vocab
+    "alien.c-types" use-vocab
 
+    [ int ] [ "int" parse-c-type ] unit-test
+    [ { int 5 } ] [ "int[5]" parse-c-type ] unit-test
+    [ { int 5 10 11 } ] [ "int[5][10][11]" parse-c-type ] unit-test
+    [ void* ] [ "int*" parse-c-type ] unit-test
+    [ void* ] [ "int**" parse-c-type ] unit-test
+    [ void* ] [ "int***" parse-c-type ] unit-test
+    [ void* ] [ "int****" parse-c-type ] unit-test
+    [ char* ] [ "char*" parse-c-type ] unit-test
+    [ void* ] [ "char**" parse-c-type ] unit-test
+    [ void* ] [ "char***" parse-c-type ] unit-test
+    [ void* ] [ "char****" parse-c-type ] unit-test
+    [ char2 ] [ "char2" parse-c-type ] unit-test
+    [ char* ] [ "char2*" parse-c-type ] unit-test
+
+    [ "not-c-type" parse-c-type ] [ no-c-type? ] must-fail-with
+    [ "not-word" parse-c-type ] [ error>> no-word-error? ] must-fail-with
+
+] with-file-vocabs
\ No newline at end of file