Commit | Line | Data |
b49c4318 |
1 | #!/usr/bin/env perl |
2 | use strict; |
3 | use warnings; |
dfc37e38 |
4 | use lib 'lib'; |
5 | use Test::More; |
6 | use Text::Tradition; |
b49c4318 |
7 | |
dfc37e38 |
8 | BEGIN { use_ok 'Text::Tradition' } |
b49c4318 |
9 | |
dfc37e38 |
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', |
13 | 'name' => 'test0', |
14 | 'file' => $datafile, |
15 | 'linear' => 1 ); |
16 | |
17 | ok( $tradition, "Got a tradition object" ); |
18 | is( scalar $tradition->witnesses, 13, "Found all witnesses" ); |
19 | ok( $tradition->collation, "Tradition has a collation" ); |
20 | |
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" ); |
25 | |
26 | done_testing; |