X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fstemma.t;h=404b686bbeab8a9368c0fd1e9fbc0aaf6b1696bb;hb=6be2fbcb9418e57bb96469526834721118fb8da0;hp=45f1f3f9c6d8179aaa6f36331deb1e69b1037bed;hpb=9457207bd8e172d841358f5687b2b6208f8f3892;p=scpubgit%2Fstemmatology.git diff --git a/t/stemma.t b/t/stemma.t index 45f1f3f..404b686 100644 --- a/t/stemma.t +++ b/t/stemma.t @@ -18,9 +18,9 @@ my $tradition = Text::Tradition->new( ); # Set up some relationships my $c = $tradition->collation; -$c->add_relationship( 'n25', 'n26', { 'type' => 'spelling' } ); -$c->add_relationship( 'n9', 'n23', { 'type' => 'spelling' } ); -$c->add_relationship( 'n8', 'n13', { 'type' => 'spelling' } ); +$c->add_relationship( 'n23', 'n24', { 'type' => 'spelling' } ); +$c->add_relationship( 'n9', 'n10', { 'type' => 'spelling' } ); +$c->add_relationship( 'n12', 'n13', { 'type' => 'spelling' } ); $c->calculate_ranks(); my $stemma = $tradition->add_stemma( dotfile => 't/data/simple.dot' ); @@ -30,7 +30,7 @@ ok( $stemma->isa( 'Text::Tradition::Stemma' ), 'Got the right sort of object' ); is( $stemma->graph, '1-2,1-A,2-B,2-C', "Got the correct graph" ); # Test for character matrix creation -my $mstr = character_input( $c->make_alignment_table() ); +my $mstr = character_input( $c->alignment_table() ); ## check number of rows my @mlines = split( "\n", $mstr ); my $msig = shift @mlines;