From: Florian Forster <octo@leeloo.lan.home.verplant.org>
Date: Sun, 15 Mar 2009 13:03:15 +0000 (+0100)
Subject: bindings/perl: Add some more simple syntax tests.
X-Git-Tag: Net-Oping-1.10~1
X-Git-Url: https://git.verplant.org/?a=commitdiff_plain;h=7ce378718fdb0bb129b10034230bea634e3b456f;p=liboping.git

bindings/perl: Add some more simple syntax tests.
---

diff --git a/bindings/perl/t/Oping.t b/bindings/perl/t/Oping.t
index 63ecfc5..e0cff5a 100644
--- a/bindings/perl/t/Oping.t
+++ b/bindings/perl/t/Oping.t
@@ -5,11 +5,17 @@
 
 # change 'tests => 2' to 'tests => last_test_to_print';
 
-use Test::More tests => 2;
+use Test::More tests => 5;
 BEGIN { use_ok('Net::Oping') };
 
 my $obj = Net::Oping->new ();
 ok (defined ($obj), 'Constructor');
+
+ok ($obj->timeout (2.0), 'Set timeout');
+ok ($obj->ttl (64), 'Set TTL');
+
+is ($obj->get_error (), 'Success', 'Get error')
+
 #########################
 
 # Insert your test code below, the Test::More module is use()ed here so read