X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Ftext_tradition_parser_collatex.t;h=3b95ecd2525212b527affff43d6c9d67994e5fe3;hb=679f17e1a60a81370df8cbb49b94a2b5d19e3a98;hp=733cf1b867aac33347e5cdeacc576b46daee138c;hpb=a2ed66b255a1b88374b5279faa18f0c390ca5dbb;p=scpubgit%2Fstemmatology.git

diff --git a/t/text_tradition_parser_collatex.t b/t/text_tradition_parser_collatex.t
index 733cf1b..3b95ecd 100644
--- a/t/text_tradition_parser_collatex.t
+++ b/t/text_tradition_parser_collatex.t
@@ -20,7 +20,7 @@ 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, 32, "Collation has all paths" );
@@ -30,7 +30,7 @@ if( $t ) {
     my $transposed = $t->collation->reading( 'n15' );
     my @related = $transposed->related_readings;
     is( scalar @related, 1, "Reading links to transposed version" );
-    is( $related[0]->id, 'n17', "Correct transposition link" );
+    is( $related[0]->id, 'n18', "Correct transposition link" );
 }
 }