view release on metacpan or  search on metacpan

t/01-standard-colors.t  view on Meta::CPAN

ok( BLUE()  eq '0000ff', "blue" );

my @red = RED();
ok( $red[0] == 255 );
ok( $red[1] == 0   );
ok( $red[2] == 0   );
ok( @red == 3 );

my $nonfailed = 0;
my $noncolor;
eval { $noncolor = non_color(); $nonfailed = 1};

ok($nonfailed == 1);
ok(defined($noncolor) && $noncolor == '');

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

#!/usr/bin/perl -w

# This test will currently fail due to incorrect POD tags

use strict;
use warnings;
use Test::More;

eval "use Test::Pod 1.14";
plan skip_all => "Test::Pod 1.14 required for testing POD" if $@;
all_pod_files_ok();

t/04-podcoverage.t  view on Meta::CPAN

#!/usr/bin/perl -w

use strict;
use warnings;

use Test::More;

eval "use Test::Pod::Coverage 1.04";
plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@;
#all_pod_coverage_ok({  also_private => [ '/^[A-Z_]+$/' ], });

my @modules = all_modules();

my @testmodules;

my $tests = 0;

foreach my $module (@modules) {