X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Ftext_tradition_parser_tabular.t;h=c53e57e0b6b233eaa93f1ebdb82f9de1b26908c4;hb=222d58f10f00b766849be205554662b2bbcd29f9;hp=c67e4f1e9c1117fa62c0f4670496bf9c67c7b04c;hpb=b0b4421ad99abdb67e413f16219e932576212e50;p=scpubgit%2Fstemmatology.git

diff --git a/t/text_tradition_parser_tabular.t b/t/text_tradition_parser_tabular.t
index c67e4f1..c53e57e 100644
--- a/t/text_tradition_parser_tabular.t
+++ b/t/text_tradition_parser_tabular.t
@@ -57,13 +57,16 @@ foreach my $k ( keys %seen_wits ) {
 		ok( $wit->has_layertext, "Witness $k has an a.c. version" );
 		my $origtext = join( ' ', @{$wit->layertext} );
 		my $acsig = $wit->sigil . $t->collation->ac_label;
-		my $graphtext = $t->collation->path_text( $acsig, $wit->sigil );
+		my $graphtext = $t->collation->path_text( $acsig );
 		is( $graphtext, $origtext, "Collation matches original a.c. for witness $k" );
 	} else {
 		ok( !$wit->is_layered, "Witness $k not marked as layered" );
 		ok( !$wit->has_layertext, "Witness $k has no a.c. version" );
 	}
 }	
+
+# Check that we only have collation relationships where we need them
+is( scalar $t->collation->relationships, 3, "Redundant collations were removed" );
 }