allow wordforms to be cleared out

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

diff --git a/t/stemma.t b/t/stemma.t
index 45f1f3f..404b686 100644 (file)
--- 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;