4 use Test::More 'no_plan';
12 binmode STDOUT, ":utf8";
13 binmode STDERR, ":utf8";
14 eval { no warnings; binmode $DB::OUT, ":utf8"; };
16 my $csv = 't/data/florilegium.csv';
17 my $t = Text::Tradition->new(
24 is( ref( $t ), 'Text::Tradition', "Parsed florilegium CSV file" );
26 ### TODO Check these figures
28 is( scalar $t->collation->readings, 313, "Collation has all readings" );
29 is( scalar $t->collation->paths, 2877, "Collation has all paths" );
30 is( scalar $t->witnesses, 13, "Collation has all witnesses" );