# New Ticket Created by chromatic # Please include the string: [perl #37865] # in the subject line of all future correspondence about this issue. # <URL: https://rt.perl.org/rt3/Ticket/Display.html?id=37865 >
Hi there, I believe a recent change in File::Spec broke test #23 in t/perl/Parrot_IO.t. I checked in a change earlier to make most tests use is() instead of ok() to get better diagnostics on failure. The attached test makes the test pass for me, but I only skimmed the relevant code and did what I think is right. It's worth review from someone who knows what Parrot::IO::Directory really *ought* to do. -- c
Index: t/perl/Parrot_IO.t =================================================================== --- t/perl/Parrot_IO.t (revision 10408) +++ t/perl/Parrot_IO.t (working copy) @@ -97,7 +97,7 @@ ok($f1 && $f2, 'file_with_name'); # Relative paths. -is($d->relative_path($d->path), '', 'relative_path same dir'); +is($d->relative_path($d->path), curdir(), 'relative_path same dir'); is($d1->relative_path($f1->path), 'file1.txt', 'relative_path same file'); is($d->relative_path($d1->path), 'one', 'relative_path down to dir'); is($d->relative_path($f1->path), catfile(qw(one file1.txt)),
