File: 03.path_with_tilde.t

package info (click to toggle)
perlbrew 0.78-1%2Bdeb9u1
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 708 kB
  • sloc: perl: 6,291; makefile: 6
file content (14 lines) | stat: -rw-r--r-- 331 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
#!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";
}