view release on metacpan or  search on metacpan

t/line-numbers.t  view on Meta::CPAN

=pod

We use a POD snippet way down the B<Pod::Snippets> source code, so as
to maximize the likelihood of causing fencepost errors.

=cut

my $snippet = $examples->named("as_data multiple blocks return")
    ->as_code();

my @sniplines = split m/\n/, $snippet;
my $linemarkup = shift @sniplines;
ok((my ($line, $file) = $linemarkup =~ m/^#line (\d+) "(.*)"$/),
   "line numbering markup found at the top")
    or die "no markup line found, rest of the test is pointless";
like($file, qr/Pod.*Snippets/, "file name OK");

foreach my $offset (0..$#sniplines) {
    cmp_ok(index($lines[$line + $offset - 1], $sniplines[$offset]),
           ">=", 0, "sync OK at offset $offset");
}

t/line-numbers.t  view on Meta::CPAN

Also we test the line offset feature.

=cut

my $examples_offset = Pod::Snippets->load
    ($INC{"Pod/Snippets.pm"},
     -markup => "metatests",
     -named_snippets => "strict",
     -line => 42);

@sniplines = split m/\n/,
    $examples_offset->named("as_data multiple blocks return")
    ->as_code();
ok((my ($offsetline, undef) = $sniplines[0] =~ m/^#line (\d+) "(.*)"$/),
   "line numbering markup found at the top");
is($offsetline, $line + 41, "line offset feature");

1;

=head2 read_file