use strict;
use warnings;

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

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

use File::Slurp::Tiny qw( read_file );
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_file( $file->stringify );

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

done_testing();