view release on metacpan or  search on metacpan

t/01.report.t  view on Meta::CPAN

use Devel::Decouple;
use lib 't';
use TestMod::Baz;

my $module = 'TestMod::Baz';

BASIC_REPORT: {
    my $DD = Devel::Decouple->new->decouple( $module );
    
    local $/ = '';
    my $report = "\n".<DATA>."\n";
    
    #         GOT                     EXPECTED                   MESSAGE
    is(       $DD->report,            $report,                  "returned a correctly formatted report" );
}

done_testing;