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 | |
331c2dbf |
8 | binmode STDOUT, ":utf8"; |
9 | binmode STDERR, ":utf8"; |
10 | eval { no warnings; binmode $DB::OUT, ":utf8"; }; |
11 | |
dfc37e38 |
12 | BEGIN { use_ok 'Text::Tradition' } |
b49c4318 |
13 | |
dfc37e38 |
14 | # A simple test, just to make sure we can parse a graph. |
331c2dbf |
15 | my $datafile = 't/data/florilegium_tei_ps.xml'; |
dfc37e38 |
16 | my $tradition = Text::Tradition->new( 'input' => 'TEI', |
17 | 'name' => 'test0', |
18 | 'file' => $datafile, |
19 | 'linear' => 1 ); |
20 | |
21 | ok( $tradition, "Got a tradition object" ); |
22 | is( scalar $tradition->witnesses, 13, "Found all witnesses" ); |
23 | ok( $tradition->collation, "Tradition has a collation" ); |
24 | |
25 | my $c = $tradition->collation; |
56eefa04 |
26 | is( scalar $c->readings, 311, "Collation has all readings" ); |
27 | is( scalar $c->paths, 361, "Collation has all paths" ); |
dfc37e38 |
28 | is( scalar $c->relationships, 0, "Collation has all relationships" ); |
29 | |
30 | done_testing; |