fix graphml subgraph generation; fix tab parsing to only set 'collated' where needed...

[scpubgit/stemmatology.git] / t / text_tradition_parser_tabular.t

diff --git a/t/text_tradition_parser_tabular.t b/t/text_tradition_parser_tabular.t
index bfd6dc9..cf61a4b 100644 (file)
--- 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";
+}
 }