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" );
}