@@ -116,16 +116,16 @@ subtest 'IO::Path.ACCEPTS' => { # coverage 2017-03-31 (IO grant)
116
116
). Str , ' foo:\bar\ber' , ' Str does not include CWD [mulit-part .new()]'
117
117
}
118
118
119
- subtest ' .concat-with ' => {
119
+ subtest ' .add ' => {
120
120
plan 4 * my @ tests = gather for ' bar' , ' ../bar' , ' ../../bar' , ' .' , ' ..' {
121
121
take % (: orig</foo/ >, : with($ _ ), : res(" /foo/$ _" ));
122
122
take % (: orig<foo/ >, : with($ _ ), : res(" foo/$ _" ));
123
123
}
124
124
125
125
for @ tests -> (: $ orig , : $ with , : $ res ) {
126
126
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 } " ;
129
129
}
130
130
}
131
131
}
@@ -134,7 +134,7 @@ subtest '.resolve' => {
134
134
plan 5 ;
135
135
136
136
my $ root = make-temp-dir;
137
- sub p { $ root . concat-with : $ ^ path }
137
+ sub p { $ root . add : $ ^ path }
138
138
. & p . mkdir for ' level1a' , ' level1b/level2a' , ' level1c/level2b/level3a' ;
139
139
140
140
is-deeply p(' level1a/../not-there' ). resolve . absolute,
0 commit comments