view release on metacpan or  search on metacpan

t/01-test.t  view on Meta::CPAN

use Test::More;

use Acme::ICan::tSpell;
use Test::MockObject;

my $responses = [{ 
            content => '<div class="med"><p class="sp_cnt card-section"><span class="spell">Showing results for</span> <a class="spell" href="/search?q=tanks&amp;spell=1&amp;sa=X&amp;ved=0ahUKEwiswcrA4erSAhUDfRoKHSjgC-kQvwUIGSgA"><b><i>tanks</i></b><...
            success => 1 
        }, { content => '', success => 1 }];

(my $tiny = Test::MockObject->new)->mock(
    'get', sub {        
		shift @{$responses};
    }
);

=pod

t/pod-coverage.t  view on Meta::CPAN

    plan( skip_all => "Author tests not required for installation" );
}

# Ensure a recent version of Test::Pod::Coverage
my $min_tpc = 1.08;
eval "use Test::Pod::Coverage $min_tpc";
plan skip_all => "Test::Pod::Coverage $min_tpc required for testing POD coverage"
    if $@;

# Test::Pod::Coverage doesn't require a minimum Pod::Coverage version,
# but older versions don't recognize some common documentation styles
my $min_pc = 0.18;
eval "use Pod::Coverage $min_pc";
plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage"
    if $@;

all_pod_coverage_ok();