X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Ftext_tradition_collation_relationshipstore.t;h=7b8e989ee8c4658fcd501c88274c457c07c3a4d5;hb=359944f792e53a70d22ddb199c10ef25c269e154;hp=d0c388368cd324bd875192448a5794095049be25;hpb=46e1fe146d07f8325d488278a41dac4697539651;p=scpubgit%2Fstemmatology.git

diff --git a/t/text_tradition_collation_relationshipstore.t b/t/text_tradition_collation_relationshipstore.t
index d0c3883..7b8e989 100644
--- a/t/text_tradition_collation_relationshipstore.t
+++ b/t/text_tradition_collation_relationshipstore.t
@@ -69,6 +69,15 @@ try {
 	ok( 0, "Collation now has a cycle" );
 }
 
+# Now attempt merge of an identical reading
+try {
+	$c1->merge_readings( '9,3', '11,5' );
+	ok( 1, "Successfully merged reading 'pontifex'" );
+} catch ( Text::Tradition::Error $e ) {
+	ok( 0, "Merge of mergeable readings failed: $e->message" );
+	
+}
+
 # Test 2: try to equate nodes that are prevented with a real intermediate
 # equivalence
 my $t2 = Text::Tradition->new( 'input' => 'Self', 'file' => 't/data/legendfrag.xml' );