Skip to content

Commit

Permalink
Remove/Unfudge test for IO::Local
Browse files Browse the repository at this point in the history
We don't have this type no more.
Closes Rt#124785: https://rt.perl.org/Ticket/Display.html?id=124785
  • Loading branch information
zoffixznet committed Oct 11, 2017
1 parent 061b040 commit 73cb9e7
Showing 1 changed file with 1 addition and 2 deletions.
3 changes: 1 addition & 2 deletions S32-io/dir.t
Expand Up @@ -14,8 +14,7 @@ ok (@files = dir()), "dir() runs in cwd()";
#?rakudo todo 'directories are not marked with trailing / yet RT #124784'
ok @files>>.relative.grep('t/'), 'current directory contains a t/ dir';
ok @files.grep(*.basename eq 't'), 'current directory contains a t/ dir';
#?rakudo skip 'entries are still IO::Path RT #124785'
ok @files[0] ~~ IO::Local, 'dir() returns IO::Local';
isa-ok @files[0], IO::Path, 'dir() returns IO::Path objects';
#?rakudo todo 'dirname is not yet absolute RT #124786'
is @files[0].dirname, $*CWD, 'dir() returns IO::Path object in the current directory';

Expand Down

0 comments on commit 73cb9e7

Please sign in to comment.