Gecko [ www.blackthorn-inc.com ]

Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains : Cant Read [ /etc/named.conf ]
User : michaelgreg

Name	Size	Permission	Date
Devel	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
charnames	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
croak	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
deprecate	[ DIR ]	drwxr-xr-x	2016-10-10 18:14
feature	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
locale	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
strict	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
subs	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
warnings	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
1_compile.t	1.64 KB	-r--r--r--	2014-12-27 11:49
Cname.pm	934 B	-r--r--r--	2014-12-27 11:49
Count.pm	107 B	-r--r--r--	2014-12-27 11:49
Sans_mypragma.pm	72 B	-r--r--r--	2014-12-27 11:49
common.pl	1.37 KB	-r--r--r--	2014-12-27 11:49
commonsense.t	583 B	-r--r--r--	2014-12-27 11:49
compmod.pl	274 B	-r--r--r--	2014-12-27 11:49
croak.t	126 B	-r--r--r--	2014-12-27 11:49
cygwin.t	2.2 KB	-r--r--r--	2014-12-27 11:49
dbmt_common.pl	11.85 KB	-r--r--r--	2014-12-27 11:49
deprecate.t	2.11 KB	-r--r--r--	2014-12-27 11:49
h2ph.h	3.98 KB	-r--r--r--	2014-12-27 11:49
h2ph.pht	3.96 KB	-r--r--r--	2014-12-27 11:49
mypragma.pm	596 B	-r--r--r--	2014-12-27 11:49
mypragma.t	1.32 KB	-r--r--r--	2014-12-27 11:49
no_load.t	637 B	-r--r--r--	2014-12-27 11:49
overload_fallback.t	388 B	-r--r--r--	2014-12-27 11:49
overload_nomethod.t	362 B	-r--r--r--	2014-12-27 11:49
proxy_constant_subs.t	873 B	-r--r--r--	2014-12-27 11:49
test_require.pm	114 B	-r--r--r--	2014-12-27 11:49
test_use.pm	126 B	-r--r--r--	2014-12-27 11:49
test_use_14937.pm	3 B	-r--r--r--	2014-12-27 11:49
universal.t	1.89 KB	-r--r--r--	2014-12-27 11:49

Rename

#!./perl

# Modules should have their own tests.  For historical reasons, some
# do not.  This does basic compile tests on modules that have no tests
# of their own.

BEGIN {
    chdir 't';
    @INC = '../lib';
    require './test.pl';
}

use warnings;
use File::Spec::Functions;

# Okay, this is the list.

my @Core_Modules = grep /\S/, <DATA>;
chomp @Core_Modules;

if (eval { require Socket }) {
  # Two Net:: modules need the Convert::EBCDIC if in EBDCIC.
  if (ord("A") != 193 || eval { require Convert::EBCDIC }) {
      push @Core_Modules, qw(Net::Cmd Net::POP3);
  }
}

@Core_Modules = sort @Core_Modules;

plan tests => 1+@Core_Modules;

cmp_ok(@Core_Modules, '>', 0, "All modules should have tests");
note("http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2001-04/msg01223.html");
note("20010421230349.P2946\@blackrider.blackstar.co.uk");

foreach my $module (@Core_Modules) {
    if ($module eq 'ByteLoader' && $^O eq 'VMS') {
        TODO: {
            local $TODO = "$module needs porting on $^O";
            ok(compile_module($module), "compile $module");
        }
    }
    else {
        ok(compile_module($module), "compile $module");
    }
}

# We do this as a separate process else we'll blow the hell
# out of our namespace.
sub compile_module {
    my ($module) = $_[0];

my $compmod = catfile(curdir(), 'lib', 'compmod.pl');
    my $lib     = '-I' . catdir(updir(), 'lib');

my $out = scalar `$^X $lib $compmod $module`;
    return $out =~ /^ok/;
}

# These modules have no tests of their own.
# Keep up to date with
# http://perl-qa.hexten.net/wiki/index.php/Untested_Core_Modules
# and vice-versa.  The list should only shrink.
__DATA__