ARGV-URL
view release on metacpan or search on metacpan
[GithubMeta]
remote = github
[MetaJSON]
[MinimumPerl]
[Prereqs]
LWP = 5
[Test::Compile]
[Test::Kwalitee]
t/00-compile.t view on Meta::CPAN
#!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/;
t/00-compile.t view on Meta::CPAN
$plan ? (plan tests => $plan) : (plan skip_all => "no tests to run");
{
# fake home for cpan-testers
# no fake requested ## 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" );
}
}
}
t/01-basic.t view on Meta::CPAN
# 1234
use strict;
use warnings;
use Test::More;
BEGIN {
eval 'require URI::file;';
plan skip_all => 'URI::file module not available' if $@;
eval 'require File::Spec;';
plan skip_all => 'File::Spec module not available' if $@;
}
use ARGV::URL ();
# This test is only for raising Kwalitee
# because testing POD is done with Module::Build using "Build testpod".
use strict;
use warnings;
use Test::More;
plan skip_all => "POD testing is only for release testing" unless $ENV{RELEASE_TESTING};
eval "use Test::Pod 1.00";
plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
all_pod_files_ok();
t/91-pod-coverage.t view on Meta::CPAN
#!perl
use strict;
use warnings;
use Test::More skip_all => "this test is here only for raising Kwalitee";
eval "use Test::Pod::Coverage 1.00";
plan skip_all => "Test::Pod::Coverage 1.00 required" if $@;
all_pod_coverage_ok();
t/release-kwalitee.t view on Meta::CPAN
#!perl
BEGIN {
unless ($ENV{RELEASE_TESTING}) {
require Test::More;
Test::More::plan(skip_all => 'these tests are for release candidate testing');
}
}
# This test is generated by Dist::Zilla::Plugin::Test::Kwalitee
use strict;
use warnings;
use Test::More; # needed to provide plan.
eval "use Test::Kwalitee";
plan skip_all => "Test::Kwalitee required for testing kwalitee" if $@;
( run in 0.543 second using v1.01-cache-2.11-cpan-4d50c553e7e )