File: 02-END-token-errors.t

package info (click to toggle)
libtest-synopsis-perl 0.16-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 332 kB
  • sloc: perl: 200; makefile: 2
file content (18 lines) | stat: -rw-r--r-- 598 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
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 24.},
);
synopsis_ok("t/lib/ENDInPodWithError.pm");
test_test("synopsis fail works");