%PDF-
%PDF-
Mini Shell
Mini Shell
package App::Cpan;
use Test::More qw(no_plan);
BEGIN {
local $^W = 0;
our $class = 'App::Cpan';
our $method = '_expand_filename';
use_ok( $class );
can_ok( $class, $method );
$class->_init_logger;
}
{
no warnings 'redefine';
*_home_of = sub {
my( $user ) = @_;
$user = 'Buster' unless defined $user;
$user = 'Buster' if $user =~ /\A\d+\z/; # not the UID
"/Users/$user"
};
}
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
# Test with bad data
foreach my $input ( undef, 0, '' ) {
my $result = _expand_filename( $input );
no warnings 'uninitialized';
is( $result, $input, "For bad data [$input], output is same as input" );
}
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
# Test with no leading tilde
foreach my $input ( 'Buster', 'Mimi/Roscoe', 'Ros~coe' ) {
my $result = _expand_filename( $input );
is( $result, $input, "For no leading tilde [$input], output is same as input" );
}
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
# Test with only tilde
{
my $result = _expand_filename( '~' );
is( $result, _home_of(), 'For tilde only, output is _home_of' );
}
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
# Test with only tilde and one dir
{
my $result = _expand_filename( '~foo' );
is( $result, "/Users/foo", 'For tilde with name, output has that name' );
}
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
# Test with only tilde and two dirs
{
my $result = _expand_filename( '~foo/bar' );
is( $result, "/Users/foo/bar", 'For tilde with name and dir, output has name and dir' );
}
Zerion Mini Shell 1.0