view release on metacpan or  search on metacpan

t/05not_ours.t  view on Meta::CPAN

#!/usr/bin/perl
use lib 't/auxlib';
use Test::JMM;
use warnings;
use strict;
use Pod::Inherit;
use Test::More 'no_plan';
use Test::Differences;
use Test::Warn;

use lib 't/lib';
my $pi = Pod::Inherit->new({
                            input_files => 't/lib/not_ours.pm',
                           });
warning_like {$pi->write_pod();}
  qr/not_ours\.pod already exists, and it doesn't look like we generated it\.  Skipping this file/, "Got the warning";
my $orig = do {local (@ARGV, $/) = "t/lib/not_ours.pod"; scalar <>};
eq_or_diff(do {local (@ARGV, $/) = "t/lib/not_ours.pod"; scalar <>},
           $orig,
           "output file doesn't begin with our autogen marker");