The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;
use Test::More tests => 4;

use B::Compiling;

BEGIN {
    ok(defined &PL_compiling, 'PL_compiling gets exported');

    my $cop = PL_compiling;
    ok($cop = PL_compiling, 'returns the same reference every time');

    isa_ok($cop, 'B::COP');
    is($cop->file, 't/basic.t', 'basic sanity');
}