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

# Test whether we indeed can detect errors in SYNOPSIS codes

test_out('not ok 1 - t/lib/ENDInPodWithError.pm');
test_diag(q{  Failed test 't/lib/ENDInPodWithError.pm'},
    q{  at t/02-END-token-errors.t line } . line_num(+9) . q{.},
    q{Global symbol "$x" requires explicit package name}
    . ( ($^V and $^V gt 5.21.3)
        ? ' (did you forget to declare "my $x"?)'
        : ''
    )
    . q{ at t/lib/ENDInPodWithError.pm line 30.},
);
synopsis_ok("t/lib/ENDInPodWithError.pm");
test_test("synopsis fail works");