X-Git-Url: https://git.octo.it/?a=blobdiff_plain;f=bindings%2Fperl%2Ft%2FOping.t;h=e0cff5a72422214a70081eb711cd92523587561d;hb=7ce378718fdb0bb129b10034230bea634e3b456f;hp=63ecfc5e3f97229b503179027eeae3712fe7eed9;hpb=23a712030065e3705b328fd329f7334448c5a00d;p=liboping.git

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