1 # Before `make install' is performed this script should be runnable with
2 # `make test'. After `make install' it should work as `perl 19-events.t'
6 use Test::More tests => 23;
8 BEGIN { use_ok('ZOOM') };
10 ok(ZOOM::event_str(ZOOM::Event::CONNECT) eq "connect",
11 "connect event properly translated");
13 my($errcode, $errmsg, $addinfo) = (undef, "dummy", "dummy");
15 my $host = "z3950.indexdata.com/gils";
16 my $conn = create ZOOM::Connection(async => 1);
17 eval { $conn->connect($host) };
18 ok(!$@, "connection to '$host'");
20 ok(1, "non-reference argument rejected");
21 ok(1, "non-array reference argument rejected");
23 my $val = ZOOM::event([]);
24 ok($val == -3, "empty array reference argument rejected");
26 ok(1, "huge array reference argument rejected");
28 # See comments in 19-event.t
29 assert_event_stream($conn,
31 ZOOM::Event::SEND_APDU,
32 ZOOM::Event::SEND_DATA,
33 ZOOM::Event::RECV_DATA,
34 ZOOM::Event::RECV_APDU,
38 $conn->option(count => 1);
40 eval { $rs = $conn->search_pqf("mineral") };
41 ok(!$@, "search for 'mineral'");
43 assert_event_stream($conn,
44 ZOOM::Event::SEND_APDU,
45 ZOOM::Event::SEND_DATA,
46 -(ZOOM::Event::RECV_DATA),
47 ZOOM::Event::RECV_APDU,
48 ZOOM::Event::RECV_SEARCH,
49 ZOOM::Event::RECV_RECORD,
53 # See comments in 19-event.t
54 sub assert_event_stream {
55 my($conn, @expected) = @_;
57 my $previousExpected = -1;
58 my $expected = shift @expected;
59 while (defined $expected) {
60 my $val = ZOOM::event([$conn]);
62 ok($val == 0, "no events left");
63 $expected = shift @expected;
67 die "impossible" if $val != 1;
68 my $ev = $conn->last_event();
69 next if $previousExpected > 0 && $ev == $previousExpected;
72 $expected = -$expected;
73 $previousExpected = $expected;
75 ok($ev == $expected, ("event is $ev (" .
76 ZOOM::event_str($ev) .
77 "), expected $expected (" .
78 ZOOM::event_str($expected) . ")"));
79 $expected = shift @expected;