view release on metacpan or  search on metacpan

t/001_base.t  view on Meta::CPAN

    good => [
        _get_files('good')
    ],
    bad  => [
        _get_files('bad')
    ]
);

for my $type ( sort keys %opms ) {
    for my $file ( @{ $opms{$type} || [] } ) {
        my $content = do { local ( @ARGV, $/ ) = $file; <> };
        my $success = eval {
            OTRS::OPM::Validate->validate( $content );
            1;
        };

        is $@, '', 'no errors for ' . $file if $type eq 'good';
        ok( ($type eq 'good' ? $success : !$success), $file );
    }
}