projects
/
ZOOM-Perl-moved-to-github.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
a093850
)
Use new Connection::create() API that doesn't need vacuous options.
author
mike
<mike>
Tue, 10 Oct 2006 16:50:38 +0000
(16:50 +0000)
committer
mike
<mike>
Tue, 10 Oct 2006 16:50:38 +0000
(16:50 +0000)
t/2-ZOOM.t
patch
|
blob
|
history
diff --git
a/t/2-ZOOM.t
b/t/2-ZOOM.t
index
cba0e4d
..
fcf7619
100644
(file)
--- a/
t/2-ZOOM.t
+++ b/
t/2-ZOOM.t
@@
-1,4
+1,4
@@
-# $Id: 2-ZOOM.t,v 1.9 2005-11-16 16:25:02 mike Exp $
+# $Id: 2-ZOOM.t,v 1.10 2006-10-10 16:50:38 mike Exp $
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl 2-ZOOM.t'
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl 2-ZOOM.t'
@@
-25,8
+25,7
@@
ok(!$@, "connection to '$host'");
$conn->destroy();
ok(1, "destroyed connection");
$conn->destroy();
ok(1, "destroyed connection");
-my $options = new ZOOM::Options();
-eval { $conn = create ZOOM::Connection($options) };
+eval { $conn = create ZOOM::Connection() };
ok(!$@, "unconnected connection object created");
eval { $conn->connect($host, 0) };
ok(!$@, "delayed connection to '$host'");
ok(!$@, "unconnected connection object created");
eval { $conn->connect($host, 0) };
ok(!$@, "delayed connection to '$host'");