use Test::More;
use Text::Tradition;
+binmode STDOUT, ":utf8";
+binmode STDERR, ":utf8";
+eval { no warnings; binmode $DB::OUT, ":utf8"; };
+
BEGIN { use_ok 'Text::Tradition' }
# A simple test, just to make sure we can parse a graph.
-my $datafile = 't/data/florilegium_graphml.xml';
+my $datafile = 't/data/florilegium_tei_ps.xml';
my $tradition = Text::Tradition->new( 'input' => 'TEI',
'name' => 'test0',
'file' => $datafile,
ok( $tradition->collation, "Tradition has a collation" );
my $c = $tradition->collation;
-is( scalar $c->readings, 236, "Collation has all readings" );
-is( scalar $c->paths, 1838, "Collation has all paths" );
+is( scalar $c->readings, 311, "Collation has all readings" );
+is( scalar $c->paths, 361, "Collation has all paths" );
is( scalar $c->relationships, 0, "Collation has all relationships" );
done_testing;
\ No newline at end of file