diff --git a/tezt/tests/storage_snapshots.ml b/tezt/tests/storage_snapshots.ml index 207e8035e7d446d390a97bc31c5434c6eab66111..b3062debbb0a4edbe0220648b29f8802f7cb93d4 100644 --- a/tezt/tests/storage_snapshots.ml +++ b/tezt/tests/storage_snapshots.ml @@ -56,7 +56,12 @@ let get_constants client = let export_snapshot node ~export_level ~snapshot_dir ~history_mode ~export_format = - Log.info "Exporting snapshot for %s" (Node.name node) ; + Log.info + "Exporting %a snapshot for %s at level %d" + pp_snapshot_history_mode + history_mode + (Node.name node) + export_level ; let filename = Format.asprintf "%s.%a.%a" @@ -275,9 +280,11 @@ let test_export_import_snapshots = let blocks_to_bake = (preserved_cycles + 1) * blocks_per_cycle in let* () = bake_blocks archive_node client ~blocks_to_bake in let archive_level = Node.get_level archive_node in - let* () = - sync_all_nodes [archive_node; full_node; rolling_node] archive_level - in + let* () = sync_all_nodes cluster archive_level in + (* Terminate all nodes to save resources. Note: we may consider + that exporting a snapshot from a node that is running is an + actual usecase (such exports are already done in other tests). *) + let* () = Lwt_list.iter_p Node.terminate cluster in let export_import_and_check = export_import_and_check ~max_op_ttl ~export_level:archive_level in