[io grant] Test IO::Path.dir's absoluteness behaviour

Per impl in rakudo/rakudo@aa72bdefe4
Raku · May 13, 2017 · 98917dc · 98917dc
1 parent 4682d96
commit 98917dc
Showing 1 changed file with 10 additions and 1 deletion.
diff --git a/S32-io/dir.t b/S32-io/dir.t
@@ -3,7 +3,7 @@ use lib 't/spec/packages';
 use Test;
 use Test::Util;
 
-plan 15;
+plan 16;
 
 # L<S32::IO/Functions/"=item dir">
 
@@ -60,4 +60,13 @@ is_run 'dir | say', {
     $tested or flunk 'expected a dir $*CWD test but it never ran';
 }
 
+subtest "dir-created IO::Paths' absoluteness controlled by invocant" => {
+    plan 2;
+    my @files = '.'.IO.dir;
+    cmp-ok +@files, '==', +@files.grep({not .is-absolute}), 'relative invocant';
+
+    @files = '.'.IO.absolute.IO.dir;
+    cmp-ok +@files, '==', +@files.grep({    .is-absolute}), 'absolute invocant';
+}
+
 # vim: ft=perl6