X-Git-Url: http://lists.indexdata.dk/cgi-bin?a=blobdiff_plain;f=t%2F2-parser.t;h=74801994163d1f383d85c6eb3bb17bf3b730918e;hb=3401abe45a0a32a9ce67cfb6bcd74318daf36980;hp=40c421edcea5acd6051a7ae5856db4943a232d86;hpb=99c1266d6be66e0af4b74331d403d3be330a2b05;p=perl-pqf.git

diff --git a/t/2-parser.t b/t/2-parser.t
index 40c421e..7480199 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.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',