Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
[io grant] IO::Path.concat-with got renamed to .add
  • Loading branch information
zoffixznet committed Apr 16, 2017
1 parent 92217f7 commit 39677c4
Showing 1 changed file with 4 additions and 4 deletions.
8 changes: 4 additions & 4 deletions S32-io/io-path.t
Expand Up @@ -116,16 +116,16 @@ subtest 'IO::Path.ACCEPTS' => { # coverage 2017-03-31 (IO grant)
).Str, 'foo:\bar\ber', 'Str does not include CWD [mulit-part .new()]'
}

subtest '.concat-with' => {
subtest '.add' => {
plan 4 * my @tests = gather for 'bar', '../bar', '../../bar', '.', '..' {
take %(:orig</foo/>, :with($_), :res("/foo/$_"));
take %(:orig<foo/>, :with($_), :res("foo/$_"));
}

for @tests -> (:$orig, :$with, :$res) {
for IO::Path::Unix, IO::Path::Win32, IO::Path::Cygwin, IO::Path::QNX {
is-path .new($orig).concat-with($with), .new($res),
"$orig concat-with $with => $res {.gist}";
is-path .new($orig).add($with), .new($res),
"$orig add $with => $res {.gist}";
}
}
}
Expand All @@ -134,7 +134,7 @@ subtest '.resolve' => {
plan 5;

my $root = make-temp-dir;
sub p { $root.concat-with: $^path }
sub p { $root.add: $^path }
.&p.mkdir for 'level1a', 'level1b/level2a', 'level1c/level2b/level3a';

is-deeply p('level1a/../not-there').resolve.absolute,
Expand Down

0 comments on commit 39677c4

Please sign in to comment.