X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Ftext_tradition_parser_tabular.t;h=c53e57e0b6b233eaa93f1ebdb82f9de1b26908c4;hb=fc5c4949b38572067ab389afa8c1cafec2b5dbd0;hp=5426a76851ed04d6a685cf09d3c8ddf265ae9a7f;hpb=0e47f4f67650eaa804f9e23b3241718d8eb94433;p=scpubgit%2Fstemmatology.git

diff --git a/t/text_tradition_parser_tabular.t b/t/text_tradition_parser_tabular.t
index 5426a76..c53e57e 100644
--- a/t/text_tradition_parser_tabular.t
+++ b/t/text_tradition_parser_tabular.t
@@ -29,6 +29,44 @@ if( $t ) {
     is( scalar $t->collation->paths, 361, "Collation has all paths" );
     is( scalar $t->witnesses, 13, "Collation has all witnesses" );
 }
+
+# Check that we have the right witnesses
+my %seen_wits;
+map { $seen_wits{$_} = 0 } qw/ A B C D E F G H K P Q S T /;
+foreach my $wit ( $t->witnesses ) {
+	$seen_wits{$wit->sigil} = 1;
+}
+is( scalar keys %seen_wits, 13, "No extra witnesses were made" );
+foreach my $k ( keys %seen_wits ) {
+	ok( $seen_wits{$k}, "Witness $k still exists" );
+}
+
+# Check that the witnesses have the right texts
+foreach my $wit ( $t->witnesses ) {
+	my $origtext = join( ' ', @{$wit->text} );
+	my $graphtext = $t->collation->path_text( $wit->sigil );
+	is( $graphtext, $origtext, "Collation matches original for witness " . $wit->sigil );
+}
+
+# Check that the a.c. witnesses have the right text
+map { $seen_wits{$_} = 0 } qw/ A B C D F G H K S /;
+foreach my $k ( keys %seen_wits ) {
+	my $wit = $t->witness( $k );
+	if( $seen_wits{$k} ) {
+		ok( $wit->is_layered, "Witness $k got marked as layered" );
+		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 );
+		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" );
 }