X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Ftext_tradition_collation_relationshipstore.t;h=9f9ed65acbc64cae8b03d08001f637ca2c79367b;hb=681893aaf3a08910a7baf865bdbe3b4d17433abc;hp=717c878c55a47882f286988e382e689b1fa9668c;hpb=a15d1f5ab9ea984a964f7cb176ffcd959287b370;p=scpubgit%2Fstemmatology.git diff --git a/t/text_tradition_collation_relationshipstore.t b/t/text_tradition_collation_relationshipstore.t index 717c878..9f9ed65 100644 --- a/t/text_tradition_collation_relationshipstore.t +++ b/t/text_tradition_collation_relationshipstore.t @@ -34,12 +34,8 @@ is( scalar @v2, 2, "Added a global relationship with two instances" ); is( scalar @v1, 1, "Deleted first relationship" ); @v2 = $c->del_relationship( 'n8', 'n13' ); is( scalar @v2, 2, "Deleted second global relationship" ); -try { - my @v3 = $c->del_relationship( 'n1', 'n2' ); - ok( 0, "Should have errored on non-existent relationship" ); -} catch( Text::Tradition::Error $e ) { - like( $e->message, qr/No relationship defined/, "Attempt to delete non-existent relationship errored" ); -} +my @v3 = $c->del_relationship( 'n1', 'n2' ); +is( scalar @v3, 0, "Nothing deleted on non-existent relationship" ); }