Updated tests, removed duplicate finalize call.

kodek16 · kodek16 · commit f84cda3a48e2 · 2018-08-16T14:59:50.000+01:00
Signed-off-by: Pavel Senchanka &lt;pavel.senchanka@gmail.com&gt;
diff --git a/src/build_system.ml b/src/build_system.ml
@@ -1226,25 +1226,21 @@ let create ~contexts ~file_tree ~hook =
     List.map contexts ~f:(fun c -> (c.Context.name, c))
     |> String.Map.of_list_exn
   in
-  let t =
-    { contexts
-    ; files      = Path.Table.create 1024
-    ; packages   = Path.Table.create 1024
-    ; trace      = Trace.load ()
-    ; local_mkdirs = Path.Set.empty
-    ; dirs       = Path.Table.create 1024
-    ; load_dir_stack = []
-    ; file_tree
-    ; gen_rules = String.Map.map contexts ~f:(fun _ ~dir:_ ->
-        die "gen_rules called too early")
-    ; build_dirs_to_keep = Path.Set.empty
-    ; files_of = Path.Table.create 1024
-    ; prefix = None
-    ; hook
-    }
-  in
-  at_exit (fun () -> finalize t);
-  t
+  { contexts
+  ; files      = Path.Table.create 1024
+  ; packages   = Path.Table.create 1024
+  ; trace      = Trace.load ()
+  ; local_mkdirs = Path.Set.empty
+  ; dirs       = Path.Table.create 1024
+  ; load_dir_stack = []
+  ; file_tree
+  ; gen_rules = String.Map.map contexts ~f:(fun _ ~dir:_ ->
+      die "gen_rules called too early")
+  ; build_dirs_to_keep = Path.Set.empty
+  ; files_of = Path.Table.create 1024
+  ; prefix = None
+  ; hook
+  }
 
 let eval_request t ~request ~process_target =
   let { Build_interpret.Static_deps.
diff --git a/test/blackbox-tests/test-cases/promote/run.t b/test/blackbox-tests/test-cases/promote/run.t
@@ -20,9 +20,9 @@ Otherwise this test fails on OSX
 
   $ printf titi > x
   $ dune build --display short --diff-command false @blah --auto-promote 2>&1 | sed 's/.*false.*/DIFF/'
+  Promoting _build/default/x.gen to x.
             sh (internal) (exit 1)
   DIFF
-  Promoting _build/default/x.gen to x.
   $ cat x
   toto
   $ dune build --display short --diff-command false @blah
