#!perl
use strict;
use warnings;
use Test::More;
use lib 't/lib/';
use RTF::Tokenizer::TestCorpus;
opendir (DIR, 't/corpus/') or die $!;
while (my $file = readdir(DIR)) {
next unless $file =~ m/\.corpus$/;
$file = 't/corpus/' . $file;
RTF::Tokenizer::TestCorpus::test_corpus( $file );
}
done_testing();