projects
/
perl-pqf.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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;
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" ],
"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',
[ '@or brian dennis',
"or\n\tterm: brian\n\tterm: dennis" ],
[ '@or ken @and brian dennis',