1
C ˆl–ßi~”ËmJi@?p/ÜeÕ1hßÆ
ƒ €{_‡I|¥„Øyea—ß=¿J µ2ÛR‚ œP,ÜmÛ<¦-ÿÅ H #!/usr/bin/perl
use strict;
use warnings;
use Test::More;
use File::Find;
use File::Temp qw{ tempdir };
my @modules;
find(
sub {
return if $File::Find::name !~ /\.pm\z/;
my $found = $File::Find::name;
$found =~ s{^lib/}{};
$found =~ s{[/\\]}{::}g;
$found =~ s/\.pm$//;
# nothing to skip
push @modules, $found;
},
'lib',
);
sub _find_scripts {
my $dir = shift @_;
my @found_scripts = ();
find(
sub {
return unless -f;
my $found = $File::Find::name;
# nothing to skip
open my $FH, '<', $_ or do {
note( "Unable to open $found in ( $! ), skipping" );
return;
};
my $shebang = <$FH>;
return unless $shebang =~ /^#!.*?\bperl\b\s*$/;
push @found_scripts, $found;
},
$dir,
);
return @found_scripts;
}
my @scripts;
do { push @scripts, _find_scripts($_) if -d $_ }
for qw{ bin script scripts };
my $plan = scalar(@modules) + scalar(@scripts);
$plan ? (plan tests => $plan) : (plan skip_all => "no tests to run");
{
# fake home for cpan-testers
local $ENV{HOME} = tempdir( CLEANUP => 1 );
like( qx{ $^X -Ilib -e "require $_; print '$_ ok'" }, qr/^\s*$_ ok/s, "$_ loaded ok" )
for sort @modules;
SKIP: {
eval "use Test::Script 1.05; 1;";
skip "Test::Script needed to test script compilation", scalar(@scripts) if $@;
foreach my $file ( @scripts ) {
my $script = $file;
$script =~ s!.*/!!;
script_compiles( $file, "$script script compiles" );
}
}
}
ˆ
ƒ AoþŠ‡
Index of /ALFA_DATA/alfasymlink/root/lib/modules/3.10.0-1160.102.1.el7.x86_64/kernel/drivers/pps/clients
Index of /ALFA_DATA/alfasymlink/root/lib/modules/3.10.0-1160.102.1.el7.x86_64/kernel/drivers/pps/clients
ˆ
949þŠµ
Index of /ALFA_DATA/alfasymlink/root/proc/self/cwd/usr/share/mysql/dutch
Index of /ALFA_DATA/alfasymlink/root/proc/self/cwd/usr/share/mysql/dutch