#!perl
use strict;
use Test::More tests => 2;
use App::perlbrew;

my $app = App::perlbrew->new();
my $home = $app->env("HOME");

SKIP: {
    skip "This test is meanless when \$HOME-less.", 2 unless $home;

    is $app->path_with_tilde("$home/foo/bar"), "~/foo/bar";
    is $app->path_with_tilde("/baz/foo/bar"),  "/baz/foo/bar";
}