"Fossies" - the Fresh Open Source Software Archive

Member "perl-5.32.1/dist/Net-Ping/t/000_load.t" (18 Dec 2020, 339 Bytes) of package /linux/misc/perl-5.32.1.tar.xz:


As a special service "Fossies" has tried to format the requested text file into HTML format (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file.

    1 #!perl -T
    2 use 5.006;
    3 use strict;
    4 use warnings FATAL => 'all';
    5 use Test::More;
    6 
    7 plan tests => 3;
    8 
    9 BEGIN {
   10     use_ok( 'Socket' )      || print "No Socket!\n";
   11     use_ok( 'Time::HiRes' ) || print "No Time::HiRes!\n";
   12     use_ok( 'Net::Ping' )   || print "No Net::Ping!\n";
   13 }
   14 
   15 note( "Testing Net::Ping $Net::Ping::VERSION, Perl $], $^X" );
   16