set up proper garbage-collecting deletion of traditions from the directory

[scpubgit/stemmatology.git] / t / text_tradition_directory.t

diff --git a/t/text_tradition_directory.t b/t/text_tradition_directory.t
index efc4f23..c473ced 100644 (file)
--- a/t/text_tradition_directory.t
+++ b/t/text_tradition_directory.t
@@ -47,6 +47,7 @@ warning_like { $e->tradition( $sid ) } qr/not a Text::Tradition/, "Did not retri
 warning_like { $e->delete( $sid ) } qr/Cannot directly delete non-Tradition object/, "Stemma object not deleted from DB";
 $e->delete( $uuid );
 ok( !$e->exists( $uuid ), "Object is deleted from DB" );
+ok( !$e->exists( $sid ), "Object stemma also deleted from DB" );
 is( scalar $e->tradition_ids, 0, "Object is deleted from index" );
 }