-# $Id: 19-events.t,v 1.8 2007-02-22 20:38:11 mike Exp $
-
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl 19-events.t'
# on any of the connections we pass in.
assert_event_stream($conn,
- Net::Z3950::ZOOM::EVENT_CONNECT,
+ -(Net::Z3950::ZOOM::EVENT_CONNECT),
Net::Z3950::ZOOM::EVENT_SEND_APDU,
Net::Z3950::ZOOM::EVENT_SEND_DATA,
Net::Z3950::ZOOM::EVENT_RECV_DATA,