App-FileSummoner
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/App/FileSummoner/Register/t/Rules.t view on Meta::CPAN
use Modern::Perl;
use Test::Spec;
use App::FileSummoner::Register;
use App::FileSummoner::Register::Rules;
describe HasExt => sub {
it "matches file with correct extension" => sub {
ok( ruleMatches( HasExt('pm'), 'file.pm' ) );
};
lib/App/FileSummoner/t/Register.t view on Meta::CPAN
use Test::Spec;
use Modern::Perl;
use App::FileSummoner::Register qw(chooseSkeleton registerSkeleton);
describe Register => sub {
before each => sub {
App::FileSummoner::Register::unregisterAll();
};
it "doesn't find any skeleton if none is registered" => sub {
is(chooseSkeleton('/path/file.pm'), undef);
lib/App/FileSummoner/t/SkeletonDirsFinder.t view on Meta::CPAN
package App::FileSummoner::SkeletonDirsFinder::Test;
use Modern::Perl;
use base 'Test::Class';
use Test::More;
use App::FileSummoner::SkeletonDirsFinder;
sub findForFile {
my ($path) = @_;
return App::FileSummoner::SkeletonDirsFinder->new()->findForFile($path);
}
view all matches for this distributionview release on metacpan - search on metacpan
( run in 1.163 second using v1.00-cache-2.02-grep-82fe00e-cpan-503542c4f10 )