bindings/perl: Add some more simple syntax tests.

diff --git a/bindings/perl/t/Oping.t b/bindings/perl/t/Oping.t
index 63ecfc5e3f97229b503179027eeae3712fe7eed9..e0cff5a72422214a70081eb711cd92523587561d 100644 (file)
--- 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