bindings/perl: Add some more simple syntax tests.
authorFlorian Forster <octo@leeloo.lan.home.verplant.org>
Sun, 15 Mar 2009 13:03:15 +0000 (14:03 +0100)
committerFlorian Forster <octo@leeloo.lan.home.verplant.org>
Sun, 15 Mar 2009 13:17:51 +0000 (14:17 +0100)
bindings/perl/t/Oping.t

index 63ecfc5..e0cff5a 100644 (file)
@@ -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