Add more tests for cluster spatial recalc

shawnlaffan · Jun 2, 2024 · 45ddc01 · 45ddc01
1 parent b211c5b
commit 45ddc01
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/t/26-Cluster2.t b/t/26-Cluster2.t
@@ -298,6 +298,9 @@ sub test_cluster_node_calcs {
         [sort @lists1],
         "Node lists differ after recalculation of indices";
 
+    is ((scalar grep {/>>/} @lists1), 46, 'output contained randomisation lists');
+    is ((scalar grep {/>>/} @lists2),  0, 'no randomisation lists remaining after recalc');
+
     foreach my $node ($cl1->get_node_refs) {
         my $sp_res_ref = $node->get_list_ref_aa('SPATIAL_RESULTS');
         @sp_res_keys2{keys %$sp_res_ref} = undef;