Gecko [ dp-client.com ]

Name	Size	Permission
data	[ DIR ]	drwxr-xr-x
fakelib	[ DIR ]	drwxr-xr-x
lib	[ DIR ]	drwxr-xr-x
00-report-prereqs.dd	4.46 KB	-rw-r--r--
00-report-prereqs.t	5.77 KB	-rw-r--r--
README	214 B	-rw-r--r--
basename.t	880 B	-rw-r--r--
basic.t	5.87 KB	-rw-r--r--
children.t	1.11 KB	-rw-r--r--
chmod.t	1020 B	-rw-r--r--
digest.t	1.25 KB	-rw-r--r--
exception.t	1.26 KB	-rw-r--r--
exports.t	674 B	-rw-r--r--
filesystem.t	11.42 KB	-rw-r--r--
input_output.t	18.31 KB	-rw-r--r--
input_output_no_PU_UU.t	579 B	-rw-r--r--
input_output_no_UU.t	566 B	-rw-r--r--
locking.t	1.37 KB	-rw-r--r--
mkpath.t	947 B	-rw-r--r--
mutable_tree_while_iterating.t	1.43 KB	-rw-r--r--
normalize.t	898 B	-rw-r--r--
overloading.t	534 B	-rw-r--r--
parent.t	3.06 KB	-rw-r--r--
recurse.t	3.89 KB	-rw-r--r--
rel-abs.t	7.9 KB	-rw-r--r--
sig_die.t	533 B	-rw-r--r--
subsumes.t	3.16 KB	-rw-r--r--
symlinks.t	1.52 KB	-rw-r--r--
temp.t	2.56 KB	-rw-r--r--
visit.t	447 B	-rw-r--r--
zz-atomic.t	922 B	-rw-r--r--
zzz-spec.t	6.62 KB	-rw-r--r--

Code Editor : subsumes.t

use 5.008001;
use strict;
use warnings;
use Test::More 0.96;

use lib 't/lib';
use TestUtils qw/exception/;

use Path::Tiny;
use Cwd;

my $IS_WIN32 = $^O eq 'MSWin32';

my @cases = (
    # path1 => path2 => path1->subsumes(path2)

"identity always subsumes" => [
        [ '.'     => '.'     => 1 ],
        [ '/'     => '/'     => 1 ],
        [ '..'    => '..'    => 1 ],
        [ '../..' => '../..' => 1 ],
        [ '/foo/' => '/foo'  => 1 ],
        [ 'foo/'  => 'foo'   => 1 ],
        [ './foo' => 'foo'   => 1 ],
        [ 'foo/.' => 'foo'   => 1 ],
    ],

"absolute v. absolute" => [
        [ '/foo'     => '/foo/bar'      => 1 ],
        [ '/foo'     => '/foo/bar/baz'  => 1 ],
        [ '/foo'     => '/foo/bar/baz/' => 1 ],
        [ '/'        => '/foo'          => 1 ],
        [ '/foo'     => '/bar'          => 0 ],
        [ '/foo/bar' => '/foo/baz'      => 0 ],
    ],

"relative v. relative" => [
        [ '.'         => 'foo'         => 1 ],
        [ 'foo'       => 'foo/baz'     => 1 ],
        [ './foo/bar' => 'foo/bar/baz' => 1 ],
        [ './foo/bar' => './foo/bar'   => 1 ],
        [ './foo/bar' => 'foo/bar'     => 1 ],
        [ 'foo/bar'   => './foo/bar'   => 1 ],
        [ 'foo/bar'   => 'foo/baz'     => 0 ],
    ],

"relative v. absolute" => [
        [ path(".")->absolute   => 't'                 => 1 ],
        [ "."                   => path('t')->absolute => 1 ],
        [ "foo"                 => path('t')->absolute => 0 ],
        [ path("..")->realpath  => 't'                 => 1 ],
        [ path("lib")->absolute => 't'                 => 0 ],
    ],

"updirs in paths" => [
        [ '/foo'        => '/foo/bar/baz/..' => 1 ],
        [ '/foo/bar'    => '/foo/bar/../baz' => $IS_WIN32 ? 0 : 1 ],
        [ '/foo/../bar' => '/bar'            => $IS_WIN32 ? 1 : 0 ],
        [ '..'          => '../bar'          => 1 ],
    ],

);

if ($IS_WIN32) {
    my $vol = path( Win32::GetCwd() )->volume . "/";
    my $other = $vol ne 'Z:/' ? 'Z:/' : 'Y:/';
    push @cases, 'Win32 cases',
      [
        [ "C:/foo"    => "C:/foo"    => 1 ],
        [ "C:/foo"    => "C:/bar"    => 0 ],
        [ "C:/"       => "C:/foo"    => 1 ],
        [ "C:/"       => "D:/"       => 0 ],
        [ "${vol}foo" => "/foo"      => 1 ],
        [ $vol        => "/foo"      => 1 ],
        [ $vol        => $other      => 0 ],
        [ "/"         => $vol        => 1 ],
        [ "/"         => $other      => 0 ],
        [ "/foo"      => "${vol}foo" => 1 ],
      ];
}

while (@cases) {
    my ( $subtest, $tests ) = splice( @cases, 0, 2 );
    subtest $subtest => sub {
        for my $t (@$tests) {
            my ( $path1, $path2, $subsumes ) = @$t;
            my $label =
              join( " ", $path1, ( $subsumes ? "subsumes" : "does not subsume" ), $path2 );
            ok( !!path($path1)->subsumes($path2) eq !!$subsumes, $label )
              or diag "PATH 1:\n", explain( path($path1) ), "\nPATH2:\n",
              explain( path($path2) );
        }
    };
}

done_testing;
#
# This file is part of Path-Tiny
#
# This software is Copyright (c) 2014 by David Golden.
#
# This is free software, licensed under:
#
#   The Apache License, Version 2.0, January 2004
#

${this.title}

Code Editor : subsumes.t