[io grant] Test IO::Path.sibling

Rakudo impl: rakudo/rakudo@8bacad8f84

Author: zoffixznet

S32-io/io-path.t

@@ -3,7 +3,7 @@ use lib <t/spec/packages/>;
 use Test;
 use Test::Util;
 
-plan 30;
+plan 31;
 
 # L<S32::IO/IO::Path>
 
@@ -221,3 +221,22 @@ subtest 'secureness of .child' => {
         'resolved parent fails (given path is not a child, via combiners)';
 }
 }
+
+subtest '.sibling' => {
+    my @path-types = IO::Path, IO::Path::Cygwin, IO::Path::QNX, IO::Path::Unix,
+        IO::Path::Win32;
+    my @tests = 'foo' => 'bar', '/foo' => '/bar', '../foo' => '../bar',
+        'C:/foo' => 'C:/bar', 'C:/foo/../meow' => 'C:/foo/../bar',
+        '/' => '/bar', './' => 'bar', '/foo/' => '/bar', '/foo/.' => '/foo/bar';
+    plan 1 + @tests * @path-types;
+
+    for @tests -> (:key($start-path), :value($res-path)) {
+        for @path-types -> $Path {
+            is-path $Path.new($start-path).sibling('bar'), $Path.new($res-path),
+                "$Path.perl() with $start-path.perl()";
+        }
+    }
+
+    is-path IO::Path::Win32.new('C:/').sibling('bar'),
+        IO::Path::Win32.new('C:/bar'), '"C:/" with IO::Path::Win32';
+}