Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
tree: b8c8697c74
Fetching contributors…

Cannot retrieve contributors at this time

35 lines (20 sloc) 0.842 kB
#!perl
use strict;
use warnings;
use Test::More (tests => 3);
use Pinto::Util;
use Path::Class;
#-------------------------------------------------------------------------------
my $author = 'joseph';
my $expect = dir( qw(J JO JOSEPH) );
is(Pinto::Util::author_dir($author), $expect, 'Author dir path for joseph');
#-------------------------------------------------------------------------------
$author = 'JO';
$expect = dir( qw(J JO JO) );
is(Pinto::Util::author_dir($author), $expect, 'Author dir path for JO');
#-------------------------------------------------------------------------------
$author = 'Mike';
my @base = qw(a b);
$expect = dir( qw(a b M MI MIKE) );
is(Pinto::Util::author_dir(@base, $author), $expect, 'Author dir with base');
#-------------------------------------------------------------------------------
Jump to Line
Something went wrong with that request. Please try again.