bindings/perl/t/Oping.t

   1 # Before `make install' is performed this script should be runnable with
   2 # `make test'. After `make install' it should work as `perl Oping.t'
   3
   4 #########################
   5
   6 # change 'tests => 2' to 'tests => last_test_to_print';
   7
   8 use Test::More tests => 2;
   9 BEGIN { use_ok('Net::Oping') };
  10
  11 my $obj = Net::Oping->new ();
  12 ok (defined ($obj), 'Constructor');
  13 #########################
  14
  15 # Insert your test code below, the Test::More module is use()ed here so read
  16 # its man page ( perldoc Test::More ) for help writing this test script.
  17