|
our $TODO ;
my $mock = mocktest->new();
my $obj = Test::CPAN::Changes::ReallyStrict::Object->new(
{
testbuilder => $mock ,
filename => "corpus/Changes_03.txt" ,
delete_empty_groups => undef ,
keep_comparing => 1,
next_token => qr/\{\{\$NEXT\}\}/
}
);
my $need_diag ;
if ( not ok( $obj ->changes_ok, "Expected {NEXT} file is good ( Fixed in CPAN::Changes 0.17 )" ) ) {
$need_diag = 1;
}
if ( not is( $mock ->num_events, 423, 'There are 423 events sent to the test system with this option on' ) ) {
$need_diag = 1;
}
if ( $need_diag ) {
diag $_ for $mock ->ls_events;
}
done_testing;
|