Acme-Sub-Parms

 view release on metacpan or  search on metacpan

t/01_validating.t  view on Meta::CPAN

#!/usr/bin/perl -w

use strict;

use lib ('./blib','./lib','../blib','../lib');
use Acme::Sub::Parms;

my @tests_list = (
     { -code => \&bind_parms_test,          -desc => 'BindParms (validating, non-normalized) ' },
);

my $counter   = 1;
my $do_tests  = [];
my $test_subs = {};
foreach my $test (@tests_list) {

t/02_no_validation.t  view on Meta::CPAN

#!/usr/bin/perl -w

use strict;

use lib ('./blib','./lib','../blib','../lib');
use Acme::Sub::Parms qw(:no_validation :dump_to_stdout);

my @tests_list = (
     { -code => \&bind_parms_test,          -desc => 'BindParms (non-validating, non-normalized) ' },
);

my $counter   = 1;
my $do_tests  = [];
my $test_subs = {};
foreach my $test (@tests_list) {

t/03_normalized_validating.t  view on Meta::CPAN

#!/usr/bin/perl -w

use strict;

use lib ('./blib','./lib','../blib','../lib');
use Acme::Sub::Parms qw(:normalize);

my @tests_list = (
     { -code => \&bind_parms_test,          -desc => 'BindParms (validating, non-normalized) ' },
);

my $counter   = 1;
my $do_tests  = [];
my $test_subs = {};
foreach my $test (@tests_list) {

t/04_normalized_no_validation.t  view on Meta::CPAN

#!/usr/bin/perl -w

use strict;

use lib ('./blib','./lib','../blib','../lib');
use Acme::Sub::Parms qw(:normalize :no_validation);

my @tests_list = (
     { -code => \&bind_parms_test,          -desc => 'BindParms (non-validating, non-normalized) ' },
);

my $counter   = 1;
my $do_tests  = [];
my $test_subs = {};
foreach my $test (@tests_list) {

t/97_distribution.t  view on Meta::CPAN

use strict;

use lib  ('./blib','../blib', './lib', '../lib');

eval {
    require Test::More;
};
if ($@) {
    $|++;
    print "1..0 # Skipped: Test::More required for testing distribution\n";
    exit;
}
eval {

t/98_pod_coverage.t  view on Meta::CPAN

use strict;

use lib  ('./blib','../blib', './lib', '../lib');

eval {
    require Test::More;
};
if ($@) {
    $|++;
    print "1..0 # Skipped: Test::More required for testing POD coverage\n";
    exit;
}
eval {