-$val = Net::Z3950::ZOOM::event([$conn]);
-ok($val == 1, "call with an good connection returns its index");
+# Test the sequence of events that come from just creating the
+# connection: there's the physical connect; the sending the Init
+# request (sending the APDU results in sending the data); the
+# receiving of the Init response (receiving the data results in
+# receiving the APDU); then the END "event" indicating that there are
+# no further events on the specific connection we're using; finally,
+# event() will return 0 to indicate that there are no events pending
+# on any of the connections we pass in.
+
+assert_event($conn, Net::Z3950::ZOOM::EVENT_CONNECT);
+assert_event($conn, Net::Z3950::ZOOM::EVENT_SEND_APDU);
+assert_event($conn, Net::Z3950::ZOOM::EVENT_SEND_DATA);
+assert_event($conn, Net::Z3950::ZOOM::EVENT_RECV_DATA);
+assert_event($conn, Net::Z3950::ZOOM::EVENT_RECV_APDU);
+assert_event($conn, Net::Z3950::ZOOM::EVENT_END);
+assert_event($conn, 0);