X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Ftext_tradition_parser_collatex.t;h=3b95ecd2525212b527affff43d6c9d67994e5fe3;hb=227d4a1124cebc6d3149f886a3b0edc37fe7a3cd;hp=6bba0d10d5a4cba3395dd77675691522c6da7e2b;hpb=e867486f69f12dc06304594022c298935d1c7fb9;p=scpubgit%2Fstemmatology.git

diff --git a/t/text_tradition_parser_collatex.t b/t/text_tradition_parser_collatex.t
index 6bba0d1..3b95ecd 100644
--- a/t/text_tradition_parser_collatex.t
+++ b/t/text_tradition_parser_collatex.t
@@ -20,16 +20,17 @@ my $t = Text::Tradition->new(
     'file'  => $cxfile,
     );
 
-is( ref( $t ), 'Text::Tradition', "Parsed our own GraphML" );
+is( ref( $t ), 'Text::Tradition', "Parsed a CollateX input" );
 if( $t ) {
     is( scalar $t->collation->readings, 26, "Collation has all readings" );
-    is( scalar $t->collation->paths, 49, "Collation has all paths" );
+    is( scalar $t->collation->paths, 32, "Collation has all paths" );
     is( scalar $t->witnesses, 3, "Collation has all witnesses" );
     
     # Check an 'identical' node
     my $transposed = $t->collation->reading( 'n15' );
-    ok( $transposed->has_primary, "Reading links to transposed primary" );
-    is( $transposed->primary->name, 'n17', "Correct transposition link" );
+    my @related = $transposed->related_readings;
+    is( scalar @related, 1, "Reading links to transposed version" );
+    is( $related[0]->id, 'n18', "Correct transposition link" );
 }
 }