X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Ftext_tradition_parser_tabular.t;h=cf61a4b552538c4c1b13e860e1159bd3877b5fcf;hb=cc31ebaa10a5cb223801522f23ee955953789a01;hp=bfd6dc933b5b579c65b80eee865248950c4717ea;hpb=abadc99755945b57efb1268ab54d99642ae4786c;p=scpubgit%2Fstemmatology.git

diff --git a/t/text_tradition_parser_tabular.t b/t/text_tradition_parser_tabular.t
index bfd6dc9..cf61a4b 100644
--- a/t/text_tradition_parser_tabular.t
+++ b/t/text_tradition_parser_tabular.t
@@ -64,6 +64,12 @@ foreach my $k ( keys %seen_wits ) {
 		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" );
+foreach my $rel ( $t->collation->relationships ) {
+	print STDERR $rel->[0] . " -> " . $rel->[1] . "\n";
+}
 }