X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Ftext_tradition_parser_collatex.t;h=3b95ecd2525212b527affff43d6c9d67994e5fe3;hb=354cc918ae96a100b8bbb332aba3ff1023a16f0a;hp=733cf1b867aac33347e5cdeacc576b46daee138c;hpb=a753cc846a37032aca109851f8de6ce760283383;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" ); } }