Promote fragile test

lthls · Oct 31, 2024 · 791f39e · 791f39e
1 parent f7d93e2
commit 791f39e
Showing 1 changed file with 18 additions and 17 deletions.
diff --git a/testsuite/tests/tool-ocamlobjinfo/question.reference b/testsuite/tests/tool-ocamlobjinfo/question.reference
@@ -42,25 +42,26 @@ Typing env:
  (type_equations
   {([0m[38;5;111;1m[0m[38;5;98;1mQuestion.camlQuestion[0m[38;5;111;1m[0m
     (Val
-     (Variant
-      (blocks
-       ((alloc_mode Heap) (known
-         {(tag_0 => (Known 1), ((Val ([0m[38;5;160;1m=[0m [0m[38;5;111;1m[0m[38;5;98;1mQuestion.camlQuestion__answer_1[0m[38;5;111;1m[0m))))})
-        (other Bottom))) (tagged_imms (Naked_immediate [0m[38;5;37;1m⊥[0m)))))
+     ( ((Variant
+         (blocks
+          ((alloc_mode Heap) (known
+            {(tag_0 => (Known 1),
+              ((Val (([0m[38;5;160;1m=[0m [0m[38;5;111;1m[0m[38;5;98;1mQuestion.camlQuestion__answer_1[0m[38;5;111;1m[0m)))))}) (other Bottom)))
+         (tagged_imms (Naked_immediate [0m[38;5;37;1m⊥[0m))))!)))
    ([0m[38;5;111;1m[0m[38;5;98;1mQuestion.camlQuestion__answer_1[0m[38;5;111;1m[0m
     (Val
-     ((alloc_mode Heap) (known
-       {([0m[38;5;31;1m(answer/0 ∷ [0m[38;5;37;1m𝕍[0m[38;5;31;1m)[0m
-         => (Known ((closures { [0m[38;5;31;1m(answer/0 ∷ [0m[38;5;37;1m𝕍[0m[38;5;31;1m)[0m }) (value_slots { }))),
-         ((function_types
-           {([0m[38;5;31;1m(answer/0 ∷ [0m[38;5;37;1m𝕍[0m[38;5;31;1m)[0m
-             (Ok (function_type (code_id [0m[38;5;169;1mcamlQuestion__answer_0_1_code[0m)
-                  (rec_info (Rec_info [0m[38;5;249;1m0[0m)))))})
-          (closure_types
-           ((function_slot_components_by_index
-             {([0m[38;5;31;1m(answer/0 ∷ [0m[38;5;37;1m𝕍[0m[38;5;31;1m)[0m (Val ([0m[38;5;160;1m=[0m [0m[38;5;111;1m[0m[38;5;98;1mQuestion.camlQuestion__answer_1[0m[38;5;111;1m[0m)))})))
-          (value_slot_types ((value_slot_components_by_index {})))))})
-      (other Bottom))))})
+     ( (((alloc_mode Heap) (known
+          {([0m[38;5;31;1m(answer/0 ∷ [0m[38;5;37;1m𝕍[0m[38;5;31;1m)[0m
+            => (Known ((closures { [0m[38;5;31;1m(answer/0 ∷ [0m[38;5;37;1m𝕍[0m[38;5;31;1m)[0m }) (value_slots { }))),
+            ((function_types
+              {([0m[38;5;31;1m(answer/0 ∷ [0m[38;5;37;1m𝕍[0m[38;5;31;1m)[0m
+                ((function_type (code_id [0m[38;5;169;1mcamlQuestion__answer_0_1_code[0m)
+                  (rec_info (Rec_info ([0m[38;5;249;1m0[0m))))))})
+             (closure_types
+              ((function_slot_components_by_index
+                {([0m[38;5;31;1m(answer/0 ∷ [0m[38;5;37;1m𝕍[0m[38;5;31;1m)[0m (Val (([0m[38;5;160;1m=[0m [0m[38;5;111;1m[0m[38;5;98;1mQuestion.camlQuestion__answer_1[0m[38;5;111;1m[0m))))})))
+             (value_slot_types ((value_slot_components_by_index {})))))})
+         (other Bottom)))!)))})
  (aliases
   ((canonical_elements {}) (aliases_of_canonical_names {})
    (aliases_of_consts {}))))