From c41e60ae714c6cddaa06ca51c4ad4fb79b476691 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Fri, 17 Dec 2004 15:30:39 +0000 Subject: [PATCH] Remove (trivial) tests relating to parser. --- t/1.t | 13 ++----------- 1 file changed, 2 insertions(+), 11 deletions(-) diff --git a/t/1.t b/t/1.t index c83f2a7..7b842d7 100644 --- a/t/1.t +++ b/t/1.t @@ -1,4 +1,4 @@ -# $Id: 1.t,v 1.2 2004-12-17 15:29:33 mike Exp $ +# $Id: 1.t,v 1.3 2004-12-17 15:30:39 mike Exp $ # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl 1.t' @@ -9,12 +9,9 @@ use strict; use warnings; -use Test::More tests => 12; +use Test::More tests => 11; BEGIN { use_ok('Net::Z3950::PQF') }; -my $parser = new Net::Z3950::PQF(); -ok(defined $parser, "created parser"); - my $term1 = new Net::Z3950::PQF::TermNode('unix'); ok(defined $term1, "created simple term node"); my $text = $term1->render(0); @@ -66,9 +63,3 @@ and attr: bib-1 5=1 __EOT__ ok($text eq $wanted, "rendered and node"); - - -#my $query = '@and @attr 1=1003 kernighan @attr 1=4 unix'; -#my $top = $parser->parse($query); -#ok(defined $top, "parsed query"); - -- 1.7.10.4