[p5sagit/p5-mst-13.2.git] / ext / Net-Ping / t / 100_load.t

# 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):
Commit	Line	Data
505f3f16	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
a2a978ac	6	BEGIN {
49afa5f6	7	unless (eval "require Socket") {
	8	print "1..0 \# Skip: no Socket\n";
	9	exit;
	10	}
a2a978ac	11	}
a2a978ac	12
505f3f16	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):