Adding compound test...

git-svn-id: file:///Volumes/EnMasse/svnroot/Parse-BNF/trunk@49 a6b267a2-8f62-4c46-b07c-677a4f9229da
drforr · Oct 14, 2008 · c110d76 · c110d76
1 parent 59c49a4
commit c110d76
Showing 1 changed file with 9 additions and 2 deletions.
diff --git a/t/02.parser.t b/t/02.parser.t
@@ -1,4 +1,4 @@
-use Test::More tests => 5;
+use Test::More tests => 6;
 
 BEGIN
   {
@@ -43,5 +43,12 @@ is_deeply
   (
   parse( q{<A>::=<b><c>|<d>} ),
   { A => [ [ 'b', 'c' ], [ 'd' ] ] },
-  q{<A>::=<b><c>}
+  q{<A>::=<b><c>|<d>}
+  );
+
+is_deeply
+  (
+  parse( qq{<A>::=<b><c>|<d>\n\n<B>::='c'} ),
+  { A => [ [ 'b', 'c' ], [ 'd' ] ], B => [ [ q{'c'} ] ] },
+  q{<A>::=<b><c>|<d>\n\n<B>::='c'}
   );