ext/Net-Ping/t/100_load.t

   1 # Before `make install' is performed this script should be runnable with
   2 # `make test'. After `make install' it should work as `perl test.t'
   3
   4 ######################### We start with some black magic to print on failure.
   5
   6 BEGIN {
   7   unless (eval "require Socket") {
   8     print "1..0 \# Skip: no Socket\n";
   9     exit;
  10   }
  11 }
  12
  13 use Test;
  14 BEGIN { plan tests => 1; $loaded = 0}
  15 END { ok $loaded;}
  16
  17 # Just make sure everything compiles
  18 use Net::Ping;
  19
  20 $loaded = 1;
  21
  22 ######################### End of black magic.
  23
  24 # Insert your test code below (better if it prints "ok 13"
  25 # (correspondingly "not ok 13") depending on the success of chunk 13
  26 # of the test code):