gnu/usr.bin/perl/dist/Net-Ping/t/000_load.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

#!perl -T
use 5.006;
use strict;
use warnings FATAL => 'all';
use Test::More;

plan tests => 3;

BEGIN {
    use_ok( 'Socket' )      || print "No Socket!\n";
    use_ok( 'Time::HiRes' ) || print "No Time::HiRes!\n";
    use_ok( 'Net::Ping' )   || print "No Net::Ping!\n";
}

note( "Testing Net::Ping $Net::Ping::VERSION, Perl $], $^X" );