X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;f=t%2F2-parser.t;h=ca074988363dfe1af6ceea6406bd0242af9e2035;hb=1d1b1bc97ba35822bb496f34525b0513e28b2066;hp=40c421edcea5acd6051a7ae5856db4943a232d86;hpb=60fcd0e8335a55566ca4703eb56f49ed6b9c715d;p=perl-pqf.git

diff --git a/t/2-parser.t b/t/2-parser.t
index 40c421e..ca07498 100644
--- 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.4 2004-12-23 10:24:12 mike Exp $
 
 use strict;
 use warnings;
@@ -12,6 +12,8 @@ BEGIN {
 		"term: brian" ],
 	      [ '"brian kernighan"',
 		"term: brian kernighan" ],
+	      [ '{brian kernighan}',
+		"term: brian kernighan" ],
 	      [ '@attr 1=1003 brian',
 		"term: brian\n\tattr: bib-1 1=1003" ],
 	      [ '@attr 1=1003 "brian"',
@@ -20,6 +22,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',