New

diff --git a/t/2-parser.t b/t/2-parser.t
new file mode 100644 (file)
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");
+