100_load.t

来自「source of perl for linux application,」· T 代码 · 共 27 行

# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.t'

######################### We start with some black magic to print on failure.

BEGIN {
  unless (eval "require Socket") {
    print "1..0 \# Skip: no Socket\n";
    exit;
  }
}

use Test;
BEGIN { plan tests => 1; $loaded = 0}
END { ok $loaded;}

# Just make sure everything compiles
use Net::Ping;

$loaded = 1;

######################### End of black magic.

# Insert your test code below (better if it prints "ok 13"
# (correspondingly "not ok 13") depending on the success of chunk 13
# of the test code):