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

diff --git a/t/text_tradition_parser_tabular.t b/t/text_tradition_parser_tabular.t
index bfd6dc9..c53e57e 100644
--- a/t/text_tradition_parser_tabular.t
+++ b/t/text_tradition_parser_tabular.t
@@ -64,6 +64,9 @@ 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" );
 }