8 BEGIN { use_ok 'Text::Tradition' }
10 # A simple test, just to make sure we can parse a graph.
11 my $datafile = 't/data/florilegium_graphml.xml';
12 my $tradition = Text::Tradition->new( 'input' => 'TEI',
17 ok( $tradition, "Got a tradition object" );
18 is( scalar $tradition->witnesses, 13, "Found all witnesses" );
19 ok( $tradition->collation, "Tradition has a collation" );
21 my $c = $tradition->collation;
22 is( scalar $c->readings, 236, "Collation has all readings" );
23 is( scalar $c->paths, 1838, "Collation has all paths" );
24 is( scalar $c->relationships, 0, "Collation has all relationships" );