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 6BEGIN { 7 unless (eval "require Socket") { 8 print "1..0 \# Skip: no Socket\n"; 9 exit; 10 } 11} 12 13use Test; 14BEGIN { plan tests => 1; $loaded = 0} 15END { ok $loaded;} 16 17# Just make sure everything compiles 18use 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): 27