3 use strict; use warnings;
7 use Text::Tradition::Stemma;
9 use XML::LibXML::XPathContext;
11 my $datafile = 't/data/Collatex-16.xml'; #TODO need other test data
13 my $tradition = Text::Tradition->new(
15 'input' => 'CollateX',
18 my $stemma = Text::Tradition::Stemma->new( 'collation' => $tradition->collation );
20 # Test for object creation
21 ok( $stemma->isa( 'Text::Tradition::Stemma' ), 'Got the right sort of object' );
23 # Test for character matrix creation
24 $stemma->make_character_matrix();
25 ## check number of rows
26 ## check number of columns
29 my( $status, $tree ) = $stemma->run_phylip_pars();
30 ok( $status, "pars ran successfully" );
31 print STDERR "Error was $tree\n" unless $status;
33 # Test that we get a tree
35 # Test that the tree has all our witnesses