4 use Test::More 'no_plan';
12 binmode STDOUT, ":utf8";
13 binmode STDERR, ":utf8";
14 eval { no warnings; binmode $DB::OUT, ":utf8"; };
16 my $cxfile = 't/data/Collatex-16.xml';
17 my $t = Text::Tradition->new(
19 'input' => 'CollateX',
23 is( ref( $t ), 'Text::Tradition', "Parsed a CollateX input" );
25 is( scalar $t->collation->readings, 26, "Collation has all readings" );
26 is( scalar $t->collation->paths, 32, "Collation has all paths" );
27 is( scalar $t->witnesses, 3, "Collation has all witnesses" );
29 # Check an 'identical' node
30 my $transposed = $t->collation->reading( 'n15' );
31 my @related = $transposed->related_readings;
32 is( scalar @related, 1, "Reading links to transposed version" );
33 is( $related[0]->id, 'n18', "Correct transposition link" );