}
}
+# Check that we only have collation relationships where we need them
+is( scalar $t->collation->relationships, 3, "Redundant collations were removed" );
+
=end testing
=cut
# Note that our ranks and common readings are set.
$c->_graphcalc_done(1);
+ # Remove redundant collation relationships.
+ $c->relations->filter_collations();
}
sub _make_nodes {
my $ctr = 1;
foreach my $w ( keys %unique ) {
my $rargs = {
- 'id' => "$index,$ctr",
+ 'id' => "r$index.$ctr",
'rank' => $index,
'text' => $w,
};
my $r = shift @rankrdgs;
next if $r->is_meta;
foreach my $nr ( @rankrdgs ) {
+ next if $nr->is_meta;
if( $collation_rel ) {
$collation->add_relationship( $r, $nr, $collation_rel );
} else {