CHECKPOINT for laptop migration

[scpubgit/stemmatology.git] / t / stemma.t

diff --git a/t/stemma.t b/t/stemma.t
new file mode 100644 (file)
index 0000000..919f5a6
--- /dev/null
+++ b/t/stemma.t
@@ -0,0 +1,35 @@
+#!/usr/bin/perl
+
+use strict; use warnings;
+use Test::More;
+use lib 'lib';
+use Text::Tradition;
+use Text::Tradition::Stemma;
+use XML::LibXML;
+use XML::LibXML::XPathContext;
+
+my $datafile = 't/data/Collatex-16.xml'; #TODO need other test data
+
+open( GRAPHFILE, $datafile ) or die "Could not open $datafile";
+my @lines = <GRAPHFILE>;
+close GRAPHFILE;
+my $tradition = Text::Tradition->new( 'CollateX' => join( '', @lines ),
+                                     'linear' => 1 );
+my $stemma = Text::Tradition::Stemma->new( 'tradition' => $tradition );
+
+# Test for object creation
+ok( $stemma->isa( 'Text::Tradition::Stemma' ), 'Got the right sort of object' );
+
+# Test for character matrix creation
+$stemma->make_character_matrix();
+ ## check number of rows
+ ## check number of columns
+
+# Test that pars runs
+my( $status, $tree ) = $stemma->run_pars();
+ok( $status, "pars ran successfully" );
+print STDERR "Error was $tree\n" unless $status;
+
+# Test that we get a tree
+
+# Test that the tree has all our witnesses