4 use Test::More 'no_plan';
12 use Text::Tradition::Analysis qw/ run_analysis analyze_variant_location /;
14 my $datafile = 't/data/florilegium_tei_ps.xml';
15 my $tradition = Text::Tradition->new( 'input' => 'TEI',
17 'file' => $datafile );
18 my $s = $tradition->add_stemma( 'dotfile' => 't/data/florilegium.dot' );
19 is( ref( $s ), 'Text::Tradition::Stemma', "Added stemma to tradition" );
21 my %expected_genealogical = (
52 my $data = run_analysis( $tradition );
53 foreach my $row ( @{$data->{'variants'}} ) {
54 is( $row->{'genealogical'}, $expected_genealogical{$row->{'id'}},
55 "Got correct genealogical flag for row " . $row->{'id'} );
57 is( $data->{'conflict_count'}, 16, "Got right conflict count" );
58 is( $data->{'variant_count'}, 28, "Got right total variant number" );