t/19-events.t

   1 # $Id: 19-events.t,v 1.1 2006-04-06 12:50:19 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 19-events.t'
   5
   6 use strict;
   7 use warnings;
   8 use Test::More tests => 7;
   9
  10 BEGIN { use_ok('Net::Z3950::ZOOM') };
  11
  12 my($errcode, $errmsg, $addinfo) = (undef, "dummy", "dummy");
  13
  14 my $host = "indexdata.com/gils";
  15 my $conn = Net::Z3950::ZOOM::connection_new($host, 0);
  16 $errcode = Net::Z3950::ZOOM::connection_error($conn, $errmsg, $addinfo);
  17 ok($errcode == 0, "connection to '$host'");
  18
  19 #my $options = Net::Z3950::ZOOM::options_create();
  20 my $val = Net::Z3950::ZOOM::event(1);
  21 ok($val == -1, "non-reference argument rejected");
  22
  23 $val = Net::Z3950::ZOOM::event($conn);
  24 ok($val == -2, "non-array reference argument rejected");
  25
  26 $val = Net::Z3950::ZOOM::event([]);
  27 ok($val == -3, "empty array reference argument rejected");
  28
  29 $val = Net::Z3950::ZOOM::event([1..32767]);
  30 ok($val == -4, "huge array reference argument rejected");
  31
  32 $val = Net::Z3950::ZOOM::event([$conn]);
  33 ok($val == 0, "call with single connection does nothing");
  34
  35 ### Now we need to actually do something.