Force ::Collation objects to be serialized en bloc, "fixing" GC.

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

diff --git a/t/text_tradition_directory.t b/t/text_tradition_directory.t
index 3b5d693..8a3deba 100644 (file)
--- a/t/text_tradition_directory.t
+++ b/t/text_tradition_directory.t
@@ -107,6 +107,12 @@ my %second_counts;
        my @w1 = sort { $a->sigil cmp $b->sigil } $ntobj->witnesses;
        my @w2 = sort{ $a->sigil cmp $b->sigil } $nt->witnesses;
        is_deeply( \@w1, \@w2, "Looked up remaining tradition by name" );
+
+        is_deeply(
+            [ sort keys %{$nt->collation->{readings}} ],
+            [ sort keys %{$ntobj->collation->{readings}} ],
+            'Same reading keys between original and re-look-up'
+        );
 }
 
 my %final_counts = get_counts();