Support for Rset nodes and forparsing @set, test scripts

[perl-pqf.git] / t / 2-parser.t

diff --git a/t/2-parser.t b/t/2-parser.t
index 40c421e..7480199 100644 (file)
--- a/t/2-parser.t
+++ b/t/2-parser.t
@@ -1,4 +1,4 @@
-# $Id: 2-parser.t,v 1.2 2004-12-17 16:56:59 mike Exp $
+# $Id: 2-parser.t,v 1.3 2004-12-20 09:46:58 mike Exp $
 
 use strict;
 use warnings;
@@ -20,6 +20,10 @@ BEGIN {
                "term: brian\n\tattr: bib-1 1=1003\n\tattr: bib-1 2=3" ],
              [ '@and brian dennis',
                "and\n\tterm: brian\n\tterm: dennis" ],
+             [ '@set foo123',
+               "rset: foo123" ],
+             [ '@attr 1=1003 @set foo123',
+               "rset: foo123\n\tattr: bib-1 1=1003" ],
              [ '@or brian dennis',
                "or\n\tterm: brian\n\tterm: dennis" ],
              [ '@or ken @and brian dennis',