From 35707596e9a39b36e3068f193fc061ea303dfa88 Mon Sep 17 00:00:00 2001 From: mike Date: Tue, 10 Oct 2006 16:51:02 +0000 Subject: [PATCH] Use new Connection::create() API that accepts options directly. --- t/29-events.t | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/t/29-events.t b/t/29-events.t index adc257a..8a5d3f5 100644 --- a/t/29-events.t +++ b/t/29-events.t @@ -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'"); -- 1.7.10.4