8 binmode STDOUT, ":utf8";
9 binmode STDERR, ":utf8";
10 eval { no warnings; binmode $DB::OUT, ":utf8"; };
12 BEGIN { use_ok 'Text::Tradition' }
14 # A simple test, just to make sure we can parse a graph.
15 my $datafile = 't/data/florilegium_tei_ps.xml';
16 my $tradition = Text::Tradition->new( 'input' => 'TEI',
21 ok( $tradition, "Got a tradition object" );
22 is( scalar $tradition->witnesses, 13, "Found all witnesses" );
23 ok( $tradition->collation, "Tradition has a collation" );
25 my $c = $tradition->collation;
26 is( scalar $c->readings, 311, "Collation has all readings" );
27 is( scalar $c->paths, 361, "Collation has all paths" );
28 is( scalar $c->relationships, 0, "Collation has all relationships" );