The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

use Test::More tests => 3;
my $path = Rex::Helper::Path::resolv_path( "/home/foo/bar/baz", 1 );
is( $path, "/home/foo/bar/baz", "local test absolute path" );
SKIP: {
skip 'No home directory tests for Windows.', 2 if $^O =~ m/^MSWin/;
$path = Rex::Helper::Path::resolv_path( "~/bar/baz", 1 );
like( $path, qr{^/}, "expanded \$HOME" );
$path = Rex::Helper::Path::resolv_path("~/bar/baz");
like( $path, qr{^/}, "expanded \$HOME - no local" );
}