t/19-events.t

   1 # $Id: 19-events.t,v 1.2 2006-04-07 11:47:33 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 $options = Net::Z3950::ZOOM::options_create();
  15 Net::Z3950::ZOOM::options_set($options, async => 1);
  16
  17 my $host = "indexdata.com/gils";
  18 my $conn = Net::Z3950::ZOOM::connection_create($options);
  19 Net::Z3950::ZOOM::connection_connect($conn, $host, 0);
  20 $errcode = Net::Z3950::ZOOM::connection_error($conn, $errmsg, $addinfo);
  21 ok($errcode == 0, "connection to '$host'");
  22
  23 my $val = Net::Z3950::ZOOM::event(1);
  24 ok($val == -1, "non-reference argument rejected");
  25
  26 $val = Net::Z3950::ZOOM::event($conn);
  27 ok($val == -2, "non-array reference argument rejected");
  28
  29 $val = Net::Z3950::ZOOM::event([]);
  30 ok($val == -3, "empty array reference argument rejected");
  31
  32 $val = Net::Z3950::ZOOM::event([1..32767]);
  33 ok($val == -4, "huge array reference argument rejected");
  34
  35 $val = Net::Z3950::ZOOM::event([$conn]);
  36 ok($val == 1, "call with an good connection returns its index");
  37
  38 ### Now we need to actually do something.