App-FileSummoner

 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 distribution
 view release on metacpan -  search on metacpan

( run in 1.163 second using v1.00-cache-2.02-grep-82fe00e-cpan-503542c4f10 )