Skip to content

Commit 39677c4

Browse files
committed
[io grant] IO::Path.concat-with got renamed to .add
Rakudo impl: rakudo/rakudo@0b5a41ba87
1 parent 92217f7 commit 39677c4

File tree

1 file changed

+4
-4
lines changed

1 file changed

+4
-4
lines changed

S32-io/io-path.t

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -116,16 +116,16 @@ subtest 'IO::Path.ACCEPTS' => { # coverage 2017-03-31 (IO grant)
116116
).Str, 'foo:\bar\ber', 'Str does not include CWD [mulit-part .new()]'
117117
}
118118

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

125125
for @tests -> (:$orig, :$with, :$res) {
126126
for IO::Path::Unix, IO::Path::Win32, IO::Path::Cygwin, IO::Path::QNX {
127-
is-path .new($orig).concat-with($with), .new($res),
128-
"$orig concat-with $with => $res {.gist}";
127+
is-path .new($orig).add($with), .new($res),
128+
"$orig add $with => $res {.gist}";
129129
}
130130
}
131131
}
@@ -134,7 +134,7 @@ subtest '.resolve' => {
134134
plan 5;
135135

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

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

0 commit comments

Comments
 (0)