1 # $Id: 19-events.t,v 1.2 2006-04-07 11:47:33 mike Exp $
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'
8 use Test::More tests => 7;
10 BEGIN { use_ok('Net::Z3950::ZOOM') };
12 my($errcode, $errmsg, $addinfo) = (undef, "dummy", "dummy");
14 my $options = Net::Z3950::ZOOM::options_create();
15 Net::Z3950::ZOOM::options_set($options, async => 1);
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'");
23 my $val = Net::Z3950::ZOOM::event(1);
24 ok($val == -1, "non-reference argument rejected");
26 $val = Net::Z3950::ZOOM::event($conn);
27 ok($val == -2, "non-array reference argument rejected");
29 $val = Net::Z3950::ZOOM::event([]);
30 ok($val == -3, "empty array reference argument rejected");
32 $val = Net::Z3950::ZOOM::event([1..32767]);
33 ok($val == -4, "huge array reference argument rejected");
35 $val = Net::Z3950::ZOOM::event([$conn]);
36 ok($val == 1, "call with an good connection returns its index");
38 ### Now we need to actually do something.