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, 311, "Collation has all readings" );
29 is( scalar $t->collation->paths, 361, "Collation has all paths" );
30 is( scalar $t->witnesses, 13, "Collation has all witnesses" );
33 # Check that we have the right witnesses
35 map { $seen_wits{$_} = 0 } qw/ A B C D E F G H K P Q S T /;
36 foreach my $wit ( $t->witnesses ) {
37 $seen_wits{$wit->sigil} = 1;
39 is( scalar keys %seen_wits, 13, "No extra witnesses were made" );
40 foreach my $k ( keys %seen_wits ) {
41 ok( $seen_wits{$k}, "Witness $k still exists" );
44 # Check that the witnesses have the right texts
45 foreach my $wit ( $t->witnesses ) {
46 my $origtext = join( ' ', @{$wit->text} );
47 my $graphtext = $t->collation->path_text( $wit->sigil );
48 is( $graphtext, $origtext, "Collation matches original for witness " . $wit->sigil );
51 # Check that the a.c. witnesses have the right text
52 map { $seen_wits{$_} = 0 } qw/ A B C D F G H K S /;
53 foreach my $k ( keys %seen_wits ) {
54 my $wit = $t->witness( $k );
55 if( $seen_wits{$k} ) {
56 ok( $wit->is_layered, "Witness $k got marked as layered" );
57 ok( $wit->has_layertext, "Witness $k has an a.c. version" );
58 my $origtext = join( ' ', @{$wit->layertext} );
59 my $acsig = $wit->sigil . $t->collation->ac_label;
60 my $graphtext = $t->collation->path_text( $acsig );
61 is( $graphtext, $origtext, "Collation matches original a.c. for witness $k" );
63 ok( !$wit->is_layered, "Witness $k not marked as layered" );
64 ok( !$wit->has_layertext, "Witness $k has no a.c. version" );