1 # $Id: 29-events.t,v 1.1 2006-04-12 12:16:45 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 => 23;
10 BEGIN { use_ok('ZOOM') };
12 ok(ZOOM::event_str(ZOOM::Event::CONNECT) eq "connect",
13 "connect event properly translated");
15 my($errcode, $errmsg, $addinfo) = (undef, "dummy", "dummy");
17 my $options = new ZOOM::Options();
18 $options->option(async => 1);
20 my $host = "indexdata.com/gils";
21 my $conn = create ZOOM::Connection($options);
22 eval { $conn->connect($host) };
23 ok(!$@, "connection to '$host'");
25 ok(1, "non-reference argument rejected");
26 ok(1, "non-array reference argument rejected");
28 my $val = ZOOM::event([]);
29 ok($val == -3, "empty array reference argument rejected");
31 ok(1, "huge array reference argument rejected");
33 # See comments in 19-event.t
34 assert_event_stream($conn,
36 ZOOM::Event::SEND_APDU,
37 ZOOM::Event::SEND_DATA,
38 ZOOM::Event::RECV_DATA,
39 ZOOM::Event::RECV_APDU,
43 $conn->option(count => 1);
45 eval { $rs = $conn->search_pqf("mineral") };
46 ok(!$@, "search for 'mineral'");
48 assert_event_stream($conn,
49 ZOOM::Event::SEND_APDU,
50 ZOOM::Event::SEND_DATA,
51 -(ZOOM::Event::RECV_DATA),
52 ZOOM::Event::RECV_APDU,
53 ZOOM::Event::RECV_SEARCH,
54 ZOOM::Event::RECV_RECORD,
58 # See comments in 19-event.t
59 sub assert_event_stream {
60 my($conn, @expected) = @_;
62 my $previousExpected = -1;
63 my $expected = shift @expected;
64 while (defined $expected) {
65 my $val = ZOOM::event([$conn]);
67 ok($val == 0, "no events left");
68 $expected = shift @expected;
72 die "impossible" if $val != 1;
73 my $ev = $conn->last_event();
74 next if $previousExpected > 0 && $ev == $previousExpected;
77 $expected = -$expected;
78 $previousExpected = $expected;
80 ok($ev == $expected, ("event is $ev (" .
81 ZOOM::event_str($ev) .
82 "), expected $expected (" .
83 ZOOM::event_str($expected) . ")"));
84 $expected = shift @expected;