fix bugs in persistent equivalence graph implementation
[scpubgit/stemmatology.git] / t / 01app.t
1 #!/usr/bin/env perl
2 use strict;
3 use warnings;
4 use lib 'lib';
5 use Test::More;
6 use Text::Tradition;
7
8 binmode STDOUT, ":utf8";
9 binmode STDERR, ":utf8";
10 eval { no warnings; binmode $DB::OUT, ":utf8"; };
11
12 BEGIN { use_ok 'Text::Tradition' }
13
14 # A simple test, just to make sure we can parse a graph.
15 my $datafile = 't/data/florilegium_tei_ps.xml';
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;
26 is( scalar $c->readings, 311, "Collation has all readings" );
27 is( scalar $c->paths, 361, "Collation has all paths" );
28 is( scalar $c->relationships, 0, "Collation has all relationships" );
29
30 done_testing;