Mini Shell
Mini Shell
| Direktori : /root/.cpanm/latest-build/CPAN-2.27/t/ |
| Current File : //root/.cpanm/latest-build/CPAN-2.27/t/97-compile.t |
use Test::More tests => 1;
my $file = 'blib/script/cpan';
print "bail out! Script file is missing!" unless -e $file;
my $output = `$^X -Ilib -c $file 2>&1`;
print "bail out! Script file does not compile!: The author must be a "
. idiot() . "."
unless like( $output, qr/syntax OK$/, 'script compiles' );
sub idiot {
my @names = qw(moron idiot buffoon jerk dummy);
$names[ int rand( $#names + 1 ) ];
}