[perl #37865] [PATCH t/perl/Parrot_IO.t] Fix Failing Test #23

# 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