From: Tara L Andrews <tla@mit.edu>
Date: Thu, 13 Sep 2012 12:03:50 +0000 (+0200)
Subject: fix stemma test
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a0acdb4b2c28eec41eb7630ba475c0a41022620e;p=scpubgit%2Fstemmatology.git

fix stemma test
---

diff --git a/t/stemma.t b/t/stemma.t
index 404b686..84193a9 100644
--- a/t/stemma.t
+++ b/t/stemma.t
@@ -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->alignment_table() );
+my $mstr = character_input( $tradition );
  ## check number of rows
 my @mlines = split( "\n", $mstr );
 my $msig = shift @mlines;
@@ -60,8 +60,7 @@ SKIP: {
     is( scalar @$trees, 1, "Got a single tree" );
     # Test that the tree has all our witnesses
     my $tree = $trees->[0];
-    my @leaves = grep { $tree->degree( $_ ) == 1 } $tree->vertices;
-    is( scalar @leaves, 3, "All witnesses in the tree" );
+    is( scalar $tree->witnesses, 3, "All witnesses in the tree" );
 }
 
 # Test our dot output