From: Mike Taylor <mike@indexdata.com>
Date: Fri, 17 Dec 2004 15:34:09 +0000 (+0000)
Subject: New
X-Git-Url: http://git.indexdata.com/?p=perl-pqf.git;a=commitdiff_plain;h=816388554f9aa2cac74e7d50c5d00ec2357cb515

New
---

diff --git a/t/2-parser.t b/t/2-parser.t
new file mode 100644
index 0000000..2f2b52c
--- /dev/null
+++ b/t/2-parser.t
@@ -0,0 +1,14 @@
+# $Id: 2-parser.t,v 1.1 2004-12-17 15:34:09 mike Exp $
+
+use strict;
+use warnings;
+use Test::More tests => 2;
+BEGIN { use_ok('Net::Z3950::PQF') };
+
+my $parser = new Net::Z3950::PQF();
+ok(defined $parser, "created parser");
+
+#my $query = '@and @attr 1=1003 kernighan @attr 1=4 unix';
+#my $top = $parser->parse($query);
+#ok(defined $top, "parsed query");
+