t/1.t

   1 # $Id: 1.t,v 1.3 2004-12-17 15:30:39 mike Exp $
   2
   3 # Before `make install' is performed this script should be runnable with
   4 # `make test'. After `make install' it should work as `perl 1.t'
   5
   6 #########################
   7
   8 # change 'tests => 1' to 'tests => last_test_to_print';
   9
  10 use strict;
  11 use warnings;
  12 use Test::More tests => 11;
  13 BEGIN { use_ok('Net::Z3950::PQF') };
  14
  15 my $term1 = new Net::Z3950::PQF::TermNode('unix');
  16 ok(defined $term1, "created simple term node");
  17 my $text = $term1->render(0);
  18 ok($text eq "term: unix\n", "rendered simple term node");
  19
  20 my $term2 = new Net::Z3950::PQF::TermNode('elements',
  21                                           [ "bib-1", 1, 21 ],
  22                                           [ "bib-1", 2, 3 ]);
  23 ok(defined $term2, "created term node with attrs");
  24 $text = $term2->render(0);
  25 ok($text eq "term: elements\n\tattr: bib-1 1=21\n\tattr: bib-1 2=3\n",
  26         "rendered term node with attrs");
  27
  28 my $or = new Net::Z3950::PQF::OrNode($term1, $term2);
  29 ok(defined $or, "created or node");
  30 $text = $or->render(0);
  31 my $wanted = <<'__EOT__';
  32 or
  33         term: unix
  34         term: elements
  35                 attr: bib-1 1=21
  36                 attr: bib-1 2=3
  37 __EOT__
  38 ok($text eq $wanted, "rendered or node");
  39
  40 my $term3 = new Net::Z3950::PQF::TermNode('kerni',
  41                                           [ "bib-1", 1, 1003 ],
  42                                           [ "bib-1", 2, 3 ],
  43                                           [ "bib-1", 5, 1 ]);
  44 ok(defined $term3, "created third term node");
  45 $text = $term3->render(0);
  46 ok($text eq ("term: kerni\n\tattr: bib-1 1=1003\n" .
  47              "\tattr: bib-1 2=3\n\tattr: bib-1 5=1\n"),
  48    "rendered third term node");
  49
  50 my $and = new Net::Z3950::PQF::AndNode($or, $term3);
  51 ok(defined $and, "created and node");
  52 $text = $and->render(0);
  53 $wanted = <<'__EOT__';
  54 and
  55         or
  56                 term: unix
  57                 term: elements
  58                         attr: bib-1 1=21
  59                         attr: bib-1 2=3
  60         term: kerni
  61                 attr: bib-1 1=1003
  62                 attr: bib-1 2=3
  63                 attr: bib-1 5=1
  64 __EOT__
  65 ok($text eq $wanted, "rendered and node");