X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F01app.t;h=f626a2df05270f831d71b17838c9aa8402293711;hb=331c2dbfdaef35bbdef9a529b5b6187d74242c5c;hp=9f512b48e1d3682424bc09f084af81a8d547bdab;hpb=dfc37e3886452920c1332a045f9102ce29457af1;p=scpubgit%2Fstemmatology.git

diff --git a/t/01app.t b/t/01app.t
index 9f512b4..f626a2d 100644
--- a/t/01app.t
+++ b/t/01app.t
@@ -5,10 +5,14 @@ use lib 'lib';
 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,
@@ -19,8 +23,8 @@ is( scalar $tradition->witnesses, 13, "Found all witnesses" );
 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, 319, "Collation has all readings" );
+is( scalar $c->paths, 2854, "Collation has all paths" );
 is( scalar $c->relationships, 0, "Collation has all relationships" );
 
 done_testing;
\ No newline at end of file