From 7ce378718fdb0bb129b10034230bea634e3b456f Mon Sep 17 00:00:00 2001 From: Florian Forster Date: Sun, 15 Mar 2009 14:03:15 +0100 Subject: [PATCH] bindings/perl: Add some more simple syntax tests. --- bindings/perl/t/Oping.t | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) 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 -- 2.30.2