t/2-parser.t

   1 # $Id: 2-parser.t,v 1.1 2004-12-17 15:34:09 mike Exp $
   2
   3 use strict;
   4 use warnings;
   5 use Test::More tests => 2;
   6 BEGIN { use_ok('Net::Z3950::PQF') };
   7
   8 my $parser = new Net::Z3950::PQF();
   9 ok(defined $parser, "created parser");
  10
  11 #my $query = '@and @attr 1=1003 kernighan @attr 1=4 unix';
  12 #my $top = $parser->parse($query);
  13 #ok(defined $top, "parsed query");
  14