Use new Connection::create() API that accepts options directly.
authormike <mike>
Tue, 10 Oct 2006 16:51:02 +0000 (16:51 +0000)
committermike <mike>
Tue, 10 Oct 2006 16:51:02 +0000 (16:51 +0000)
t/29-events.t

index adc257a..8a5d3f5 100644 (file)
@@ -1,4 +1,4 @@
-# $Id: 29-events.t,v 1.1 2006-04-12 12:16:45 mike Exp $
+# $Id: 29-events.t,v 1.2 2006-10-10 16:51:02 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'
@@ -14,11 +14,8 @@ ok(ZOOM::event_str(ZOOM::Event::CONNECT) eq "connect",
 
 my($errcode, $errmsg, $addinfo) = (undef, "dummy", "dummy");
 
-my $options = new ZOOM::Options();
-$options->option(async => 1);
-
 my $host = "indexdata.com/gils";
-my $conn = create ZOOM::Connection($options);
+my $conn = create ZOOM::Connection(async => 1);
 eval { $conn->connect($host) };
 ok(!$@, "connection to '$host'");