use Test::More;
use Plack::Util;
open my $fh, "<", "t/00_compile.t";
Plack::Util::set_io_path($fh, "/path/to/00_compile.t");
is $fh->path, "/path/to/00_compile.t";
like scalar <$fh>, qr/use strict/;
like $fh->getline, qr/use Test::More/;
ok fileno $fh;
isa_ok $fh, 'IO::Handle';
done_testing;