view release on metacpan or  search on metacpan

t/stress.t  view on Meta::CPAN

use strict;
use warnings;

use Test::Fatal;
use Test::More 0.88;
use Test::Warnings;

use Test::Requires (
    'Path::Class' => '0',
);

use File::Slurper qw( read_binary );
use Path::Class qw( dir );

use Courriel;

my $dir = dir(qw( t data stress-test ));

while ( my $file = $dir->next ) {
    next if $file->is_dir;

    my $text = read_binary( $file->stringify );

    is(
        exception { Courriel->parse( text => $text ) },
        undef,
        'no exception from parsing ' . $file->basename
    );
}

done_testing();