diff --git a/minidebug_runtime.mli b/minidebug_runtime.mli index 798e5ff..3cecd0a 100644 --- a/minidebug_runtime.mli +++ b/minidebug_runtime.mli @@ -181,7 +181,8 @@ module type PrintBox_runtime = sig editor-specific prefixes such as ["vscode://file/"]. Note that rendering a link on a node will make the node non-foldable, - therefore it is best to combine [`Prefix prefix] with [values_first_mode=true]. *) + therefore it is best to combine [`Prefix prefix] with + [values_first_mode=true]. *) mutable toc_specific_hyperlink : string option; (** If provided, overrides [hyperlink] as the prefix used for generating URIs pointing to anchors in logs. *) diff --git a/test/debugger_sexp_md.expected.md b/test/debugger_sexp_md.expected.md index 2b06ebf..9d8df05 100644 --- a/test/debugger_sexp_md.expected.md +++ b/test/debugger_sexp_md.expected.md @@ -2,11 +2,11 @@ BEGIN DEBUG SESSION
  foo = (7 8 16) -- ["test/test_debug_md.ml":8:19](../test/test_debug_md.ml#L8) +- ["test/test_debug_md.ml":7:19](../test/test_debug_md.ml#L7) - `x = 7` -
  y = 8 - - ["test/test_debug_md.ml":9:6](../test/test_debug_md.ml#L9) + - ["test/test_debug_md.ml":8:6](../test/test_debug_md.ml#L8)
@@ -14,11 +14,11 @@ BEGIN DEBUG SESSION
  bar = 336 -- ["test/test_debug_md.ml":16:19](../test/test_debug_md.ml#L16) +- ["test/test_debug_md.ml":15:19](../test/test_debug_md.ml#L15) - `x = ((first 7) (second 42))` -
  y = 8 - - ["test/test_debug_md.ml":17:6](../test/test_debug_md.ml#L17) + - ["test/test_debug_md.ml":16:6](../test/test_debug_md.ml#L16)
@@ -26,16 +26,16 @@ BEGIN DEBUG SESSION
  baz = 359 -- ["test/test_debug_md.ml":22:19](../test/test_debug_md.ml#L22) +- ["test/test_debug_md.ml":21:19](../test/test_debug_md.ml#L21) - `x = ((first 7) (second 42))` -
  _yz = (8 3) - - ["test/test_debug_md.ml":23:17](../test/test_debug_md.ml#L23) + - ["test/test_debug_md.ml":22:17](../test/test_debug_md.ml#L22)
-
  _uw = (7 13) - - ["test/test_debug_md.ml":24:17](../test/test_debug_md.ml#L24) + - ["test/test_debug_md.ml":23:17](../test/test_debug_md.ml#L23)
@@ -43,11 +43,11 @@ BEGIN DEBUG SESSION
  lab = (7 8 16) -- ["test/test_debug_md.ml":29:19](../test/test_debug_md.ml#L29) +- ["test/test_debug_md.ml":28:19](../test/test_debug_md.ml#L28) - `x = 7` -
  y = 8 - - ["test/test_debug_md.ml":30:6](../test/test_debug_md.ml#L30) + - ["test/test_debug_md.ml":29:6](../test/test_debug_md.ml#L29)
@@ -55,38 +55,38 @@ BEGIN DEBUG SESSION
  loop = 36 -- ["test/test_debug_md.ml":35:24](../test/test_debug_md.ml#L35) +- ["test/test_debug_md.ml":34:24](../test/test_debug_md.ml#L34) - `depth = 0` - `x = ((first 7) (second 42))` -
  y = 24 - - ["test/test_debug_md.ml":39:8](../test/test_debug_md.ml#L39) + - ["test/test_debug_md.ml":38:8](../test/test_debug_md.ml#L38) -
  loop = 24 - - ["test/test_debug_md.ml":35:24](../test/test_debug_md.ml#L35) + - ["test/test_debug_md.ml":34:24](../test/test_debug_md.ml#L34) - `depth = 1` - `x = ((first 41) (second 9))` -
  y = 25 - - ["test/test_debug_md.ml":39:8](../test/test_debug_md.ml#L39) + - ["test/test_debug_md.ml":38:8](../test/test_debug_md.ml#L38) -
  loop = 25 - - ["test/test_debug_md.ml":35:24](../test/test_debug_md.ml#L35) + - ["test/test_debug_md.ml":34:24](../test/test_debug_md.ml#L34) - `depth = 2` - `x = ((first 8) (second 43))` -
  loop = 25 - - ["test/test_debug_md.ml":35:24](../test/test_debug_md.ml#L35) + - ["test/test_debug_md.ml":34:24](../test/test_debug_md.ml#L34) - `depth = 3` - `x = ((first 44) (second 4))` -
  loop = 25 - - ["test/test_debug_md.ml":35:24](../test/test_debug_md.ml#L35) + - ["test/test_debug_md.ml":34:24](../test/test_debug_md.ml#L34) - `depth = 4` - `x = ((first 5) (second 22))` -
  loop = 25 - - ["test/test_debug_md.ml":35:24](../test/test_debug_md.ml#L35) + - ["test/test_debug_md.ml":34:24](../test/test_debug_md.ml#L34) - `depth = 5` - `x = ((first 23) (second 2))`
@@ -101,25 +101,25 @@ BEGIN DEBUG SESSION -
  z = 17 - - ["test/test_debug_md.ml":40:8](../test/test_debug_md.ml#L40) + - ["test/test_debug_md.ml":39:8](../test/test_debug_md.ml#L39) -
  loop = 17 - - ["test/test_debug_md.ml":35:24](../test/test_debug_md.ml#L35) + - ["test/test_debug_md.ml":34:24](../test/test_debug_md.ml#L34) - `depth = 2` - `x = ((first 10) (second 25))` -
  loop = 17 - - ["test/test_debug_md.ml":35:24](../test/test_debug_md.ml#L35) + - ["test/test_debug_md.ml":34:24](../test/test_debug_md.ml#L34) - `depth = 3` - `x = ((first 26) (second 5))` -
  loop = 17 - - ["test/test_debug_md.ml":35:24](../test/test_debug_md.ml#L35) + - ["test/test_debug_md.ml":34:24](../test/test_debug_md.ml#L34) - `depth = 4` - `x = ((first 6) (second 13))` -
  loop = 17 - - ["test/test_debug_md.ml":35:24](../test/test_debug_md.ml#L35) + - ["test/test_debug_md.ml":34:24](../test/test_debug_md.ml#L34) - `depth = 5` - `x = ((first 14) (second 3))`
@@ -138,33 +138,33 @@ BEGIN DEBUG SESSION -
  z = 29 - - ["test/test_debug_md.ml":40:8](../test/test_debug_md.ml#L40) + - ["test/test_debug_md.ml":39:8](../test/test_debug_md.ml#L39) -
  loop = 29 - - ["test/test_debug_md.ml":35:24](../test/test_debug_md.ml#L35) + - ["test/test_debug_md.ml":34:24](../test/test_debug_md.ml#L34) - `depth = 1` - `x = ((first 43) (second 24))` -
  y = 30 - - ["test/test_debug_md.ml":39:8](../test/test_debug_md.ml#L39) + - ["test/test_debug_md.ml":38:8](../test/test_debug_md.ml#L38) -
  loop = 30 - - ["test/test_debug_md.ml":35:24](../test/test_debug_md.ml#L35) + - ["test/test_debug_md.ml":34:24](../test/test_debug_md.ml#L34) - `depth = 2` - `x = ((first 23) (second 45))` -
  loop = 30 - - ["test/test_debug_md.ml":35:24](../test/test_debug_md.ml#L35) + - ["test/test_debug_md.ml":34:24](../test/test_debug_md.ml#L34) - `depth = 3` - `x = ((first 46) (second 11))` -
  loop = 30 - - ["test/test_debug_md.ml":35:24](../test/test_debug_md.ml#L35) + - ["test/test_debug_md.ml":34:24](../test/test_debug_md.ml#L34) - `depth = 4` - `x = ((first 12) (second 23))` -
  loop = 30 - - ["test/test_debug_md.ml":35:24](../test/test_debug_md.ml#L35) + - ["test/test_debug_md.ml":34:24](../test/test_debug_md.ml#L34) - `depth = 5` - `x = ((first 24) (second 6))`
@@ -179,25 +179,25 @@ BEGIN DEBUG SESSION -
  z = 22 - - ["test/test_debug_md.ml":40:8](../test/test_debug_md.ml#L40) + - ["test/test_debug_md.ml":39:8](../test/test_debug_md.ml#L39) -
  loop = 22 - - ["test/test_debug_md.ml":35:24](../test/test_debug_md.ml#L35) + - ["test/test_debug_md.ml":34:24](../test/test_debug_md.ml#L34) - `depth = 2` - `x = ((first 25) (second 30))` -
  loop = 22 - - ["test/test_debug_md.ml":35:24](../test/test_debug_md.ml#L35) + - ["test/test_debug_md.ml":34:24](../test/test_debug_md.ml#L34) - `depth = 3` - `x = ((first 31) (second 12))` -
  loop = 22 - - ["test/test_debug_md.ml":35:24](../test/test_debug_md.ml#L35) + - ["test/test_debug_md.ml":34:24](../test/test_debug_md.ml#L34) - `depth = 4` - `x = ((first 13) (second 15))` -
  loop = 22 - - ["test/test_debug_md.ml":35:24](../test/test_debug_md.ml#L35) + - ["test/test_debug_md.ml":34:24](../test/test_debug_md.ml#L34) - `depth = 5` - `x = ((first 16) (second 6))`
diff --git a/test/pp.ml b/test/pp.ml index a128860..e3cba40 100644 --- a/test/pp.ml +++ b/test/pp.ml @@ -1 +1 @@ -let () = Ppxlib.Driver.standalone () \ No newline at end of file +let () = Ppxlib.Driver.standalone () diff --git a/test/test_debug_log_level_consistency.expected.ml b/test/test_debug_log_level_consistency.expected.ml index dd94dbc..cc2e432 100644 --- a/test/test_debug_log_level_consistency.expected.ml +++ b/test/test_debug_log_level_consistency.expected.ml @@ -18,7 +18,7 @@ let foo (x : int) = (let __entry_id = Debug_runtime.get_entry_id () in (); (Debug_runtime.open_log ~fname:"test_debug_log_level_consistency.ml" - ~start_lnum:7 ~start_colnum:19 ~end_lnum:9 ~end_colnum:17 + ~start_lnum:6 ~start_colnum:19 ~end_lnum:8 ~end_colnum:17 ~message:"foo" ~entry_id:__entry_id ~log_level:1 `Debug; Debug_runtime.log_value_show ?descr:(Some "x") ~entry_id:__entry_id ~log_level:1 ~is_result:false (([%show : int]) x)); @@ -26,8 +26,8 @@ let foo (x : int) = let __entry_id = Debug_runtime.get_entry_id () in (); Debug_runtime.open_log - ~fname:"test_debug_log_level_consistency.ml" ~start_lnum:8 - ~start_colnum:6 ~end_lnum:8 ~end_colnum:7 ~message:"y" + ~fname:"test_debug_log_level_consistency.ml" ~start_lnum:7 + ~start_colnum:6 ~end_lnum:7 ~end_colnum:7 ~message:"y" ~entry_id:__entry_id ~log_level:1 `Debug; (match x + 1 with | y as __res -> @@ -37,12 +37,12 @@ let foo (x : int) = (([%show : int]) y)); Debug_runtime.close_log ~fname:"test_debug_log_level_consistency.ml" - ~start_lnum:8 ~entry_id:__entry_id; + ~start_lnum:7 ~entry_id:__entry_id; __res) | exception e -> (Debug_runtime.close_log ~fname:"test_debug_log_level_consistency.ml" - ~start_lnum:8 ~entry_id:__entry_id; + ~start_lnum:7 ~entry_id:__entry_id; raise e)) in [x; y; 2 * y] with @@ -51,10 +51,10 @@ let foo (x : int) = ~entry_id:__entry_id ~log_level:1 ~is_result:true (([%show : int list]) __res); Debug_runtime.close_log ~fname:"test_debug_log_level_consistency.ml" - ~start_lnum:7 ~entry_id:__entry_id; + ~start_lnum:6 ~entry_id:__entry_id; __res) | exception e -> (Debug_runtime.close_log ~fname:"test_debug_log_level_consistency.ml" - ~start_lnum:7 ~entry_id:__entry_id; + ~start_lnum:6 ~entry_id:__entry_id; raise e)) : int list) let () = ignore @@ (List.hd @@ (foo 7)) diff --git a/test/test_debug_log_level_consistency.ml b/test/test_debug_log_level_consistency.ml index 21fe9d9..25d61ba 100644 --- a/test/test_debug_log_level_consistency.ml +++ b/test/test_debug_log_level_consistency.ml @@ -3,7 +3,6 @@ module Debug_runtime = [%%global_debug_log_level_from_env_var "PPX_MINIDEBUG_TEST_LOG_LEVEL_CONSISTENCY"] - let%debug_show foo (x : int) : int list = let y : int = x + 1 in [ x; y; 2 * y ] diff --git a/test/test_debug_md.ml b/test/test_debug_md.ml index 87b524d..398ffdb 100644 --- a/test/test_debug_md.ml +++ b/test/test_debug_md.ml @@ -2,8 +2,7 @@ open Sexplib0.Sexp_conv module Debug_runtime = (val Minidebug_runtime.debug_file ~hyperlink:"../" - ~backend:(`Markdown Minidebug_runtime.default_md_config) - "debugger_sexp_md") + ~backend:(`Markdown Minidebug_runtime.default_md_config) "debugger_sexp_md") let%debug_sexp foo (x : int) : int list = let y : int = x + 1 in diff --git a/test/test_debug_time_spans.ml b/test/test_debug_time_spans.ml index c48e788..5a565e8 100644 --- a/test/test_debug_time_spans.ml +++ b/test/test_debug_time_spans.ml @@ -1,7 +1,7 @@ module Debug_runtime = (val Minidebug_runtime.debug_file ~elapsed_times:Microseconds ~hyperlink:"./" - ~backend:(`Markdown Minidebug_runtime.default_md_config) - ~truncate_children:4 "debugger_sexp_time_spans") + ~backend:(`Markdown Minidebug_runtime.default_md_config) ~truncate_children:4 + "debugger_sexp_time_spans") let sexp_of_int i = Sexplib0.Sexp.Atom (string_of_int i) diff --git a/test/test_expect_test.ml b/test/test_expect_test.ml index 16a4fbf..3ee2fe1 100644 --- a/test/test_expect_test.ml +++ b/test/test_expect_test.ml @@ -403,7 +403,9 @@ let%expect_test "%debug_show num children exceeded linear" = |}] let%expect_test "%debug_show truncated children linear" = - let module Debug_runtime = (val Minidebug_runtime.debug ~values_first_mode:false ~truncate_children:10 ()) in + let module Debug_runtime = + (val Minidebug_runtime.debug ~values_first_mode:false ~truncate_children:10 ()) + in let () = try let%debug_show _bar : unit = @@ -418,25 +420,25 @@ let%expect_test "%debug_show truncated children linear" = [%expect {| BEGIN DEBUG SESSION - "test/test_expect_test.ml":409:21: _bar + "test/test_expect_test.ml":411:21: _bar ├─ - ├─"test/test_expect_test.ml":411:14: _baz + ├─"test/test_expect_test.ml":413:14: _baz │ └─_baz = 44 - ├─"test/test_expect_test.ml":411:14: _baz + ├─"test/test_expect_test.ml":413:14: _baz │ └─_baz = 46 - ├─"test/test_expect_test.ml":411:14: _baz + ├─"test/test_expect_test.ml":413:14: _baz │ └─_baz = 48 - ├─"test/test_expect_test.ml":411:14: _baz + ├─"test/test_expect_test.ml":413:14: _baz │ └─_baz = 50 - ├─"test/test_expect_test.ml":411:14: _baz + ├─"test/test_expect_test.ml":413:14: _baz │ └─_baz = 52 - ├─"test/test_expect_test.ml":411:14: _baz + ├─"test/test_expect_test.ml":413:14: _baz │ └─_baz = 54 - ├─"test/test_expect_test.ml":411:14: _baz + ├─"test/test_expect_test.ml":413:14: _baz │ └─_baz = 56 - ├─"test/test_expect_test.ml":411:14: _baz + ├─"test/test_expect_test.ml":413:14: _baz │ └─_baz = 58 - ├─"test/test_expect_test.ml":411:14: _baz + ├─"test/test_expect_test.ml":413:14: _baz │ └─_baz = 60 └─_bar = () |}] @@ -459,27 +461,27 @@ let%expect_test "%track_show track for-loop num children exceeded" = [%expect {| BEGIN DEBUG SESSION - "test/test_expect_test.ml":448:21: _bar - └─"test/test_expect_test.ml":451:10: for:test_expect_test:451 + "test/test_expect_test.ml":450:21: _bar + └─"test/test_expect_test.ml":453:10: for:test_expect_test:453 ├─i = 0 - ├─"test/test_expect_test.ml":451:14: - │ └─"test/test_expect_test.ml":452:16: _baz + ├─"test/test_expect_test.ml":453:14: + │ └─"test/test_expect_test.ml":454:16: _baz │ └─_baz = 0 ├─i = 1 - ├─"test/test_expect_test.ml":451:14: - │ └─"test/test_expect_test.ml":452:16: _baz + ├─"test/test_expect_test.ml":453:14: + │ └─"test/test_expect_test.ml":454:16: _baz │ └─_baz = 2 ├─i = 2 - ├─"test/test_expect_test.ml":451:14: - │ └─"test/test_expect_test.ml":452:16: _baz + ├─"test/test_expect_test.ml":453:14: + │ └─"test/test_expect_test.ml":454:16: _baz │ └─_baz = 4 ├─i = 3 - ├─"test/test_expect_test.ml":451:14: - │ └─"test/test_expect_test.ml":452:16: _baz + ├─"test/test_expect_test.ml":453:14: + │ └─"test/test_expect_test.ml":454:16: _baz │ └─_baz = 6 ├─i = 4 - ├─"test/test_expect_test.ml":451:14: - │ └─"test/test_expect_test.ml":452:16: _baz + ├─"test/test_expect_test.ml":453:14: + │ └─"test/test_expect_test.ml":454:16: _baz │ └─_baz = 8 ├─i = 5 └─i = @@ -487,7 +489,9 @@ let%expect_test "%track_show track for-loop num children exceeded" = |}] let%expect_test "%track_show track for-loop truncated children" = - let module Debug_runtime = (val Minidebug_runtime.debug ~values_first_mode:false ~truncate_children:10 ()) in + let module Debug_runtime = + (val Minidebug_runtime.debug ~values_first_mode:false ~truncate_children:10 ()) + in let () = try let%track_show _bar : unit = @@ -502,28 +506,28 @@ let%expect_test "%track_show track for-loop truncated children" = [%expect {| BEGIN DEBUG SESSION - "test/test_expect_test.ml":493:21: _bar - ├─"test/test_expect_test.ml":494:8: for:test_expect_test:494 + "test/test_expect_test.ml":497:21: _bar + ├─"test/test_expect_test.ml":498:8: for:test_expect_test:498 │ ├─ │ ├─i = 26 - │ ├─"test/test_expect_test.ml":494:12: - │ │ └─"test/test_expect_test.ml":495:14: _baz + │ ├─"test/test_expect_test.ml":498:12: + │ │ └─"test/test_expect_test.ml":499:14: _baz │ │ └─_baz = 52 │ ├─i = 27 - │ ├─"test/test_expect_test.ml":494:12: - │ │ └─"test/test_expect_test.ml":495:14: _baz + │ ├─"test/test_expect_test.ml":498:12: + │ │ └─"test/test_expect_test.ml":499:14: _baz │ │ └─_baz = 54 │ ├─i = 28 - │ ├─"test/test_expect_test.ml":494:12: - │ │ └─"test/test_expect_test.ml":495:14: _baz + │ ├─"test/test_expect_test.ml":498:12: + │ │ └─"test/test_expect_test.ml":499:14: _baz │ │ └─_baz = 56 │ ├─i = 29 - │ ├─"test/test_expect_test.ml":494:12: - │ │ └─"test/test_expect_test.ml":495:14: _baz + │ ├─"test/test_expect_test.ml":498:12: + │ │ └─"test/test_expect_test.ml":499:14: _baz │ │ └─_baz = 58 │ ├─i = 30 - │ └─"test/test_expect_test.ml":494:12: - │ └─"test/test_expect_test.ml":495:14: _baz + │ └─"test/test_expect_test.ml":498:12: + │ └─"test/test_expect_test.ml":499:14: _baz │ └─_baz = 60 └─_bar = () |}] @@ -546,41 +550,42 @@ let%expect_test "%track_show track for-loop" = [%expect {| BEGIN DEBUG SESSION - "test/test_expect_test.ml":535:21: _bar - ├─"test/test_expect_test.ml":538:10: for:test_expect_test:538 + "test/test_expect_test.ml":539:21: _bar + ├─"test/test_expect_test.ml":542:10: for:test_expect_test:542 │ ├─i = 0 - │ ├─"test/test_expect_test.ml":538:14: - │ │ └─"test/test_expect_test.ml":539:16: _baz + │ ├─"test/test_expect_test.ml":542:14: + │ │ └─"test/test_expect_test.ml":543:16: _baz │ │ └─_baz = 0 │ ├─i = 1 - │ ├─"test/test_expect_test.ml":538:14: - │ │ └─"test/test_expect_test.ml":539:16: _baz + │ ├─"test/test_expect_test.ml":542:14: + │ │ └─"test/test_expect_test.ml":543:16: _baz │ │ └─_baz = 2 │ ├─i = 2 - │ ├─"test/test_expect_test.ml":538:14: - │ │ └─"test/test_expect_test.ml":539:16: _baz + │ ├─"test/test_expect_test.ml":542:14: + │ │ └─"test/test_expect_test.ml":543:16: _baz │ │ └─_baz = 4 │ ├─i = 3 - │ ├─"test/test_expect_test.ml":538:14: - │ │ └─"test/test_expect_test.ml":539:16: _baz + │ ├─"test/test_expect_test.ml":542:14: + │ │ └─"test/test_expect_test.ml":543:16: _baz │ │ └─_baz = 6 │ ├─i = 4 - │ ├─"test/test_expect_test.ml":538:14: - │ │ └─"test/test_expect_test.ml":539:16: _baz + │ ├─"test/test_expect_test.ml":542:14: + │ │ └─"test/test_expect_test.ml":543:16: _baz │ │ └─_baz = 8 │ ├─i = 5 - │ ├─"test/test_expect_test.ml":538:14: - │ │ └─"test/test_expect_test.ml":539:16: _baz + │ ├─"test/test_expect_test.ml":542:14: + │ │ └─"test/test_expect_test.ml":543:16: _baz │ │ └─_baz = 10 │ ├─i = 6 - │ └─"test/test_expect_test.ml":538:14: - │ └─"test/test_expect_test.ml":539:16: _baz + │ └─"test/test_expect_test.ml":542:14: + │ └─"test/test_expect_test.ml":543:16: _baz │ └─_baz = 12 └─_bar = () |}] let%expect_test "%track_show track for-loop, time spans" = - let module Debug_runtime = (val Minidebug_runtime.debug ~values_first_mode:false ~elapsed_times:Microseconds ()) + let module Debug_runtime = + (val Minidebug_runtime.debug ~values_first_mode:false ~elapsed_times:Microseconds ()) in let () = try @@ -603,35 +608,35 @@ let%expect_test "%track_show track for-loop, time spans" = [%expect {| BEGIN DEBUG SESSION - "test/test_expect_test.ml":587:21: _bar - ├─"test/test_expect_test.ml":590:10: for:test_expect_test:590 + "test/test_expect_test.ml":592:21: _bar + ├─"test/test_expect_test.ml":595:10: for:test_expect_test:595 │ ├─i = 0 - │ ├─"test/test_expect_test.ml":590:14: - │ │ └─"test/test_expect_test.ml":591:16: _baz + │ ├─"test/test_expect_test.ml":595:14: + │ │ └─"test/test_expect_test.ml":596:16: _baz │ │ └─_baz = 0 │ ├─i = 1 - │ ├─"test/test_expect_test.ml":590:14: - │ │ └─"test/test_expect_test.ml":591:16: _baz + │ ├─"test/test_expect_test.ml":595:14: + │ │ └─"test/test_expect_test.ml":596:16: _baz │ │ └─_baz = 2 │ ├─i = 2 - │ ├─"test/test_expect_test.ml":590:14: - │ │ └─"test/test_expect_test.ml":591:16: _baz + │ ├─"test/test_expect_test.ml":595:14: + │ │ └─"test/test_expect_test.ml":596:16: _baz │ │ └─_baz = 4 │ ├─i = 3 - │ ├─"test/test_expect_test.ml":590:14: - │ │ └─"test/test_expect_test.ml":591:16: _baz + │ ├─"test/test_expect_test.ml":595:14: + │ │ └─"test/test_expect_test.ml":596:16: _baz │ │ └─_baz = 6 │ ├─i = 4 - │ ├─"test/test_expect_test.ml":590:14: - │ │ └─"test/test_expect_test.ml":591:16: _baz + │ ├─"test/test_expect_test.ml":595:14: + │ │ └─"test/test_expect_test.ml":596:16: _baz │ │ └─_baz = 8 │ ├─i = 5 - │ ├─"test/test_expect_test.ml":590:14: - │ │ └─"test/test_expect_test.ml":591:16: _baz + │ ├─"test/test_expect_test.ml":595:14: + │ │ └─"test/test_expect_test.ml":596:16: _baz │ │ └─_baz = 10 │ ├─i = 6 - │ └─"test/test_expect_test.ml":590:14: - │ └─"test/test_expect_test.ml":591:16: _baz + │ └─"test/test_expect_test.ml":595:14: + │ └─"test/test_expect_test.ml":596:16: _baz │ └─_baz = 12 └─_bar = () |}] @@ -653,25 +658,25 @@ let%expect_test "%track_show track while-loop" = [%expect {| BEGIN DEBUG SESSION - "test/test_expect_test.ml":643:21: _bar - ├─"test/test_expect_test.ml":645:8: while:test_expect_test:645 - │ ├─"test/test_expect_test.ml":646:10: - │ │ └─"test/test_expect_test.ml":646:14: _baz + "test/test_expect_test.ml":648:21: _bar + ├─"test/test_expect_test.ml":650:8: while:test_expect_test:650 + │ ├─"test/test_expect_test.ml":651:10: + │ │ └─"test/test_expect_test.ml":651:14: _baz │ │ └─_baz = 0 - │ ├─"test/test_expect_test.ml":646:10: - │ │ └─"test/test_expect_test.ml":646:14: _baz + │ ├─"test/test_expect_test.ml":651:10: + │ │ └─"test/test_expect_test.ml":651:14: _baz │ │ └─_baz = 2 - │ ├─"test/test_expect_test.ml":646:10: - │ │ └─"test/test_expect_test.ml":646:14: _baz + │ ├─"test/test_expect_test.ml":651:10: + │ │ └─"test/test_expect_test.ml":651:14: _baz │ │ └─_baz = 4 - │ ├─"test/test_expect_test.ml":646:10: - │ │ └─"test/test_expect_test.ml":646:14: _baz + │ ├─"test/test_expect_test.ml":651:10: + │ │ └─"test/test_expect_test.ml":651:14: _baz │ │ └─_baz = 6 - │ ├─"test/test_expect_test.ml":646:10: - │ │ └─"test/test_expect_test.ml":646:14: _baz + │ ├─"test/test_expect_test.ml":651:10: + │ │ └─"test/test_expect_test.ml":651:14: _baz │ │ └─_baz = 8 - │ └─"test/test_expect_test.ml":646:10: - │ └─"test/test_expect_test.ml":646:14: _baz + │ └─"test/test_expect_test.ml":651:10: + │ └─"test/test_expect_test.ml":651:14: _baz │ └─_baz = 10 └─_bar = () |}] @@ -695,46 +700,48 @@ let%expect_test "%debug_show num children exceeded nested" = [%expect {| BEGIN DEBUG SESSION - "test/test_expect_test.ml":681:35: loop_exceeded + "test/test_expect_test.ml":686:35: loop_exceeded ├─x = 3 - ├─"test/test_expect_test.ml":688:17: z + ├─"test/test_expect_test.ml":693:17: z │ └─z = 1 - └─"test/test_expect_test.ml":681:35: loop_exceeded + └─"test/test_expect_test.ml":686:35: loop_exceeded ├─x = 2 - ├─"test/test_expect_test.ml":688:17: z + ├─"test/test_expect_test.ml":693:17: z │ └─z = 0 - └─"test/test_expect_test.ml":681:35: loop_exceeded + └─"test/test_expect_test.ml":686:35: loop_exceeded ├─x = 1 - ├─"test/test_expect_test.ml":688:17: z + ├─"test/test_expect_test.ml":693:17: z │ └─z = 0 - └─"test/test_expect_test.ml":681:35: loop_exceeded + └─"test/test_expect_test.ml":686:35: loop_exceeded ├─x = 0 - ├─"test/test_expect_test.ml":688:17: z + ├─"test/test_expect_test.ml":693:17: z │ └─z = 0 - ├─"test/test_expect_test.ml":688:17: z + ├─"test/test_expect_test.ml":693:17: z │ └─z = 1 - ├─"test/test_expect_test.ml":688:17: z + ├─"test/test_expect_test.ml":693:17: z │ └─z = 2 - ├─"test/test_expect_test.ml":688:17: z + ├─"test/test_expect_test.ml":693:17: z │ └─z = 3 - ├─"test/test_expect_test.ml":688:17: z + ├─"test/test_expect_test.ml":693:17: z │ └─z = 4 - ├─"test/test_expect_test.ml":688:17: z + ├─"test/test_expect_test.ml":693:17: z │ └─z = 5 - ├─"test/test_expect_test.ml":688:17: z + ├─"test/test_expect_test.ml":693:17: z │ └─z = 6 - ├─"test/test_expect_test.ml":688:17: z + ├─"test/test_expect_test.ml":693:17: z │ └─z = 7 - ├─"test/test_expect_test.ml":688:17: z + ├─"test/test_expect_test.ml":693:17: z │ └─z = 8 - ├─"test/test_expect_test.ml":688:17: z + ├─"test/test_expect_test.ml":693:17: z │ └─z = 9 └─z = Raised exception: ppx_minidebug: max_num_children exceeded |}] let%expect_test "%debug_show truncated children nested" = - let module Debug_runtime = (val Minidebug_runtime.debug ~values_first_mode:false ~truncate_children:4 ()) in + let module Debug_runtime = + (val Minidebug_runtime.debug ~values_first_mode:false ~truncate_children:4 ()) + in let%debug_show rec loop_exceeded (x : int) : int = Array.fold_left ( + ) 0 @@ Array.init @@ -750,108 +757,108 @@ let%expect_test "%debug_show truncated children nested" = [%expect {| BEGIN DEBUG SESSION - "test/test_expect_test.ml":738:35: loop_exceeded + "test/test_expect_test.ml":745:35: loop_exceeded ├─ - ├─"test/test_expect_test.ml":738:35: loop_exceeded + ├─"test/test_expect_test.ml":745:35: loop_exceeded │ ├─ - │ ├─"test/test_expect_test.ml":738:35: loop_exceeded + │ ├─"test/test_expect_test.ml":745:35: loop_exceeded │ │ ├─ - │ │ ├─"test/test_expect_test.ml":738:35: loop_exceeded + │ │ ├─"test/test_expect_test.ml":745:35: loop_exceeded │ │ │ ├─ - │ │ │ ├─"test/test_expect_test.ml":743:15: z + │ │ │ ├─"test/test_expect_test.ml":750:15: z │ │ │ │ └─z = 17 - │ │ │ ├─"test/test_expect_test.ml":743:15: z + │ │ │ ├─"test/test_expect_test.ml":750:15: z │ │ │ │ └─z = 18 - │ │ │ ├─"test/test_expect_test.ml":743:15: z + │ │ │ ├─"test/test_expect_test.ml":750:15: z │ │ │ │ └─z = 19 │ │ │ └─loop_exceeded = 190 - │ │ ├─"test/test_expect_test.ml":743:15: z + │ │ ├─"test/test_expect_test.ml":750:15: z │ │ │ └─z = 9 - │ │ ├─"test/test_expect_test.ml":738:35: loop_exceeded + │ │ ├─"test/test_expect_test.ml":745:35: loop_exceeded │ │ │ ├─ - │ │ │ ├─"test/test_expect_test.ml":743:15: z + │ │ │ ├─"test/test_expect_test.ml":750:15: z │ │ │ │ └─z = 17 - │ │ │ ├─"test/test_expect_test.ml":743:15: z + │ │ │ ├─"test/test_expect_test.ml":750:15: z │ │ │ │ └─z = 18 - │ │ │ ├─"test/test_expect_test.ml":743:15: z + │ │ │ ├─"test/test_expect_test.ml":750:15: z │ │ │ │ └─z = 19 │ │ │ └─loop_exceeded = 190 │ │ └─loop_exceeded = 1945 - │ ├─"test/test_expect_test.ml":743:15: z + │ ├─"test/test_expect_test.ml":750:15: z │ │ └─z = 5 - │ ├─"test/test_expect_test.ml":738:35: loop_exceeded + │ ├─"test/test_expect_test.ml":745:35: loop_exceeded │ │ ├─ - │ │ ├─"test/test_expect_test.ml":738:35: loop_exceeded + │ │ ├─"test/test_expect_test.ml":745:35: loop_exceeded │ │ │ ├─ - │ │ │ ├─"test/test_expect_test.ml":743:15: z + │ │ │ ├─"test/test_expect_test.ml":750:15: z │ │ │ │ └─z = 17 - │ │ │ ├─"test/test_expect_test.ml":743:15: z + │ │ │ ├─"test/test_expect_test.ml":750:15: z │ │ │ │ └─z = 18 - │ │ │ ├─"test/test_expect_test.ml":743:15: z + │ │ │ ├─"test/test_expect_test.ml":750:15: z │ │ │ │ └─z = 19 │ │ │ └─loop_exceeded = 190 - │ │ ├─"test/test_expect_test.ml":743:15: z + │ │ ├─"test/test_expect_test.ml":750:15: z │ │ │ └─z = 9 - │ │ ├─"test/test_expect_test.ml":738:35: loop_exceeded + │ │ ├─"test/test_expect_test.ml":745:35: loop_exceeded │ │ │ ├─ - │ │ │ ├─"test/test_expect_test.ml":743:15: z + │ │ │ ├─"test/test_expect_test.ml":750:15: z │ │ │ │ └─z = 17 - │ │ │ ├─"test/test_expect_test.ml":743:15: z + │ │ │ ├─"test/test_expect_test.ml":750:15: z │ │ │ │ └─z = 18 - │ │ │ ├─"test/test_expect_test.ml":743:15: z + │ │ │ ├─"test/test_expect_test.ml":750:15: z │ │ │ │ └─z = 19 │ │ │ └─loop_exceeded = 190 │ │ └─loop_exceeded = 1945 │ └─loop_exceeded = 11685 - ├─"test/test_expect_test.ml":743:15: z + ├─"test/test_expect_test.ml":750:15: z │ └─z = 5 - ├─"test/test_expect_test.ml":738:35: loop_exceeded + ├─"test/test_expect_test.ml":745:35: loop_exceeded │ ├─ - │ ├─"test/test_expect_test.ml":738:35: loop_exceeded + │ ├─"test/test_expect_test.ml":745:35: loop_exceeded │ │ ├─ - │ │ ├─"test/test_expect_test.ml":738:35: loop_exceeded + │ │ ├─"test/test_expect_test.ml":745:35: loop_exceeded │ │ │ ├─ - │ │ │ ├─"test/test_expect_test.ml":743:15: z + │ │ │ ├─"test/test_expect_test.ml":750:15: z │ │ │ │ └─z = 17 - │ │ │ ├─"test/test_expect_test.ml":743:15: z + │ │ │ ├─"test/test_expect_test.ml":750:15: z │ │ │ │ └─z = 18 - │ │ │ ├─"test/test_expect_test.ml":743:15: z + │ │ │ ├─"test/test_expect_test.ml":750:15: z │ │ │ │ └─z = 19 │ │ │ └─loop_exceeded = 190 - │ │ ├─"test/test_expect_test.ml":743:15: z + │ │ ├─"test/test_expect_test.ml":750:15: z │ │ │ └─z = 9 - │ │ ├─"test/test_expect_test.ml":738:35: loop_exceeded + │ │ ├─"test/test_expect_test.ml":745:35: loop_exceeded │ │ │ ├─ - │ │ │ ├─"test/test_expect_test.ml":743:15: z + │ │ │ ├─"test/test_expect_test.ml":750:15: z │ │ │ │ └─z = 17 - │ │ │ ├─"test/test_expect_test.ml":743:15: z + │ │ │ ├─"test/test_expect_test.ml":750:15: z │ │ │ │ └─z = 18 - │ │ │ ├─"test/test_expect_test.ml":743:15: z + │ │ │ ├─"test/test_expect_test.ml":750:15: z │ │ │ │ └─z = 19 │ │ │ └─loop_exceeded = 190 │ │ └─loop_exceeded = 1945 - │ ├─"test/test_expect_test.ml":743:15: z + │ ├─"test/test_expect_test.ml":750:15: z │ │ └─z = 5 - │ ├─"test/test_expect_test.ml":738:35: loop_exceeded + │ ├─"test/test_expect_test.ml":745:35: loop_exceeded │ │ ├─ - │ │ ├─"test/test_expect_test.ml":738:35: loop_exceeded + │ │ ├─"test/test_expect_test.ml":745:35: loop_exceeded │ │ │ ├─ - │ │ │ ├─"test/test_expect_test.ml":743:15: z + │ │ │ ├─"test/test_expect_test.ml":750:15: z │ │ │ │ └─z = 17 - │ │ │ ├─"test/test_expect_test.ml":743:15: z + │ │ │ ├─"test/test_expect_test.ml":750:15: z │ │ │ │ └─z = 18 - │ │ │ ├─"test/test_expect_test.ml":743:15: z + │ │ │ ├─"test/test_expect_test.ml":750:15: z │ │ │ │ └─z = 19 │ │ │ └─loop_exceeded = 190 - │ │ ├─"test/test_expect_test.ml":743:15: z + │ │ ├─"test/test_expect_test.ml":750:15: z │ │ │ └─z = 9 - │ │ ├─"test/test_expect_test.ml":738:35: loop_exceeded + │ │ ├─"test/test_expect_test.ml":745:35: loop_exceeded │ │ │ ├─ - │ │ │ ├─"test/test_expect_test.ml":743:15: z + │ │ │ ├─"test/test_expect_test.ml":750:15: z │ │ │ │ └─z = 17 - │ │ │ ├─"test/test_expect_test.ml":743:15: z + │ │ │ ├─"test/test_expect_test.ml":750:15: z │ │ │ │ └─z = 18 - │ │ │ ├─"test/test_expect_test.ml":743:15: z + │ │ │ ├─"test/test_expect_test.ml":750:15: z │ │ │ │ └─z = 19 │ │ │ └─loop_exceeded = 190 │ │ └─loop_exceeded = 1945 @@ -875,52 +882,52 @@ let%expect_test "%track_show highlight" = {| BEGIN DEBUG SESSION ┌─────────────────────────────────────────────────┐ - │"test/test_expect_test.ml":867:36: loop_highlight│ + │"test/test_expect_test.ml":874:36: loop_highlight│ ├─────────────────────────────────────────────────┘ ├─x = 7 ├─┬────────────────────────────────────┐ - │ │"test/test_expect_test.ml":870:10: z│ + │ │"test/test_expect_test.ml":877:10: z│ │ ├────────────────────────────────────┘ │ └─┬─────┐ │ │z = 3│ │ └─────┘ ├─┬─────────────────────────────────────────────────┐ - │ │"test/test_expect_test.ml":867:36: loop_highlight│ + │ │"test/test_expect_test.ml":874:36: loop_highlight│ │ ├─────────────────────────────────────────────────┘ │ ├─x = 6 - │ ├─"test/test_expect_test.ml":870:10: z + │ ├─"test/test_expect_test.ml":877:10: z │ │ └─z = 2 │ ├─┬─────────────────────────────────────────────────┐ - │ │ │"test/test_expect_test.ml":867:36: loop_highlight│ + │ │ │"test/test_expect_test.ml":874:36: loop_highlight│ │ │ ├─────────────────────────────────────────────────┘ │ │ ├─x = 5 - │ │ ├─"test/test_expect_test.ml":870:10: z + │ │ ├─"test/test_expect_test.ml":877:10: z │ │ │ └─z = 2 │ │ ├─┬─────────────────────────────────────────────────┐ - │ │ │ │"test/test_expect_test.ml":867:36: loop_highlight│ + │ │ │ │"test/test_expect_test.ml":874:36: loop_highlight│ │ │ │ ├─────────────────────────────────────────────────┘ │ │ │ ├─x = 4 - │ │ │ ├─"test/test_expect_test.ml":870:10: z + │ │ │ ├─"test/test_expect_test.ml":877:10: z │ │ │ │ └─z = 1 │ │ │ ├─┬─────────────────────────────────────────────────┐ - │ │ │ │ │"test/test_expect_test.ml":867:36: loop_highlight│ + │ │ │ │ │"test/test_expect_test.ml":874:36: loop_highlight│ │ │ │ │ ├─────────────────────────────────────────────────┘ │ │ │ │ ├─┬─────┐ │ │ │ │ │ │x = 3│ │ │ │ │ │ └─────┘ - │ │ │ │ ├─"test/test_expect_test.ml":870:10: z + │ │ │ │ ├─"test/test_expect_test.ml":877:10: z │ │ │ │ │ └─z = 1 - │ │ │ │ ├─"test/test_expect_test.ml":867:36: loop_highlight + │ │ │ │ ├─"test/test_expect_test.ml":874:36: loop_highlight │ │ │ │ │ ├─x = 2 - │ │ │ │ │ ├─"test/test_expect_test.ml":870:10: z + │ │ │ │ │ ├─"test/test_expect_test.ml":877:10: z │ │ │ │ │ │ └─z = 0 - │ │ │ │ │ ├─"test/test_expect_test.ml":867:36: loop_highlight + │ │ │ │ │ ├─"test/test_expect_test.ml":874:36: loop_highlight │ │ │ │ │ │ ├─x = 1 - │ │ │ │ │ │ ├─"test/test_expect_test.ml":870:10: z + │ │ │ │ │ │ ├─"test/test_expect_test.ml":877:10: z │ │ │ │ │ │ │ └─z = 0 - │ │ │ │ │ │ ├─"test/test_expect_test.ml":867:36: loop_highlight + │ │ │ │ │ │ ├─"test/test_expect_test.ml":874:36: loop_highlight │ │ │ │ │ │ │ ├─x = 0 - │ │ │ │ │ │ │ ├─"test/test_expect_test.ml":870:10: z + │ │ │ │ │ │ │ ├─"test/test_expect_test.ml":877:10: z │ │ │ │ │ │ │ │ └─z = 0 │ │ │ │ │ │ │ └─loop_highlight = 0 │ │ │ │ │ │ └─loop_highlight = 0 @@ -948,16 +955,16 @@ let%expect_test "%track_show PrintBox tracking" = [%expect {| BEGIN DEBUG SESSION - "test/test_expect_test.ml":938:32: track_branches + "test/test_expect_test.ml":945:32: track_branches ├─x = 7 - ├─"test/test_expect_test.ml":940:9: else:test_expect_test:940 - │ └─"test/test_expect_test.ml":940:36: + ├─"test/test_expect_test.ml":947:9: else:test_expect_test:947 + │ └─"test/test_expect_test.ml":947:36: └─track_branches = 4 4 - "test/test_expect_test.ml":938:32: track_branches + "test/test_expect_test.ml":945:32: track_branches ├─x = 3 - ├─"test/test_expect_test.ml":939:18: then:test_expect_test:939 - │ └─"test/test_expect_test.ml":939:54: + ├─"test/test_expect_test.ml":946:18: then:test_expect_test:946 + │ └─"test/test_expect_test.ml":946:54: └─track_branches = -3 -3 |}] @@ -981,9 +988,9 @@ let%expect_test "%track_show PrintBox tracking " = [%expect {| BEGIN DEBUG SESSION - "test/test_expect_test.ml":971:11: + "test/test_expect_test.ml":978:11: 4 - "test/test_expect_test.ml":973:11: x + "test/test_expect_test.ml":980:11: x -3 |}] @@ -1014,19 +1021,19 @@ let%expect_test "%track_show PrintBox tracking with debug_notrace" = [%expect {| BEGIN DEBUG SESSION - "test/test_expect_test.ml":992:32: track_branches + "test/test_expect_test.ml":999:32: track_branches ├─x = 8 - ├─"test/test_expect_test.ml":1001:6: else:test_expect_test:1001 - │ └─"test/test_expect_test.ml":1005:10: - │ └─"test/test_expect_test.ml":1005:14: result - │ ├─"test/test_expect_test.ml":1005:44: then:test_expect_test:1005 + ├─"test/test_expect_test.ml":1008:6: else:test_expect_test:1008 + │ └─"test/test_expect_test.ml":1012:10: + │ └─"test/test_expect_test.ml":1012:14: result + │ ├─"test/test_expect_test.ml":1012:44: then:test_expect_test:1012 │ └─result = 8 └─track_branches = 8 8 - "test/test_expect_test.ml":992:32: track_branches + "test/test_expect_test.ml":999:32: track_branches ├─x = 3 - ├─"test/test_expect_test.ml":994:6: then:test_expect_test:994 - │ └─"test/test_expect_test.ml":998:14: result + ├─"test/test_expect_test.ml":1001:6: then:test_expect_test:1001 + │ └─"test/test_expect_test.ml":1005:14: result │ └─result = 3 └─track_branches = 3 3 @@ -1048,9 +1055,9 @@ let%expect_test "%track_show PrintBox not tracking anonymous functions with debu [%expect {| BEGIN DEBUG SESSION - "test/test_expect_test.ml":1038:27: track_foo + "test/test_expect_test.ml":1045:27: track_foo ├─x = 8 - ├─"test/test_expect_test.ml":1041:4: fun:test_expect_test:1041 + ├─"test/test_expect_test.ml":1048:4: fun:test_expect_test:1048 │ └─z = 8 └─track_foo = 8 8 @@ -1083,18 +1090,18 @@ let%expect_test "respect scope of nested extension points" = [%expect {| BEGIN DEBUG SESSION - "test/test_expect_test.ml":1061:32: track_branches + "test/test_expect_test.ml":1068:32: track_branches ├─x = 8 - ├─"test/test_expect_test.ml":1070:6: else:test_expect_test:1070 - │ └─"test/test_expect_test.ml":1074:25: result - │ ├─"test/test_expect_test.ml":1074:55: then:test_expect_test:1074 + ├─"test/test_expect_test.ml":1077:6: else:test_expect_test:1077 + │ └─"test/test_expect_test.ml":1081:25: result + │ ├─"test/test_expect_test.ml":1081:55: then:test_expect_test:1081 │ └─result = 8 └─track_branches = 8 8 - "test/test_expect_test.ml":1061:32: track_branches + "test/test_expect_test.ml":1068:32: track_branches ├─x = 3 - ├─"test/test_expect_test.ml":1063:6: then:test_expect_test:1063 - │ └─"test/test_expect_test.ml":1067:25: result + ├─"test/test_expect_test.ml":1070:6: then:test_expect_test:1070 + │ └─"test/test_expect_test.ml":1074:25: result │ └─result = 3 └─track_branches = 3 3 @@ -1119,7 +1126,7 @@ let%expect_test "%debug_show un-annotated toplevel fun" = [%expect {| BEGIN DEBUG SESSION - "test/test_expect_test.ml":1105:27: anonymous + "test/test_expect_test.ml":1112:27: anonymous └─"We do log this function" 6 6 @@ -1147,8 +1154,8 @@ let%expect_test "%debug_show nested un-annotated toplevel fun" = [%expect {| BEGIN DEBUG SESSION - "test/test_expect_test.ml":1130:25: wrapper - "test/test_expect_test.ml":1131:29: anonymous + "test/test_expect_test.ml":1137:25: wrapper + "test/test_expect_test.ml":1138:29: anonymous └─"We do log this function" 6 6 @@ -1166,7 +1173,7 @@ let%expect_test "%track_show no return type anonymous fun" = [%expect {| BEGIN DEBUG SESSION - "test/test_expect_test.ml":1159:27: anonymous + "test/test_expect_test.ml":1166:27: anonymous └─x = 3 6 |}]; @@ -1179,15 +1186,15 @@ let%expect_test "%track_show no return type anonymous fun" = in [%expect {| - "test/test_expect_test.ml":1173:27: anonymous + "test/test_expect_test.ml":1180:27: anonymous ├─x = 3 - ├─"test/test_expect_test.ml":1174:50: fun:test_expect_test:1174 + ├─"test/test_expect_test.ml":1181:50: fun:test_expect_test:1181 │ └─i = 0 - ├─"test/test_expect_test.ml":1174:50: fun:test_expect_test:1174 + ├─"test/test_expect_test.ml":1181:50: fun:test_expect_test:1181 │ └─i = 1 - ├─"test/test_expect_test.ml":1174:50: fun:test_expect_test:1174 + ├─"test/test_expect_test.ml":1181:50: fun:test_expect_test:1181 │ └─i = 2 - └─"test/test_expect_test.ml":1174:50: fun:test_expect_test:1174 + └─"test/test_expect_test.ml":1181:50: fun:test_expect_test:1181 └─i = 3 6 |}] @@ -1211,85 +1218,87 @@ let%expect_test "%track_show anonymous fun, num children exceeded" = [%expect {| BEGIN DEBUG SESSION - "test/test_expect_test.ml":1197:35: loop_exceeded + "test/test_expect_test.ml":1204:35: loop_exceeded ├─x = 3 - └─"test/test_expect_test.ml":1203:11: fun:test_expect_test:1203 + └─"test/test_expect_test.ml":1210:11: fun:test_expect_test:1210 ├─i = 0 - ├─"test/test_expect_test.ml":1204:17: z + ├─"test/test_expect_test.ml":1211:17: z │ └─z = 1 - └─"test/test_expect_test.ml":1205:35: else:test_expect_test:1205 - └─"test/test_expect_test.ml":1197:35: loop_exceeded + └─"test/test_expect_test.ml":1212:35: else:test_expect_test:1212 + └─"test/test_expect_test.ml":1204:35: loop_exceeded ├─x = 2 - └─"test/test_expect_test.ml":1203:11: fun:test_expect_test:1203 + └─"test/test_expect_test.ml":1210:11: fun:test_expect_test:1210 ├─i = 0 - ├─"test/test_expect_test.ml":1204:17: z + ├─"test/test_expect_test.ml":1211:17: z │ └─z = 0 - └─"test/test_expect_test.ml":1205:35: else:test_expect_test:1205 - └─"test/test_expect_test.ml":1197:35: loop_exceeded + └─"test/test_expect_test.ml":1212:35: else:test_expect_test:1212 + └─"test/test_expect_test.ml":1204:35: loop_exceeded ├─x = 1 - └─"test/test_expect_test.ml":1203:11: fun:test_expect_test:1203 + └─"test/test_expect_test.ml":1210:11: fun:test_expect_test:1210 ├─i = 0 - ├─"test/test_expect_test.ml":1204:17: z + ├─"test/test_expect_test.ml":1211:17: z │ └─z = 0 - └─"test/test_expect_test.ml":1205:35: else:test_expect_test:1205 - └─"test/test_expect_test.ml":1197:35: loop_exceeded + └─"test/test_expect_test.ml":1212:35: else:test_expect_test:1212 + └─"test/test_expect_test.ml":1204:35: loop_exceeded ├─x = 0 - ├─"test/test_expect_test.ml":1203:11: fun:test_expect_test:1203 + ├─"test/test_expect_test.ml":1210:11: fun:test_expect_test:1210 │ ├─i = 0 - │ ├─"test/test_expect_test.ml":1204:17: z + │ ├─"test/test_expect_test.ml":1211:17: z │ │ └─z = 0 - │ └─"test/test_expect_test.ml":1205:28: then:test_expect_test:1205 - ├─"test/test_expect_test.ml":1203:11: fun:test_expect_test:1203 + │ └─"test/test_expect_test.ml":1212:28: then:test_expect_test:1212 + ├─"test/test_expect_test.ml":1210:11: fun:test_expect_test:1210 │ ├─i = 1 - │ ├─"test/test_expect_test.ml":1204:17: z + │ ├─"test/test_expect_test.ml":1211:17: z │ │ └─z = 1 - │ └─"test/test_expect_test.ml":1205:28: then:test_expect_test:1205 - ├─"test/test_expect_test.ml":1203:11: fun:test_expect_test:1203 + │ └─"test/test_expect_test.ml":1212:28: then:test_expect_test:1212 + ├─"test/test_expect_test.ml":1210:11: fun:test_expect_test:1210 │ ├─i = 2 - │ ├─"test/test_expect_test.ml":1204:17: z + │ ├─"test/test_expect_test.ml":1211:17: z │ │ └─z = 2 - │ └─"test/test_expect_test.ml":1205:28: then:test_expect_test:1205 - ├─"test/test_expect_test.ml":1203:11: fun:test_expect_test:1203 + │ └─"test/test_expect_test.ml":1212:28: then:test_expect_test:1212 + ├─"test/test_expect_test.ml":1210:11: fun:test_expect_test:1210 │ ├─i = 3 - │ ├─"test/test_expect_test.ml":1204:17: z + │ ├─"test/test_expect_test.ml":1211:17: z │ │ └─z = 3 - │ └─"test/test_expect_test.ml":1205:28: then:test_expect_test:1205 - ├─"test/test_expect_test.ml":1203:11: fun:test_expect_test:1203 + │ └─"test/test_expect_test.ml":1212:28: then:test_expect_test:1212 + ├─"test/test_expect_test.ml":1210:11: fun:test_expect_test:1210 │ ├─i = 4 - │ ├─"test/test_expect_test.ml":1204:17: z + │ ├─"test/test_expect_test.ml":1211:17: z │ │ └─z = 4 - │ └─"test/test_expect_test.ml":1205:28: then:test_expect_test:1205 - ├─"test/test_expect_test.ml":1203:11: fun:test_expect_test:1203 + │ └─"test/test_expect_test.ml":1212:28: then:test_expect_test:1212 + ├─"test/test_expect_test.ml":1210:11: fun:test_expect_test:1210 │ ├─i = 5 - │ ├─"test/test_expect_test.ml":1204:17: z + │ ├─"test/test_expect_test.ml":1211:17: z │ │ └─z = 5 - │ └─"test/test_expect_test.ml":1205:28: then:test_expect_test:1205 - ├─"test/test_expect_test.ml":1203:11: fun:test_expect_test:1203 + │ └─"test/test_expect_test.ml":1212:28: then:test_expect_test:1212 + ├─"test/test_expect_test.ml":1210:11: fun:test_expect_test:1210 │ ├─i = 6 - │ ├─"test/test_expect_test.ml":1204:17: z + │ ├─"test/test_expect_test.ml":1211:17: z │ │ └─z = 6 - │ └─"test/test_expect_test.ml":1205:28: then:test_expect_test:1205 - ├─"test/test_expect_test.ml":1203:11: fun:test_expect_test:1203 + │ └─"test/test_expect_test.ml":1212:28: then:test_expect_test:1212 + ├─"test/test_expect_test.ml":1210:11: fun:test_expect_test:1210 │ ├─i = 7 - │ ├─"test/test_expect_test.ml":1204:17: z + │ ├─"test/test_expect_test.ml":1211:17: z │ │ └─z = 7 - │ └─"test/test_expect_test.ml":1205:28: then:test_expect_test:1205 - ├─"test/test_expect_test.ml":1203:11: fun:test_expect_test:1203 + │ └─"test/test_expect_test.ml":1212:28: then:test_expect_test:1212 + ├─"test/test_expect_test.ml":1210:11: fun:test_expect_test:1210 │ ├─i = 8 - │ ├─"test/test_expect_test.ml":1204:17: z + │ ├─"test/test_expect_test.ml":1211:17: z │ │ └─z = 8 - │ └─"test/test_expect_test.ml":1205:28: then:test_expect_test:1205 - ├─"test/test_expect_test.ml":1203:11: fun:test_expect_test:1203 + │ └─"test/test_expect_test.ml":1212:28: then:test_expect_test:1212 + ├─"test/test_expect_test.ml":1210:11: fun:test_expect_test:1210 │ ├─i = 9 - │ ├─"test/test_expect_test.ml":1204:17: z + │ ├─"test/test_expect_test.ml":1211:17: z │ │ └─z = 9 - │ └─"test/test_expect_test.ml":1205:28: then:test_expect_test:1205 - └─fun:test_expect_test:1203 = + │ └─"test/test_expect_test.ml":1212:28: then:test_expect_test:1212 + └─fun:test_expect_test:1210 = Raised exception: ppx_minidebug: max_num_children exceeded |}] let%expect_test "%track_show anonymous fun, truncated children" = - let module Debug_runtime = (val Minidebug_runtime.debug ~values_first_mode:false ~truncate_children:2 ()) in + let module Debug_runtime = + (val Minidebug_runtime.debug ~values_first_mode:false ~truncate_children:2 ()) + in let%track_show rec loop_exceeded (x : int) : int = Array.fold_left ( + ) 0 @@ Array.init @@ -1305,34 +1314,34 @@ let%expect_test "%track_show anonymous fun, truncated children" = [%expect {| BEGIN DEBUG SESSION - "test/test_expect_test.ml":1293:35: loop_exceeded + "test/test_expect_test.ml":1302:35: loop_exceeded ├─ - ├─"test/test_expect_test.ml":1297:9: fun:test_expect_test:1297 + ├─"test/test_expect_test.ml":1306:9: fun:test_expect_test:1306 │ ├─ - │ ├─"test/test_expect_test.ml":1298:15: z + │ ├─"test/test_expect_test.ml":1307:15: z │ │ └─z = 7 - │ └─"test/test_expect_test.ml":1299:33: else:test_expect_test:1299 - │ └─"test/test_expect_test.ml":1293:35: loop_exceeded + │ └─"test/test_expect_test.ml":1308:33: else:test_expect_test:1308 + │ └─"test/test_expect_test.ml":1302:35: loop_exceeded │ ├─ - │ ├─"test/test_expect_test.ml":1297:9: fun:test_expect_test:1297 + │ ├─"test/test_expect_test.ml":1306:9: fun:test_expect_test:1306 │ │ ├─ - │ │ ├─"test/test_expect_test.ml":1298:15: z + │ │ ├─"test/test_expect_test.ml":1307:15: z │ │ │ └─z = 9 - │ │ └─"test/test_expect_test.ml":1299:33: else:test_expect_test:1299 - │ │ └─"test/test_expect_test.ml":1293:35: loop_exceeded + │ │ └─"test/test_expect_test.ml":1308:33: else:test_expect_test:1308 + │ │ └─"test/test_expect_test.ml":1302:35: loop_exceeded │ │ ├─ - │ │ ├─"test/test_expect_test.ml":1297:9: fun:test_expect_test:1297 + │ │ ├─"test/test_expect_test.ml":1306:9: fun:test_expect_test:1306 │ │ │ ├─ - │ │ │ ├─"test/test_expect_test.ml":1298:15: z + │ │ │ ├─"test/test_expect_test.ml":1307:15: z │ │ │ │ └─z = 14 - │ │ │ └─"test/test_expect_test.ml":1299:33: else:test_expect_test:1299 - │ │ │ └─"test/test_expect_test.ml":1293:35: loop_exceeded + │ │ │ └─"test/test_expect_test.ml":1308:33: else:test_expect_test:1308 + │ │ │ └─"test/test_expect_test.ml":1302:35: loop_exceeded │ │ │ ├─ - │ │ │ ├─"test/test_expect_test.ml":1297:9: fun:test_expect_test:1297 + │ │ │ ├─"test/test_expect_test.ml":1306:9: fun:test_expect_test:1306 │ │ │ │ ├─ - │ │ │ │ ├─"test/test_expect_test.ml":1298:15: z + │ │ │ │ ├─"test/test_expect_test.ml":1307:15: z │ │ │ │ │ └─z = 29 - │ │ │ │ └─"test/test_expect_test.ml":1299:26: then:test_expect_test:1299 + │ │ │ │ └─"test/test_expect_test.ml":1308:26: then:test_expect_test:1308 │ │ │ └─loop_exceeded = 435 │ │ └─loop_exceeded = 6630 │ └─loop_exceeded = 66345 @@ -1366,7 +1375,7 @@ let%expect_test "%debug_show function with abstract type" = [%expect {| BEGIN DEBUG SESSION - "test/test_expect_test.ml":1351:21: foo + "test/test_expect_test.ml":1360:21: foo ├─c = 1 └─foo = 2 2 @@ -1387,45 +1396,45 @@ let%expect_test "%debug_show PrintBox values_first_mode to stdout with exception {| BEGIN DEBUG SESSION loop_truncated - ├─"test/test_expect_test.ml":1377:36 + ├─"test/test_expect_test.ml":1386:36 ├─x = 7 ├─z = 3 - │ └─"test/test_expect_test.ml":1378:8 + │ └─"test/test_expect_test.ml":1387:8 └─loop_truncated - ├─"test/test_expect_test.ml":1377:36 + ├─"test/test_expect_test.ml":1386:36 ├─x = 6 ├─z = 2 - │ └─"test/test_expect_test.ml":1378:8 + │ └─"test/test_expect_test.ml":1387:8 └─loop_truncated - ├─"test/test_expect_test.ml":1377:36 + ├─"test/test_expect_test.ml":1386:36 ├─x = 5 ├─z = 2 - │ └─"test/test_expect_test.ml":1378:8 + │ └─"test/test_expect_test.ml":1387:8 └─loop_truncated - ├─"test/test_expect_test.ml":1377:36 + ├─"test/test_expect_test.ml":1386:36 ├─x = 4 ├─z = 1 - │ └─"test/test_expect_test.ml":1378:8 + │ └─"test/test_expect_test.ml":1387:8 └─loop_truncated - ├─"test/test_expect_test.ml":1377:36 + ├─"test/test_expect_test.ml":1386:36 ├─x = 3 ├─z = 1 - │ └─"test/test_expect_test.ml":1378:8 + │ └─"test/test_expect_test.ml":1387:8 └─loop_truncated - ├─"test/test_expect_test.ml":1377:36 + ├─"test/test_expect_test.ml":1386:36 ├─x = 2 ├─z = 0 - │ └─"test/test_expect_test.ml":1378:8 + │ └─"test/test_expect_test.ml":1387:8 └─loop_truncated - ├─"test/test_expect_test.ml":1377:36 + ├─"test/test_expect_test.ml":1386:36 ├─x = 1 ├─z = 0 - │ └─"test/test_expect_test.ml":1378:8 + │ └─"test/test_expect_test.ml":1387:8 └─loop_truncated - ├─"test/test_expect_test.ml":1377:36 + ├─"test/test_expect_test.ml":1386:36 ├─x = 0 └─z = 0 - └─"test/test_expect_test.ml":1378:8 + └─"test/test_expect_test.ml":1387:8 Raised exception. |}] @@ -1449,29 +1458,29 @@ let%expect_test "%debug_show PrintBox values_first_mode to stdout num children e {| BEGIN DEBUG SESSION _bar - ├─"test/test_expect_test.ml":1437:21 + ├─"test/test_expect_test.ml":1446:21 ├─_baz = 0 - │ └─"test/test_expect_test.ml":1441:16 + │ └─"test/test_expect_test.ml":1450:16 ├─_baz = 2 - │ └─"test/test_expect_test.ml":1441:16 + │ └─"test/test_expect_test.ml":1450:16 ├─_baz = 4 - │ └─"test/test_expect_test.ml":1441:16 + │ └─"test/test_expect_test.ml":1450:16 ├─_baz = 6 - │ └─"test/test_expect_test.ml":1441:16 + │ └─"test/test_expect_test.ml":1450:16 ├─_baz = 8 - │ └─"test/test_expect_test.ml":1441:16 + │ └─"test/test_expect_test.ml":1450:16 ├─_baz = 10 - │ └─"test/test_expect_test.ml":1441:16 + │ └─"test/test_expect_test.ml":1450:16 ├─_baz = 12 - │ └─"test/test_expect_test.ml":1441:16 + │ └─"test/test_expect_test.ml":1450:16 ├─_baz = 14 - │ └─"test/test_expect_test.ml":1441:16 + │ └─"test/test_expect_test.ml":1450:16 ├─_baz = 16 - │ └─"test/test_expect_test.ml":1441:16 + │ └─"test/test_expect_test.ml":1450:16 ├─_baz = 18 - │ └─"test/test_expect_test.ml":1441:16 + │ └─"test/test_expect_test.ml":1450:16 ├─_baz = 20 - │ └─"test/test_expect_test.ml":1441:16 + │ └─"test/test_expect_test.ml":1450:16 └─_baz = Raised exception: ppx_minidebug: max_num_children exceeded |}] @@ -1495,44 +1504,44 @@ let%expect_test "%track_show PrintBox values_first_mode to stdout track for-loop {| BEGIN DEBUG SESSION _bar = () - ├─"test/test_expect_test.ml":1483:21 - └─for:test_expect_test:1486 - ├─"test/test_expect_test.ml":1486:10 + ├─"test/test_expect_test.ml":1492:21 + └─for:test_expect_test:1495 + ├─"test/test_expect_test.ml":1495:10 ├─i = 0 ├─ - │ ├─"test/test_expect_test.ml":1486:14 + │ ├─"test/test_expect_test.ml":1495:14 │ └─_baz = 0 - │ └─"test/test_expect_test.ml":1487:16 + │ └─"test/test_expect_test.ml":1496:16 ├─i = 1 ├─ - │ ├─"test/test_expect_test.ml":1486:14 + │ ├─"test/test_expect_test.ml":1495:14 │ └─_baz = 2 - │ └─"test/test_expect_test.ml":1487:16 + │ └─"test/test_expect_test.ml":1496:16 ├─i = 2 ├─ - │ ├─"test/test_expect_test.ml":1486:14 + │ ├─"test/test_expect_test.ml":1495:14 │ └─_baz = 4 - │ └─"test/test_expect_test.ml":1487:16 + │ └─"test/test_expect_test.ml":1496:16 ├─i = 3 ├─ - │ ├─"test/test_expect_test.ml":1486:14 + │ ├─"test/test_expect_test.ml":1495:14 │ └─_baz = 6 - │ └─"test/test_expect_test.ml":1487:16 + │ └─"test/test_expect_test.ml":1496:16 ├─i = 4 ├─ - │ ├─"test/test_expect_test.ml":1486:14 + │ ├─"test/test_expect_test.ml":1495:14 │ └─_baz = 8 - │ └─"test/test_expect_test.ml":1487:16 + │ └─"test/test_expect_test.ml":1496:16 ├─i = 5 ├─ - │ ├─"test/test_expect_test.ml":1486:14 + │ ├─"test/test_expect_test.ml":1495:14 │ └─_baz = 10 - │ └─"test/test_expect_test.ml":1487:16 + │ └─"test/test_expect_test.ml":1496:16 ├─i = 6 └─ - ├─"test/test_expect_test.ml":1486:14 + ├─"test/test_expect_test.ml":1495:14 └─_baz = 12 - └─"test/test_expect_test.ml":1487:16 + └─"test/test_expect_test.ml":1496:16 |}] let%expect_test "%debug_show PrintBox values_first_mode to stdout num children exceeded \ @@ -1556,43 +1565,43 @@ let%expect_test "%debug_show PrintBox values_first_mode to stdout num children e {| BEGIN DEBUG SESSION loop_exceeded - ├─"test/test_expect_test.ml":1541:35 + ├─"test/test_expect_test.ml":1550:35 ├─x = 3 ├─z = 1 - │ └─"test/test_expect_test.ml":1548:17 + │ └─"test/test_expect_test.ml":1557:17 └─loop_exceeded - ├─"test/test_expect_test.ml":1541:35 + ├─"test/test_expect_test.ml":1550:35 ├─x = 2 ├─z = 0 - │ └─"test/test_expect_test.ml":1548:17 + │ └─"test/test_expect_test.ml":1557:17 └─loop_exceeded - ├─"test/test_expect_test.ml":1541:35 + ├─"test/test_expect_test.ml":1550:35 ├─x = 1 ├─z = 0 - │ └─"test/test_expect_test.ml":1548:17 + │ └─"test/test_expect_test.ml":1557:17 └─loop_exceeded - ├─"test/test_expect_test.ml":1541:35 + ├─"test/test_expect_test.ml":1550:35 ├─x = 0 ├─z = 0 - │ └─"test/test_expect_test.ml":1548:17 + │ └─"test/test_expect_test.ml":1557:17 ├─z = 1 - │ └─"test/test_expect_test.ml":1548:17 + │ └─"test/test_expect_test.ml":1557:17 ├─z = 2 - │ └─"test/test_expect_test.ml":1548:17 + │ └─"test/test_expect_test.ml":1557:17 ├─z = 3 - │ └─"test/test_expect_test.ml":1548:17 + │ └─"test/test_expect_test.ml":1557:17 ├─z = 4 - │ └─"test/test_expect_test.ml":1548:17 + │ └─"test/test_expect_test.ml":1557:17 ├─z = 5 - │ └─"test/test_expect_test.ml":1548:17 + │ └─"test/test_expect_test.ml":1557:17 ├─z = 6 - │ └─"test/test_expect_test.ml":1548:17 + │ └─"test/test_expect_test.ml":1557:17 ├─z = 7 - │ └─"test/test_expect_test.ml":1548:17 + │ └─"test/test_expect_test.ml":1557:17 ├─z = 8 - │ └─"test/test_expect_test.ml":1548:17 + │ └─"test/test_expect_test.ml":1557:17 ├─z = 9 - │ └─"test/test_expect_test.ml":1548:17 + │ └─"test/test_expect_test.ml":1557:17 └─z = Raised exception: ppx_minidebug: max_num_children exceeded |}] @@ -1600,8 +1609,7 @@ let%expect_test "%debug_show PrintBox values_first_mode to stdout num children e let%expect_test "%debug_show elapsed times PrintBox values_first_mode to stdout nested, \ truncated children" = let module Debug_runtime = - (val Minidebug_runtime.debug ~elapsed_times:Microseconds - ~truncate_children:4 ()) + (val Minidebug_runtime.debug ~elapsed_times:Microseconds ~truncate_children:4 ()) in let%debug_show rec loop_exceeded (x : int) : int = Array.fold_left ( + ) 0 @@ -1624,142 +1632,142 @@ let%expect_test "%debug_show elapsed times PrintBox values_first_mode to stdout {| BEGIN DEBUG SESSION loop_exceeded = 58435 - ├─"test/test_expect_test.ml":1606:35 + ├─"test/test_expect_test.ml":1614:35 ├─ ├─z = 4 - │ └─"test/test_expect_test.ml":1611:15 + │ └─"test/test_expect_test.ml":1619:15 ├─loop_exceeded = 11685 - │ ├─"test/test_expect_test.ml":1606:35 + │ ├─"test/test_expect_test.ml":1614:35 │ ├─ │ ├─z = 4 - │ │ └─"test/test_expect_test.ml":1611:15 + │ │ └─"test/test_expect_test.ml":1619:15 │ ├─loop_exceeded = 1945 - │ │ ├─"test/test_expect_test.ml":1606:35 + │ │ ├─"test/test_expect_test.ml":1614:35 │ │ ├─ │ │ ├─z = 8 - │ │ │ └─"test/test_expect_test.ml":1611:15 + │ │ │ └─"test/test_expect_test.ml":1619:15 │ │ ├─loop_exceeded = 190 - │ │ │ ├─"test/test_expect_test.ml":1606:35 + │ │ │ ├─"test/test_expect_test.ml":1614:35 │ │ │ ├─ │ │ │ ├─z = 16 - │ │ │ │ └─"test/test_expect_test.ml":1611:15 + │ │ │ │ └─"test/test_expect_test.ml":1619:15 │ │ │ ├─z = 17 - │ │ │ │ └─"test/test_expect_test.ml":1611:15 + │ │ │ │ └─"test/test_expect_test.ml":1619:15 │ │ │ ├─z = 18 - │ │ │ │ └─"test/test_expect_test.ml":1611:15 + │ │ │ │ └─"test/test_expect_test.ml":1619:15 │ │ │ └─z = 19 - │ │ │ └─"test/test_expect_test.ml":1611:15 + │ │ │ └─"test/test_expect_test.ml":1619:15 │ │ ├─z = 9 - │ │ │ └─"test/test_expect_test.ml":1611:15 + │ │ │ └─"test/test_expect_test.ml":1619:15 │ │ └─loop_exceeded = 190 - │ │ ├─"test/test_expect_test.ml":1606:35 + │ │ ├─"test/test_expect_test.ml":1614:35 │ │ ├─ │ │ ├─z = 16 - │ │ │ └─"test/test_expect_test.ml":1611:15 + │ │ │ └─"test/test_expect_test.ml":1619:15 │ │ ├─z = 17 - │ │ │ └─"test/test_expect_test.ml":1611:15 + │ │ │ └─"test/test_expect_test.ml":1619:15 │ │ ├─z = 18 - │ │ │ └─"test/test_expect_test.ml":1611:15 + │ │ │ └─"test/test_expect_test.ml":1619:15 │ │ └─z = 19 - │ │ └─"test/test_expect_test.ml":1611:15 + │ │ └─"test/test_expect_test.ml":1619:15 │ ├─z = 5 - │ │ └─"test/test_expect_test.ml":1611:15 + │ │ └─"test/test_expect_test.ml":1619:15 │ └─loop_exceeded = 1945 - │ ├─"test/test_expect_test.ml":1606:35 + │ ├─"test/test_expect_test.ml":1614:35 │ ├─ │ ├─z = 8 - │ │ └─"test/test_expect_test.ml":1611:15 + │ │ └─"test/test_expect_test.ml":1619:15 │ ├─loop_exceeded = 190 - │ │ ├─"test/test_expect_test.ml":1606:35 + │ │ ├─"test/test_expect_test.ml":1614:35 │ │ ├─ │ │ ├─z = 16 - │ │ │ └─"test/test_expect_test.ml":1611:15 + │ │ │ └─"test/test_expect_test.ml":1619:15 │ │ ├─z = 17 - │ │ │ └─"test/test_expect_test.ml":1611:15 + │ │ │ └─"test/test_expect_test.ml":1619:15 │ │ ├─z = 18 - │ │ │ └─"test/test_expect_test.ml":1611:15 + │ │ │ └─"test/test_expect_test.ml":1619:15 │ │ └─z = 19 - │ │ └─"test/test_expect_test.ml":1611:15 + │ │ └─"test/test_expect_test.ml":1619:15 │ ├─z = 9 - │ │ └─"test/test_expect_test.ml":1611:15 + │ │ └─"test/test_expect_test.ml":1619:15 │ └─loop_exceeded = 190 - │ ├─"test/test_expect_test.ml":1606:35 + │ ├─"test/test_expect_test.ml":1614:35 │ ├─ │ ├─z = 16 - │ │ └─"test/test_expect_test.ml":1611:15 + │ │ └─"test/test_expect_test.ml":1619:15 │ ├─z = 17 - │ │ └─"test/test_expect_test.ml":1611:15 + │ │ └─"test/test_expect_test.ml":1619:15 │ ├─z = 18 - │ │ └─"test/test_expect_test.ml":1611:15 + │ │ └─"test/test_expect_test.ml":1619:15 │ └─z = 19 - │ └─"test/test_expect_test.ml":1611:15 + │ └─"test/test_expect_test.ml":1619:15 ├─z = 5 - │ └─"test/test_expect_test.ml":1611:15 + │ └─"test/test_expect_test.ml":1619:15 └─loop_exceeded = 11685 - ├─"test/test_expect_test.ml":1606:35 + ├─"test/test_expect_test.ml":1614:35 ├─ ├─z = 4 - │ └─"test/test_expect_test.ml":1611:15 + │ └─"test/test_expect_test.ml":1619:15 ├─loop_exceeded = 1945 - │ ├─"test/test_expect_test.ml":1606:35 + │ ├─"test/test_expect_test.ml":1614:35 │ ├─ │ ├─z = 8 - │ │ └─"test/test_expect_test.ml":1611:15 + │ │ └─"test/test_expect_test.ml":1619:15 │ ├─loop_exceeded = 190 - │ │ ├─"test/test_expect_test.ml":1606:35 + │ │ ├─"test/test_expect_test.ml":1614:35 │ │ ├─ │ │ ├─z = 16 - │ │ │ └─"test/test_expect_test.ml":1611:15 + │ │ │ └─"test/test_expect_test.ml":1619:15 │ │ ├─z = 17 - │ │ │ └─"test/test_expect_test.ml":1611:15 + │ │ │ └─"test/test_expect_test.ml":1619:15 │ │ ├─z = 18 - │ │ │ └─"test/test_expect_test.ml":1611:15 + │ │ │ └─"test/test_expect_test.ml":1619:15 │ │ └─z = 19 - │ │ └─"test/test_expect_test.ml":1611:15 + │ │ └─"test/test_expect_test.ml":1619:15 │ ├─z = 9 - │ │ └─"test/test_expect_test.ml":1611:15 + │ │ └─"test/test_expect_test.ml":1619:15 │ └─loop_exceeded = 190 - │ ├─"test/test_expect_test.ml":1606:35 + │ ├─"test/test_expect_test.ml":1614:35 │ ├─ │ ├─z = 16 - │ │ └─"test/test_expect_test.ml":1611:15 + │ │ └─"test/test_expect_test.ml":1619:15 │ ├─z = 17 - │ │ └─"test/test_expect_test.ml":1611:15 + │ │ └─"test/test_expect_test.ml":1619:15 │ ├─z = 18 - │ │ └─"test/test_expect_test.ml":1611:15 + │ │ └─"test/test_expect_test.ml":1619:15 │ └─z = 19 - │ └─"test/test_expect_test.ml":1611:15 + │ └─"test/test_expect_test.ml":1619:15 ├─z = 5 - │ └─"test/test_expect_test.ml":1611:15 + │ └─"test/test_expect_test.ml":1619:15 └─loop_exceeded = 1945 - ├─"test/test_expect_test.ml":1606:35 + ├─"test/test_expect_test.ml":1614:35 ├─ ├─z = 8 - │ └─"test/test_expect_test.ml":1611:15 + │ └─"test/test_expect_test.ml":1619:15 ├─loop_exceeded = 190 - │ ├─"test/test_expect_test.ml":1606:35 + │ ├─"test/test_expect_test.ml":1614:35 │ ├─ │ ├─z = 16 - │ │ └─"test/test_expect_test.ml":1611:15 + │ │ └─"test/test_expect_test.ml":1619:15 │ ├─z = 17 - │ │ └─"test/test_expect_test.ml":1611:15 + │ │ └─"test/test_expect_test.ml":1619:15 │ ├─z = 18 - │ │ └─"test/test_expect_test.ml":1611:15 + │ │ └─"test/test_expect_test.ml":1619:15 │ └─z = 19 - │ └─"test/test_expect_test.ml":1611:15 + │ └─"test/test_expect_test.ml":1619:15 ├─z = 9 - │ └─"test/test_expect_test.ml":1611:15 + │ └─"test/test_expect_test.ml":1619:15 └─loop_exceeded = 190 - ├─"test/test_expect_test.ml":1606:35 + ├─"test/test_expect_test.ml":1614:35 ├─ ├─z = 16 - │ └─"test/test_expect_test.ml":1611:15 + │ └─"test/test_expect_test.ml":1619:15 ├─z = 17 - │ └─"test/test_expect_test.ml":1611:15 + │ └─"test/test_expect_test.ml":1619:15 ├─z = 18 - │ └─"test/test_expect_test.ml":1611:15 + │ └─"test/test_expect_test.ml":1619:15 └─z = 19 - └─"test/test_expect_test.ml":1611:15 + └─"test/test_expect_test.ml":1619:15 58435 |}] @@ -1778,57 +1786,57 @@ let%expect_test "%debug_show PrintBox values_first_mode to stdout highlight" = ┌──────────────────┐ │loop_highlight = 9│ ├──────────────────┘ - ├─"test/test_expect_test.ml":1770:36 + ├─"test/test_expect_test.ml":1778:36 ├─x = 7 ├─┬─────┐ │ │z = 3│ │ ├─────┘ - │ └─"test/test_expect_test.ml":1771:8 + │ └─"test/test_expect_test.ml":1779:8 └─┬──────────────────┐ │loop_highlight = 6│ ├──────────────────┘ - ├─"test/test_expect_test.ml":1770:36 + ├─"test/test_expect_test.ml":1778:36 ├─x = 6 ├─z = 2 - │ └─"test/test_expect_test.ml":1771:8 + │ └─"test/test_expect_test.ml":1779:8 └─┬──────────────────┐ │loop_highlight = 4│ ├──────────────────┘ - ├─"test/test_expect_test.ml":1770:36 + ├─"test/test_expect_test.ml":1778:36 ├─x = 5 ├─z = 2 - │ └─"test/test_expect_test.ml":1771:8 + │ └─"test/test_expect_test.ml":1779:8 └─┬──────────────────┐ │loop_highlight = 2│ ├──────────────────┘ - ├─"test/test_expect_test.ml":1770:36 + ├─"test/test_expect_test.ml":1778:36 ├─x = 4 ├─z = 1 - │ └─"test/test_expect_test.ml":1771:8 + │ └─"test/test_expect_test.ml":1779:8 └─┬──────────────────┐ │loop_highlight = 1│ ├──────────────────┘ - ├─"test/test_expect_test.ml":1770:36 + ├─"test/test_expect_test.ml":1778:36 ├─┬─────┐ │ │x = 3│ │ └─────┘ ├─z = 1 - │ └─"test/test_expect_test.ml":1771:8 + │ └─"test/test_expect_test.ml":1779:8 └─loop_highlight = 0 - ├─"test/test_expect_test.ml":1770:36 + ├─"test/test_expect_test.ml":1778:36 ├─x = 2 ├─z = 0 - │ └─"test/test_expect_test.ml":1771:8 + │ └─"test/test_expect_test.ml":1779:8 └─loop_highlight = 0 - ├─"test/test_expect_test.ml":1770:36 + ├─"test/test_expect_test.ml":1778:36 ├─x = 1 ├─z = 0 - │ └─"test/test_expect_test.ml":1771:8 + │ └─"test/test_expect_test.ml":1779:8 └─loop_highlight = 0 - ├─"test/test_expect_test.ml":1770:36 + ├─"test/test_expect_test.ml":1778:36 ├─x = 0 └─z = 0 - └─"test/test_expect_test.ml":1771:8 + └─"test/test_expect_test.ml":1779:8 9 |}] @@ -1848,20 +1856,20 @@ let%expect_test "%track_show PrintBox values_first_mode tracking" = {| BEGIN DEBUG SESSION track_branches = 4 - ├─"test/test_expect_test.ml":1837:32 + ├─"test/test_expect_test.ml":1845:32 ├─x = 7 - └─else:test_expect_test:1839 - ├─"test/test_expect_test.ml":1839:9 + └─else:test_expect_test:1847 + ├─"test/test_expect_test.ml":1847:9 └─ - └─"test/test_expect_test.ml":1839:36 + └─"test/test_expect_test.ml":1847:36 4 track_branches = -3 - ├─"test/test_expect_test.ml":1837:32 + ├─"test/test_expect_test.ml":1845:32 ├─x = 3 - └─then:test_expect_test:1838 - ├─"test/test_expect_test.ml":1838:18 + └─then:test_expect_test:1846 + ├─"test/test_expect_test.ml":1846:18 └─ - └─"test/test_expect_test.ml":1838:54 + └─"test/test_expect_test.ml":1846:54 -3 |}] @@ -1879,19 +1887,19 @@ let%expect_test "%track_show PrintBox values_first_mode to stdout no return type {| BEGIN DEBUG SESSION anonymous - ├─"test/test_expect_test.ml":1871:27 + ├─"test/test_expect_test.ml":1879:27 ├─x = 3 - ├─fun:test_expect_test:1872 - │ ├─"test/test_expect_test.ml":1872:50 + ├─fun:test_expect_test:1880 + │ ├─"test/test_expect_test.ml":1880:50 │ └─i = 0 - ├─fun:test_expect_test:1872 - │ ├─"test/test_expect_test.ml":1872:50 + ├─fun:test_expect_test:1880 + │ ├─"test/test_expect_test.ml":1880:50 │ └─i = 1 - ├─fun:test_expect_test:1872 - │ ├─"test/test_expect_test.ml":1872:50 + ├─fun:test_expect_test:1880 + │ ├─"test/test_expect_test.ml":1880:50 │ └─i = 2 - └─fun:test_expect_test:1872 - ├─"test/test_expect_test.ml":1872:50 + └─fun:test_expect_test:1880 + ├─"test/test_expect_test.ml":1880:50 └─i = 3 6 |}] @@ -1912,20 +1920,20 @@ let%expect_test "%debug_show records" = [%expect {| BEGIN DEBUG SESSION - "test/test_expect_test.ml":1901:21: bar + "test/test_expect_test.ml":1909:21: bar ├─first = 7 ├─second = 42 - ├─"test/test_expect_test.ml":1902:8: {first=a; second=b} + ├─"test/test_expect_test.ml":1910:8: {first=a; second=b} │ ├─a = 7 │ └─b = 45 - ├─"test/test_expect_test.ml":1903:8: y + ├─"test/test_expect_test.ml":1911:8: y │ └─y = 8 └─bar = 336 336 - "test/test_expect_test.ml":1907:21: baz + "test/test_expect_test.ml":1915:21: baz ├─first = 7 ├─second = 42 - ├─"test/test_expect_test.ml":1908:8: {first; second} + ├─"test/test_expect_test.ml":1916:8: {first; second} │ ├─first = 8 │ └─second = 45 └─baz = 109 @@ -1950,21 +1958,21 @@ let%expect_test "%debug_show tuples" = [%expect {| BEGIN DEBUG SESSION - "test/test_expect_test.ml":1937:21: bar + "test/test_expect_test.ml":1945:21: bar ├─first = 7 ├─second = 42 - ├─"test/test_expect_test.ml":1938:8: y + ├─"test/test_expect_test.ml":1946:8: y │ └─y = 8 └─bar = 336 336 - "test/test_expect_test.ml":1947:17: (r1, r2) - ├─"test/test_expect_test.ml":1942:21: baz + "test/test_expect_test.ml":1955:17: (r1, r2) + ├─"test/test_expect_test.ml":1950:21: baz │ ├─first = 7 │ ├─second = 42 - │ ├─"test/test_expect_test.ml":1943:8: (y, z) + │ ├─"test/test_expect_test.ml":1951:8: (y, z) │ │ ├─y = 8 │ │ └─z = 3 - │ ├─"test/test_expect_test.ml":1944:8: (a, b) + │ ├─"test/test_expect_test.ml":1952:8: (a, b) │ │ ├─a = 8 │ │ └─b = 45 │ └─baz = (339, 109) @@ -1991,23 +1999,23 @@ let%expect_test "%debug_show records values_first_mode" = {| BEGIN DEBUG SESSION bar = 336 - ├─"test/test_expect_test.ml":1979:21 + ├─"test/test_expect_test.ml":1987:21 ├─first = 7 ├─second = 42 ├─{first=a; second=b} - │ ├─"test/test_expect_test.ml":1980:8 + │ ├─"test/test_expect_test.ml":1988:8 │ └─ │ ├─a = 7 │ └─b = 45 └─y = 8 - └─"test/test_expect_test.ml":1981:8 + └─"test/test_expect_test.ml":1989:8 336 baz = 109 - ├─"test/test_expect_test.ml":1985:21 + ├─"test/test_expect_test.ml":1993:21 ├─first = 7 ├─second = 42 └─{first; second} - ├─"test/test_expect_test.ml":1986:8 + ├─"test/test_expect_test.ml":1994:8 └─ ├─first = 8 └─second = 45 @@ -2033,28 +2041,28 @@ let%expect_test "%debug_show tuples values_first_mode" = {| BEGIN DEBUG SESSION bar = 336 - ├─"test/test_expect_test.ml":2019:21 + ├─"test/test_expect_test.ml":2027:21 ├─first = 7 ├─second = 42 └─y = 8 - └─"test/test_expect_test.ml":2020:8 + └─"test/test_expect_test.ml":2028:8 336 (r1, r2) - ├─"test/test_expect_test.ml":2029:17 + ├─"test/test_expect_test.ml":2037:17 ├─ │ ├─r1 = 339 │ └─r2 = 109 └─baz = (339, 109) - ├─"test/test_expect_test.ml":2024:21 + ├─"test/test_expect_test.ml":2032:21 ├─first = 7 ├─second = 42 ├─(y, z) - │ ├─"test/test_expect_test.ml":2025:8 + │ ├─"test/test_expect_test.ml":2033:8 │ └─ │ ├─y = 8 │ └─z = 3 └─(a, b) - ├─"test/test_expect_test.ml":2026:8 + ├─"test/test_expect_test.ml":2034:8 └─ ├─a = 8 └─b = 45 @@ -2088,25 +2096,25 @@ let%expect_test "%track_show variants values_first_mode" = {| BEGIN DEBUG SESSION bar = 16 - ├─"test/test_expect_test.ml":2071:21 + ├─"test/test_expect_test.ml":2079:21 ├─x = 7 └─y = 8 - └─"test/test_expect_test.ml":2072:8 + └─"test/test_expect_test.ml":2080:8 16 baz = 5 - ├─"test/test_expect_test.ml":2077:24 + ├─"test/test_expect_test.ml":2085:24 ├─ Left x └─x = 4 5 baz = 6 - ├─"test/test_expect_test.ml":2078:31 + ├─"test/test_expect_test.ml":2086:31 ├─ Right Two y └─y = 3 6 foo = 3 - ├─"test/test_expect_test.ml":2081:21 + ├─"test/test_expect_test.ml":2089:21 └─ - └─"test/test_expect_test.ml":2082:81 + └─"test/test_expect_test.ml":2090:81 3 |}] @@ -2125,21 +2133,21 @@ let%expect_test "%debug_show tuples merge type info" = {| BEGIN DEBUG SESSION (r1, r2) - ├─"test/test_expect_test.ml":2120:17 + ├─"test/test_expect_test.ml":2128:17 ├─ │ ├─r1 = 339 │ └─r2 = 109 └─baz = (339, 109) - ├─"test/test_expect_test.ml":2115:21 + ├─"test/test_expect_test.ml":2123:21 ├─first = 7 ├─second = 42 ├─(y, z) - │ ├─"test/test_expect_test.ml":2116:8 + │ ├─"test/test_expect_test.ml":2124:8 │ └─ │ ├─y = 8 │ └─z = 3 └─a = 8 - └─"test/test_expect_test.ml":2117:8 + └─"test/test_expect_test.ml":2125:8 339 109 |}] @@ -2154,11 +2162,11 @@ let%expect_test "%debug_show decompose multi-argument function type" = {| BEGIN DEBUG SESSION f = 7 - ├─"test/test_expect_test.ml":2149:44 + ├─"test/test_expect_test.ml":2157:44 └─b = 6 7 g = 12 - ├─"test/test_expect_test.ml":2150:56 + ├─"test/test_expect_test.ml":2158:56 └─b = 6 12 |}] @@ -2175,12 +2183,12 @@ let%expect_test "%debug_show debug type info" = {| BEGIN DEBUG SESSION f : int = 7 - ├─"test/test_expect_test.ml":2170:37 + ├─"test/test_expect_test.ml":2178:37 ├─f : int └─b : int = 6 7 g : int = 12 - ├─"test/test_expect_test.ml":2171:49 + ├─"test/test_expect_test.ml":2179:49 ├─g : int └─b : int = 6 12 @@ -2207,24 +2215,24 @@ let%expect_test "%track_show options values_first_mode" = {| BEGIN DEBUG SESSION foo = 14 - ├─"test/test_expect_test.ml":2191:21 + ├─"test/test_expect_test.ml":2199:21 └─ Some y - ├─"test/test_expect_test.ml":2192:54 + ├─"test/test_expect_test.ml":2200:54 └─y = 7 14 bar = 14 - ├─"test/test_expect_test.ml":2195:21 + ├─"test/test_expect_test.ml":2203:21 ├─l = (Some 7) └─ Some y - └─"test/test_expect_test.ml":2196:39 + └─"test/test_expect_test.ml":2204:39 14 baz = 8 - ├─"test/test_expect_test.ml":2199:74 + ├─"test/test_expect_test.ml":2207:74 ├─ Some y └─y = 4 8 zoo = 9 - ├─"test/test_expect_test.ml":2203:21 + ├─"test/test_expect_test.ml":2211:21 ├─ Some (y, z) ├─y = 4 └─z = 5 @@ -2250,30 +2258,30 @@ let%expect_test "%track_show list values_first_mode" = {| BEGIN DEBUG SESSION foo = 14 - ├─"test/test_expect_test.ml":2236:21 + ├─"test/test_expect_test.ml":2244:21 └─ :: (y, _) - ├─"test/test_expect_test.ml":2236:77 + ├─"test/test_expect_test.ml":2244:77 └─y = 7 14 bar = 14 - ├─"test/test_expect_test.ml":2238:21 + ├─"test/test_expect_test.ml":2246:21 ├─l = [7] └─ :: (y, _) - └─"test/test_expect_test.ml":2238:77 + └─"test/test_expect_test.ml":2246:77 14 baz = 8 - ├─"test/test_expect_test.ml":2242:15 + ├─"test/test_expect_test.ml":2250:15 ├─ :: (y, []) └─y = 4 8 baz = 9 - ├─"test/test_expect_test.ml":2243:18 + ├─"test/test_expect_test.ml":2251:18 ├─ :: (y, :: (z, [])) ├─y = 4 └─z = 5 9 baz = 10 - ├─"test/test_expect_test.ml":2244:21 + ├─"test/test_expect_test.ml":2252:21 ├─ :: (y, :: (z, _)) ├─y = 4 └─z = 5 @@ -2284,10 +2292,7 @@ let%expect_test "%track_rt_show list runtime passing" = let%track_rt_show foo l : int = match (l : int list) with [] -> 7 | y :: _ -> y * 2 in let () = print_endline @@ Int.to_string - @@ foo - Minidebug_runtime.( - forget_printbox @@ debug ~global_prefix:"foo-1" ()) - [ 7 ] + @@ foo Minidebug_runtime.(forget_printbox @@ debug ~global_prefix:"foo-1" ()) [ 7 ] in let%track_rt_show baz : int list -> int = function | [] -> 7 @@ -2297,38 +2302,34 @@ let%expect_test "%track_rt_show list runtime passing" = in let () = print_endline @@ Int.to_string - @@ baz - Minidebug_runtime.( - forget_printbox @@ debug ~global_prefix:"baz-1" ()) - [ 4 ] + @@ baz Minidebug_runtime.(forget_printbox @@ debug ~global_prefix:"baz-1" ()) [ 4 ] in let () = print_endline @@ Int.to_string @@ baz - Minidebug_runtime.( - forget_printbox @@ debug ~global_prefix:"baz-2" ()) + Minidebug_runtime.(forget_printbox @@ debug ~global_prefix:"baz-2" ()) [ 4; 5; 6 ] in [%expect {| BEGIN DEBUG SESSION foo-1 foo = 14 - ├─"test/test_expect_test.ml":2284:24 + ├─"test/test_expect_test.ml":2292:24 └─foo-1 :: (y, _) - ├─"test/test_expect_test.ml":2284:80 + ├─"test/test_expect_test.ml":2292:80 └─y = 7 14 BEGIN DEBUG SESSION baz-1 baz = 8 - ├─"test/test_expect_test.ml":2294:15 + ├─"test/test_expect_test.ml":2299:15 ├─baz-1 :: (y, []) └─y = 4 8 BEGIN DEBUG SESSION baz-2 baz = 10 - ├─"test/test_expect_test.ml":2296:21 + ├─"test/test_expect_test.ml":2301:21 ├─baz-2 :: (y, :: (z, _)) ├─y = 4 └─z = 5 @@ -2348,23 +2349,23 @@ let%expect_test "%track_rt_show procedure runtime passing" = [%expect {| BEGIN DEBUG SESSION bar-1 - bar-1 bar begin "test/test_expect_test.ml":2339:24: - bar-1 fun:test_expect_test:2339 begin "test/test_expect_test.ml":2339:29: - bar-1 fun:test_expect_test:2339 end + bar-1 bar begin "test/test_expect_test.ml":2340:24: + bar-1 fun:test_expect_test:2340 begin "test/test_expect_test.ml":2340:29: + bar-1 fun:test_expect_test:2340 end bar-1 bar end BEGIN DEBUG SESSION bar-2 - bar-2 bar begin "test/test_expect_test.ml":2339:24: - bar-2 fun:test_expect_test:2339 begin "test/test_expect_test.ml":2339:29: - bar-2 fun:test_expect_test:2339 end + bar-2 bar begin "test/test_expect_test.ml":2340:24: + bar-2 fun:test_expect_test:2340 begin "test/test_expect_test.ml":2340:29: + bar-2 fun:test_expect_test:2340 end bar-2 bar end BEGIN DEBUG SESSION foo-1 - foo-1 foo begin "test/test_expect_test.ml":2342:24: + foo-1 foo begin "test/test_expect_test.ml":2343:24: foo-1 foo end BEGIN DEBUG SESSION foo-2 - foo-2 foo begin "test/test_expect_test.ml":2342:24: + foo-2 foo begin "test/test_expect_test.ml":2343:24: foo-2 foo end |}] @@ -2388,23 +2389,23 @@ let%expect_test "%track_rt_show nested procedure runtime passing" = BEGIN DEBUG SESSION BEGIN DEBUG SESSION foo-1 - foo-1 foo begin "test/test_expect_test.ml":2375:26: + foo-1 foo begin "test/test_expect_test.ml":2376:26: foo-1 foo end BEGIN DEBUG SESSION foo-2 - foo-2 foo begin "test/test_expect_test.ml":2375:26: + foo-2 foo begin "test/test_expect_test.ml":2376:26: foo-2 foo end BEGIN DEBUG SESSION bar-1 - bar-1 bar begin "test/test_expect_test.ml":2374:26: - bar-1 fun:test_expect_test:2374 begin "test/test_expect_test.ml":2374:31: - bar-1 fun:test_expect_test:2374 end + bar-1 bar begin "test/test_expect_test.ml":2375:26: + bar-1 fun:test_expect_test:2375 begin "test/test_expect_test.ml":2375:31: + bar-1 fun:test_expect_test:2375 end bar-1 bar end BEGIN DEBUG SESSION bar-2 - bar-2 bar begin "test/test_expect_test.ml":2374:26: - bar-2 fun:test_expect_test:2374 begin "test/test_expect_test.ml":2374:31: - bar-2 fun:test_expect_test:2374 end + bar-2 bar begin "test/test_expect_test.ml":2375:26: + bar-2 fun:test_expect_test:2375 begin "test/test_expect_test.ml":2375:31: + bar-2 fun:test_expect_test:2375 end bar-2 bar end |}] @@ -2427,12 +2428,12 @@ let%expect_test "%log constant entries" = {| BEGIN DEBUG SESSION foo = () - ├─"test/test_expect_test.ml":2413:21 + ├─"test/test_expect_test.ml":2414:21 ├─"This is the first log line" ├─["This is the"; "2"; "log line"] └─("This is the", 3, "or", 3.14, "log line") bar - ├─"test/test_expect_test.ml":2420:21 + ├─"test/test_expect_test.ml":2421:21 ├─This is the first log line ├─This is the │ ├─2 @@ -2461,7 +2462,7 @@ let%expect_test "%log with type annotations" = {| BEGIN DEBUG SESSION foo = () - ├─"test/test_expect_test.ml":2452:21 + ├─"test/test_expect_test.ml":2453:21 ├─("This is like", 3, "or", 3.14, "above") ├─("tau =", 6.28) ├─[4; 1; 2; 3] @@ -2489,7 +2490,7 @@ let%expect_test "%log with default type assumption" = {| BEGIN DEBUG SESSION foo = () - ├─"test/test_expect_test.ml":2478:21 + ├─"test/test_expect_test.ml":2479:21 ├─"2*3" ├─("This is like", "3", "or", "3.14", "above") ├─("tau =", "2*3.14") @@ -2514,29 +2515,29 @@ let%expect_test "%log track while-loop" = [%expect {| BEGIN DEBUG SESSION - "test/test_expect_test.ml":2501:17: result - └─"test/test_expect_test.ml":2504:4: while:test_expect_test:2504 - ├─"test/test_expect_test.ml":2505:6: + "test/test_expect_test.ml":2502:17: result + └─"test/test_expect_test.ml":2505:4: while:test_expect_test:2505 + ├─"test/test_expect_test.ml":2506:6: │ ├─(1 i= 0) │ ├─(2 i= 1) │ └─(3 j= 1) - ├─"test/test_expect_test.ml":2505:6: + ├─"test/test_expect_test.ml":2506:6: │ ├─(1 i= 1) │ ├─(2 i= 2) │ └─(3 j= 3) - ├─"test/test_expect_test.ml":2505:6: + ├─"test/test_expect_test.ml":2506:6: │ ├─(1 i= 2) │ ├─(2 i= 3) │ └─(3 j= 6) - ├─"test/test_expect_test.ml":2505:6: + ├─"test/test_expect_test.ml":2506:6: │ ├─(1 i= 3) │ ├─(2 i= 4) │ └─(3 j= 10) - ├─"test/test_expect_test.ml":2505:6: + ├─"test/test_expect_test.ml":2506:6: │ ├─(1 i= 4) │ ├─(2 i= 5) │ └─(3 j= 15) - └─"test/test_expect_test.ml":2505:6: + └─"test/test_expect_test.ml":2506:6: ├─(1 i= 5) ├─(2 i= 6) └─(3 j= 21) @@ -2560,7 +2561,9 @@ let%expect_test "%log runtime log levels while-loop" = print_endline @@ Int.to_string (result - Minidebug_runtime.(forget_printbox @@ debug ~values_first_mode:false ~global_prefix:"Everything" ()) + Minidebug_runtime.( + forget_printbox + @@ debug ~values_first_mode:false ~global_prefix:"Everything" ()) ()); print_endline @@ Int.to_string @@ -2573,52 +2576,50 @@ let%expect_test "%log runtime log levels while-loop" = @@ Int.to_string (result Minidebug_runtime.( - forget_printbox - @@ debug ~log_level:1 ~global_prefix:"Error" ()) + forget_printbox @@ debug ~log_level:1 ~global_prefix:"Error" ()) ()); print_endline @@ Int.to_string (result Minidebug_runtime.( - forget_printbox - @@ debug ~log_level:2 ~global_prefix:"Warning" ()) + forget_printbox @@ debug ~log_level:2 ~global_prefix:"Warning" ()) ()); [%expect {| BEGIN DEBUG SESSION Everything - "test/test_expect_test.ml":2547:27: Everything result - ├─"test/test_expect_test.ml":2550:4: Everything while:test_expect_test:2550 - │ ├─"test/test_expect_test.ml":2552:6: Everything - │ │ ├─"test/test_expect_test.ml":2552:21: Everything then:test_expect_test:2552 + "test/test_expect_test.ml":2548:27: Everything result + ├─"test/test_expect_test.ml":2551:4: Everything while:test_expect_test:2551 + │ ├─"test/test_expect_test.ml":2553:6: Everything + │ │ ├─"test/test_expect_test.ml":2553:21: Everything then:test_expect_test:2553 │ │ │ └─(ERROR: 1 i= 0) │ │ ├─(WARNING: 2 i= 1) - │ │ ├─"test/test_expect_test.ml":2555:11: Everything fun:test_expect_test:2555 + │ │ ├─"test/test_expect_test.ml":2556:11: Everything fun:test_expect_test:2556 │ │ └─(INFO: 3 j= 1) - │ ├─"test/test_expect_test.ml":2552:6: Everything - │ │ ├─"test/test_expect_test.ml":2552:21: Everything then:test_expect_test:2552 + │ ├─"test/test_expect_test.ml":2553:6: Everything + │ │ ├─"test/test_expect_test.ml":2553:21: Everything then:test_expect_test:2553 │ │ │ └─(ERROR: 1 i= 1) │ │ ├─(WARNING: 2 i= 2) - │ │ ├─"test/test_expect_test.ml":2555:11: Everything fun:test_expect_test:2555 + │ │ ├─"test/test_expect_test.ml":2556:11: Everything fun:test_expect_test:2556 │ │ └─(INFO: 3 j= 3) - │ ├─"test/test_expect_test.ml":2552:6: Everything - │ │ ├─"test/test_expect_test.ml":2552:64: Everything else:test_expect_test:2552 + │ ├─"test/test_expect_test.ml":2553:6: Everything + │ │ ├─"test/test_expect_test.ml":2553:64: Everything else:test_expect_test:2553 │ │ ├─(WARNING: 2 i= 3) - │ │ ├─"test/test_expect_test.ml":2555:11: Everything fun:test_expect_test:2555 + │ │ ├─"test/test_expect_test.ml":2556:11: Everything fun:test_expect_test:2556 │ │ └─(INFO: 3 j= 6) - │ ├─"test/test_expect_test.ml":2552:6: Everything - │ │ ├─"test/test_expect_test.ml":2552:64: Everything else:test_expect_test:2552 + │ ├─"test/test_expect_test.ml":2553:6: Everything + │ │ ├─"test/test_expect_test.ml":2553:64: Everything else:test_expect_test:2553 │ │ ├─(WARNING: 2 i= 4) - │ │ ├─"test/test_expect_test.ml":2555:11: Everything fun:test_expect_test:2555 + │ │ ├─"test/test_expect_test.ml":2556:11: Everything fun:test_expect_test:2556 │ │ └─(INFO: 3 j= 10) - │ ├─"test/test_expect_test.ml":2552:6: Everything - │ │ ├─"test/test_expect_test.ml":2552:64: Everything else:test_expect_test:2552 + │ ├─"test/test_expect_test.ml":2553:6: Everything + │ │ ├─"test/test_expect_test.ml":2553:64: Everything else:test_expect_test:2553 │ │ ├─(WARNING: 2 i= 5) - │ │ ├─"test/test_expect_test.ml":2555:11: Everything fun:test_expect_test:2555 + │ │ ├─"test/test_expect_test.ml":2556:11: Everything fun:test_expect_test:2556 │ │ └─(INFO: 3 j= 15) - │ └─"test/test_expect_test.ml":2552:6: Everything - │ ├─"test/test_expect_test.ml":2552:64: Everything else:test_expect_test:2552 + │ └─"test/test_expect_test.ml":2553:6: Everything + │ ├─"test/test_expect_test.ml":2553:64: Everything else:test_expect_test:2553 │ ├─(WARNING: 2 i= 6) - │ ├─"test/test_expect_test.ml":2555:11: Everything fun:test_expect_test:2555 + │ ├─"test/test_expect_test.ml":2556:11: Everything fun:test_expect_test:2556 │ └─(INFO: 3 j= 21) └─result = 21 21 @@ -2628,98 +2629,98 @@ let%expect_test "%log runtime log levels while-loop" = BEGIN DEBUG SESSION Error result = 21 - ├─"test/test_expect_test.ml":2547:27 - └─Error while:test_expect_test:2550 - ├─"test/test_expect_test.ml":2550:4 + ├─"test/test_expect_test.ml":2548:27 + └─Error while:test_expect_test:2551 + ├─"test/test_expect_test.ml":2551:4 ├─Error - │ ├─"test/test_expect_test.ml":2552:6 - │ ├─Error then:test_expect_test:2552 - │ │ ├─"test/test_expect_test.ml":2552:21 + │ ├─"test/test_expect_test.ml":2553:6 + │ ├─Error then:test_expect_test:2553 + │ │ ├─"test/test_expect_test.ml":2553:21 │ │ └─(ERROR: 1 i= 0) - │ └─Error fun:test_expect_test:2555 - │ └─"test/test_expect_test.ml":2555:11 + │ └─Error fun:test_expect_test:2556 + │ └─"test/test_expect_test.ml":2556:11 ├─Error - │ ├─"test/test_expect_test.ml":2552:6 - │ ├─Error then:test_expect_test:2552 - │ │ ├─"test/test_expect_test.ml":2552:21 + │ ├─"test/test_expect_test.ml":2553:6 + │ ├─Error then:test_expect_test:2553 + │ │ ├─"test/test_expect_test.ml":2553:21 │ │ └─(ERROR: 1 i= 1) - │ └─Error fun:test_expect_test:2555 - │ └─"test/test_expect_test.ml":2555:11 + │ └─Error fun:test_expect_test:2556 + │ └─"test/test_expect_test.ml":2556:11 ├─Error - │ ├─"test/test_expect_test.ml":2552:6 - │ ├─Error else:test_expect_test:2552 - │ │ └─"test/test_expect_test.ml":2552:64 - │ └─Error fun:test_expect_test:2555 - │ └─"test/test_expect_test.ml":2555:11 + │ ├─"test/test_expect_test.ml":2553:6 + │ ├─Error else:test_expect_test:2553 + │ │ └─"test/test_expect_test.ml":2553:64 + │ └─Error fun:test_expect_test:2556 + │ └─"test/test_expect_test.ml":2556:11 ├─Error - │ ├─"test/test_expect_test.ml":2552:6 - │ ├─Error else:test_expect_test:2552 - │ │ └─"test/test_expect_test.ml":2552:64 - │ └─Error fun:test_expect_test:2555 - │ └─"test/test_expect_test.ml":2555:11 + │ ├─"test/test_expect_test.ml":2553:6 + │ ├─Error else:test_expect_test:2553 + │ │ └─"test/test_expect_test.ml":2553:64 + │ └─Error fun:test_expect_test:2556 + │ └─"test/test_expect_test.ml":2556:11 ├─Error - │ ├─"test/test_expect_test.ml":2552:6 - │ ├─Error else:test_expect_test:2552 - │ │ └─"test/test_expect_test.ml":2552:64 - │ └─Error fun:test_expect_test:2555 - │ └─"test/test_expect_test.ml":2555:11 + │ ├─"test/test_expect_test.ml":2553:6 + │ ├─Error else:test_expect_test:2553 + │ │ └─"test/test_expect_test.ml":2553:64 + │ └─Error fun:test_expect_test:2556 + │ └─"test/test_expect_test.ml":2556:11 └─Error - ├─"test/test_expect_test.ml":2552:6 - ├─Error else:test_expect_test:2552 - │ └─"test/test_expect_test.ml":2552:64 - └─Error fun:test_expect_test:2555 - └─"test/test_expect_test.ml":2555:11 + ├─"test/test_expect_test.ml":2553:6 + ├─Error else:test_expect_test:2553 + │ └─"test/test_expect_test.ml":2553:64 + └─Error fun:test_expect_test:2556 + └─"test/test_expect_test.ml":2556:11 21 BEGIN DEBUG SESSION Warning result = 21 - ├─"test/test_expect_test.ml":2547:27 - └─Warning while:test_expect_test:2550 - ├─"test/test_expect_test.ml":2550:4 + ├─"test/test_expect_test.ml":2548:27 + └─Warning while:test_expect_test:2551 + ├─"test/test_expect_test.ml":2551:4 ├─Warning - │ ├─"test/test_expect_test.ml":2552:6 - │ ├─Warning then:test_expect_test:2552 - │ │ ├─"test/test_expect_test.ml":2552:21 + │ ├─"test/test_expect_test.ml":2553:6 + │ ├─Warning then:test_expect_test:2553 + │ │ ├─"test/test_expect_test.ml":2553:21 │ │ └─(ERROR: 1 i= 0) │ ├─(WARNING: 2 i= 1) - │ └─Warning fun:test_expect_test:2555 - │ └─"test/test_expect_test.ml":2555:11 + │ └─Warning fun:test_expect_test:2556 + │ └─"test/test_expect_test.ml":2556:11 ├─Warning - │ ├─"test/test_expect_test.ml":2552:6 - │ ├─Warning then:test_expect_test:2552 - │ │ ├─"test/test_expect_test.ml":2552:21 + │ ├─"test/test_expect_test.ml":2553:6 + │ ├─Warning then:test_expect_test:2553 + │ │ ├─"test/test_expect_test.ml":2553:21 │ │ └─(ERROR: 1 i= 1) │ ├─(WARNING: 2 i= 2) - │ └─Warning fun:test_expect_test:2555 - │ └─"test/test_expect_test.ml":2555:11 + │ └─Warning fun:test_expect_test:2556 + │ └─"test/test_expect_test.ml":2556:11 ├─Warning - │ ├─"test/test_expect_test.ml":2552:6 - │ ├─Warning else:test_expect_test:2552 - │ │ └─"test/test_expect_test.ml":2552:64 + │ ├─"test/test_expect_test.ml":2553:6 + │ ├─Warning else:test_expect_test:2553 + │ │ └─"test/test_expect_test.ml":2553:64 │ ├─(WARNING: 2 i= 3) - │ └─Warning fun:test_expect_test:2555 - │ └─"test/test_expect_test.ml":2555:11 + │ └─Warning fun:test_expect_test:2556 + │ └─"test/test_expect_test.ml":2556:11 ├─Warning - │ ├─"test/test_expect_test.ml":2552:6 - │ ├─Warning else:test_expect_test:2552 - │ │ └─"test/test_expect_test.ml":2552:64 + │ ├─"test/test_expect_test.ml":2553:6 + │ ├─Warning else:test_expect_test:2553 + │ │ └─"test/test_expect_test.ml":2553:64 │ ├─(WARNING: 2 i= 4) - │ └─Warning fun:test_expect_test:2555 - │ └─"test/test_expect_test.ml":2555:11 + │ └─Warning fun:test_expect_test:2556 + │ └─"test/test_expect_test.ml":2556:11 ├─Warning - │ ├─"test/test_expect_test.ml":2552:6 - │ ├─Warning else:test_expect_test:2552 - │ │ └─"test/test_expect_test.ml":2552:64 + │ ├─"test/test_expect_test.ml":2553:6 + │ ├─Warning else:test_expect_test:2553 + │ │ └─"test/test_expect_test.ml":2553:64 │ ├─(WARNING: 2 i= 5) - │ └─Warning fun:test_expect_test:2555 - │ └─"test/test_expect_test.ml":2555:11 + │ └─Warning fun:test_expect_test:2556 + │ └─"test/test_expect_test.ml":2556:11 └─Warning - ├─"test/test_expect_test.ml":2552:6 - ├─Warning else:test_expect_test:2552 - │ └─"test/test_expect_test.ml":2552:64 + ├─"test/test_expect_test.ml":2553:6 + ├─Warning else:test_expect_test:2553 + │ └─"test/test_expect_test.ml":2553:64 ├─(WARNING: 2 i= 6) - └─Warning fun:test_expect_test:2555 - └─"test/test_expect_test.ml":2555:11 + └─Warning fun:test_expect_test:2556 + └─"test/test_expect_test.ml":2556:11 21 |}] @@ -2780,94 +2781,92 @@ let%expect_test "%log compile time log levels while-loop" = {| BEGIN DEBUG SESSION everything = 21 - ├─"test/test_expect_test.ml":2728:28 - └─while:test_expect_test:2733 - ├─"test/test_expect_test.ml":2733:6 + ├─"test/test_expect_test.ml":2729:28 + └─while:test_expect_test:2734 + ├─"test/test_expect_test.ml":2734:6 ├─ - │ ├─"test/test_expect_test.ml":2735:8 - │ ├─then:test_expect_test:2735 - │ │ ├─"test/test_expect_test.ml":2735:23 + │ ├─"test/test_expect_test.ml":2736:8 + │ ├─then:test_expect_test:2736 + │ │ ├─"test/test_expect_test.ml":2736:23 │ │ └─(ERROR: 1 i= 0) │ ├─(WARNING: 2 i= 1) - │ ├─fun:test_expect_test:2738 - │ │ └─"test/test_expect_test.ml":2738:13 + │ ├─fun:test_expect_test:2739 + │ │ └─"test/test_expect_test.ml":2739:13 │ └─(INFO: 3 j= 1) ├─ - │ ├─"test/test_expect_test.ml":2735:8 - │ ├─then:test_expect_test:2735 - │ │ ├─"test/test_expect_test.ml":2735:23 + │ ├─"test/test_expect_test.ml":2736:8 + │ ├─then:test_expect_test:2736 + │ │ ├─"test/test_expect_test.ml":2736:23 │ │ └─(ERROR: 1 i= 1) │ ├─(WARNING: 2 i= 2) - │ ├─fun:test_expect_test:2738 - │ │ └─"test/test_expect_test.ml":2738:13 + │ ├─fun:test_expect_test:2739 + │ │ └─"test/test_expect_test.ml":2739:13 │ └─(INFO: 3 j= 3) ├─ - │ ├─"test/test_expect_test.ml":2735:8 - │ ├─else:test_expect_test:2735 - │ │ └─"test/test_expect_test.ml":2735:66 + │ ├─"test/test_expect_test.ml":2736:8 + │ ├─else:test_expect_test:2736 + │ │ └─"test/test_expect_test.ml":2736:66 │ ├─(WARNING: 2 i= 3) - │ ├─fun:test_expect_test:2738 - │ │ └─"test/test_expect_test.ml":2738:13 + │ ├─fun:test_expect_test:2739 + │ │ └─"test/test_expect_test.ml":2739:13 │ └─(INFO: 3 j= 6) ├─ - │ ├─"test/test_expect_test.ml":2735:8 - │ ├─else:test_expect_test:2735 - │ │ └─"test/test_expect_test.ml":2735:66 + │ ├─"test/test_expect_test.ml":2736:8 + │ ├─else:test_expect_test:2736 + │ │ └─"test/test_expect_test.ml":2736:66 │ ├─(WARNING: 2 i= 4) - │ ├─fun:test_expect_test:2738 - │ │ └─"test/test_expect_test.ml":2738:13 + │ ├─fun:test_expect_test:2739 + │ │ └─"test/test_expect_test.ml":2739:13 │ └─(INFO: 3 j= 10) ├─ - │ ├─"test/test_expect_test.ml":2735:8 - │ ├─else:test_expect_test:2735 - │ │ └─"test/test_expect_test.ml":2735:66 + │ ├─"test/test_expect_test.ml":2736:8 + │ ├─else:test_expect_test:2736 + │ │ └─"test/test_expect_test.ml":2736:66 │ ├─(WARNING: 2 i= 5) - │ ├─fun:test_expect_test:2738 - │ │ └─"test/test_expect_test.ml":2738:13 + │ ├─fun:test_expect_test:2739 + │ │ └─"test/test_expect_test.ml":2739:13 │ └─(INFO: 3 j= 15) └─ - ├─"test/test_expect_test.ml":2735:8 - ├─else:test_expect_test:2735 - │ └─"test/test_expect_test.ml":2735:66 + ├─"test/test_expect_test.ml":2736:8 + ├─else:test_expect_test:2736 + │ └─"test/test_expect_test.ml":2736:66 ├─(WARNING: 2 i= 6) - ├─fun:test_expect_test:2738 - │ └─"test/test_expect_test.ml":2738:13 + ├─fun:test_expect_test:2739 + │ └─"test/test_expect_test.ml":2739:13 └─(INFO: 3 j= 21) 21 nothing = 21 - └─"test/test_expect_test.ml":2743:25 + └─"test/test_expect_test.ml":2744:25 21 warning = 21 - ├─"test/test_expect_test.ml":2759:25 - └─while:test_expect_test:2764 - ├─"test/test_expect_test.ml":2764:6 + ├─"test/test_expect_test.ml":2760:25 + └─while:test_expect_test:2765 + ├─"test/test_expect_test.ml":2765:6 ├─ - │ ├─"test/test_expect_test.ml":2766:8 + │ ├─"test/test_expect_test.ml":2767:8 │ ├─(ERROR: 1 i= 0) │ └─(WARNING: 2 i= 1) ├─ - │ ├─"test/test_expect_test.ml":2766:8 + │ ├─"test/test_expect_test.ml":2767:8 │ ├─(ERROR: 1 i= 1) │ └─(WARNING: 2 i= 2) ├─ - │ ├─"test/test_expect_test.ml":2766:8 + │ ├─"test/test_expect_test.ml":2767:8 │ └─(WARNING: 2 i= 3) ├─ - │ ├─"test/test_expect_test.ml":2766:8 + │ ├─"test/test_expect_test.ml":2767:8 │ └─(WARNING: 2 i= 4) ├─ - │ ├─"test/test_expect_test.ml":2766:8 + │ ├─"test/test_expect_test.ml":2767:8 │ └─(WARNING: 2 i= 5) └─ - ├─"test/test_expect_test.ml":2766:8 + ├─"test/test_expect_test.ml":2767:8 └─(WARNING: 2 i= 6) 21 |}] let%expect_test "%log compile time log levels runtime-passing while-loop" = - let module Debug_runtime = - (val Minidebug_runtime.debug ~global_prefix:"TOPLEVEL" ()) - in + let module Debug_runtime = (val Minidebug_runtime.debug ~global_prefix:"TOPLEVEL" ()) in (* Compile-time log level restrictions cannot be undone, since the logging code is not generated. *) let%debug_sexp () = @@ -2888,8 +2887,7 @@ let%expect_test "%log compile time log levels runtime-passing while-loop" = in print_endline @@ Int.to_string @@ nothing - Minidebug_runtime.( - forget_printbox @@ debug ~global_prefix:"nothing" ()) + Minidebug_runtime.(forget_printbox @@ debug ~global_prefix:"nothing" ()) ()]); [%log_level 2; @@ -2910,8 +2908,7 @@ let%expect_test "%log compile time log levels runtime-passing while-loop" = in print_endline @@ Int.to_string @@ warning - Minidebug_runtime.( - forget_printbox @@ debug ~global_prefix:"warning" ()) + Minidebug_runtime.(forget_printbox @@ debug ~global_prefix:"warning" ()) ()] in [%expect @@ -2923,32 +2920,32 @@ let%expect_test "%log compile time log levels runtime-passing while-loop" = BEGIN DEBUG SESSION warning warning = 21 - ├─"test/test_expect_test.ml":2896:32 - └─warning while:test_expect_test:2899 - ├─"test/test_expect_test.ml":2899:8 + ├─"test/test_expect_test.ml":2894:32 + └─warning while:test_expect_test:2897 + ├─"test/test_expect_test.ml":2897:8 ├─warning - │ ├─"test/test_expect_test.ml":2901:10 + │ ├─"test/test_expect_test.ml":2899:10 │ ├─(ERROR: 1 i= 0) │ └─(WARNING: 2 i= 1) ├─warning - │ ├─"test/test_expect_test.ml":2901:10 + │ ├─"test/test_expect_test.ml":2899:10 │ ├─(ERROR: 1 i= 1) │ └─(WARNING: 2 i= 2) ├─warning - │ ├─"test/test_expect_test.ml":2901:10 + │ ├─"test/test_expect_test.ml":2899:10 │ └─(WARNING: 2 i= 3) ├─warning - │ ├─"test/test_expect_test.ml":2901:10 + │ ├─"test/test_expect_test.ml":2899:10 │ └─(WARNING: 2 i= 4) ├─warning - │ ├─"test/test_expect_test.ml":2901:10 + │ ├─"test/test_expect_test.ml":2899:10 │ └─(WARNING: 2 i= 5) └─warning - ├─"test/test_expect_test.ml":2901:10 + ├─"test/test_expect_test.ml":2899:10 └─(WARNING: 2 i= 6) 21 TOPLEVEL () - └─"test/test_expect_test.ml":2873:17 + └─"test/test_expect_test.ml":2872:17 |}] let%expect_test "%log track while-loop result" = @@ -2971,36 +2968,36 @@ let%expect_test "%log track while-loop result" = {| BEGIN DEBUG SESSION 21 - ├─"test/test_expect_test.ml":2956:17 - └─while:test_expect_test:2959 - ├─"test/test_expect_test.ml":2959:4 + ├─"test/test_expect_test.ml":2953:17 + └─while:test_expect_test:2956 + ├─"test/test_expect_test.ml":2956:4 ├─(3 j= 1) - │ ├─"test/test_expect_test.ml":2960:6 + │ ├─"test/test_expect_test.ml":2957:6 │ ├─ │ ├─(1 i= 0) │ └─(2 i= 1) ├─(3 j= 3) - │ ├─"test/test_expect_test.ml":2960:6 + │ ├─"test/test_expect_test.ml":2957:6 │ ├─ │ ├─(1 i= 1) │ └─(2 i= 2) ├─(3 j= 6) - │ ├─"test/test_expect_test.ml":2960:6 + │ ├─"test/test_expect_test.ml":2957:6 │ ├─ │ ├─(1 i= 2) │ └─(2 i= 3) ├─(3 j= 10) - │ ├─"test/test_expect_test.ml":2960:6 + │ ├─"test/test_expect_test.ml":2957:6 │ ├─ │ ├─(1 i= 3) │ └─(2 i= 4) ├─(3 j= 15) - │ ├─"test/test_expect_test.ml":2960:6 + │ ├─"test/test_expect_test.ml":2957:6 │ ├─ │ ├─(1 i= 4) │ └─(2 i= 5) └─(3 j= 21) - ├─"test/test_expect_test.ml":2960:6 + ├─"test/test_expect_test.ml":2957:6 ├─ ├─(1 i= 5) └─(2 i= 6) @@ -3008,7 +3005,9 @@ let%expect_test "%log track while-loop result" = |}] let%expect_test "%log without scope" = - let module Debug_runtime = (val Minidebug_runtime.debug ~values_first_mode:false ~print_entry_ids:true ()) in + let module Debug_runtime = + (val Minidebug_runtime.debug ~values_first_mode:false ~print_entry_ids:true ()) + in let i = 3 in let pi = 3.14 in let l = [ 1; 2; 3 ] in @@ -3029,7 +3028,7 @@ let%expect_test "%log without scope" = [%expect {| BEGIN DEBUG SESSION - "test/test_expect_test.ml":3019:17: _bar {#1} + "test/test_expect_test.ml":3018:17: _bar {#1} └─_bar = () {orphaned from #1} └─("This is like", 3, "or", 3.14, "above") @@ -3044,9 +3043,7 @@ let%expect_test "%log without scope" = |}] let%expect_test "%log without scope values_first_mode" = - let module Debug_runtime = - (val Minidebug_runtime.debug ~print_entry_ids:true ()) - in + let module Debug_runtime = (val Minidebug_runtime.debug ~print_entry_ids:true ()) in let i = 3 in let pi = 3.14 in let l = [ 1; 2; 3 ] in @@ -3065,7 +3062,7 @@ let%expect_test "%log without scope values_first_mode" = {| BEGIN DEBUG SESSION _bar = () - └─"test/test_expect_test.ml":3054:17 {#1} + └─"test/test_expect_test.ml":3051:17 {#1} ("This is like", 3, "or", 3.14, "above") └─{orphaned from #1} ("tau =", 6.28) @@ -3079,9 +3076,7 @@ let%expect_test "%log without scope values_first_mode" = |}] let%expect_test "%log with print_entry_ids, mixed up scopes" = - let module Debug_runtime = - (val Minidebug_runtime.debug ~print_entry_ids:true ()) - in + let module Debug_runtime = (val Minidebug_runtime.debug ~print_entry_ids:true ()) in let i = 3 in let pi = 3.14 in let l = [ 1; 2; 3 ] in @@ -3113,13 +3108,13 @@ let%expect_test "%log with print_entry_ids, mixed up scopes" = {| BEGIN DEBUG SESSION bar = () - └─"test/test_expect_test.ml":3091:21 {#1} + └─"test/test_expect_test.ml":3086:21 {#1} baz = () - └─"test/test_expect_test.ml":3098:21 {#2} + └─"test/test_expect_test.ml":3093:21 {#2} bar = () - └─"test/test_expect_test.ml":3091:21 {#3} + └─"test/test_expect_test.ml":3086:21 {#3} _foobar = () - ├─"test/test_expect_test.ml":3110:17 {#4} + ├─"test/test_expect_test.ml":3105:17 {#4} ├─("This is like", 3, "or", 3.14, "above") ├─("tau =", 6.28) ├─[3; 1; 2; 3] @@ -3139,8 +3134,7 @@ let%expect_test "%log with print_entry_ids, mixed up scopes" = let%expect_test "%log with print_entry_ids, verbose_entry_ids in HTML, values_first_mode" = let module Debug_runtime = - (val Minidebug_runtime.debug ~print_entry_ids:true ~verbose_entry_ids:true - ()) + (val Minidebug_runtime.debug ~print_entry_ids:true ~verbose_entry_ids:true ()) in Debug_runtime.config.backend <- `Html PrintBox_html.Config.default; let i = 3 in @@ -3173,13 +3167,13 @@ let%expect_test "%log with print_entry_ids, verbose_entry_ids in HTML, values_fi [%expect {| BEGIN DEBUG SESSION - 
{#1} bar = ()
  • "test/test_expect_test.ml":3152:21
+ 
{#1} bar = ()
  • "test/test_expect_test.ml":3146:21
- 
{#2} baz = ()
  • "test/test_expect_test.ml":3159:21
+ 
{#2} baz = ()
  • "test/test_expect_test.ml":3153:21
- 
{#3} bar = ()
  • "test/test_expect_test.ml":3152:21
+ 
{#3} bar = ()
  • "test/test_expect_test.ml":3146:21
- 
{#4} _foobar = ()
  • "test/test_expect_test.ml":3171:17
  • {#3} ("This is like", 3, "or", 3.14, "above")
  • {#3} ("tau =", 6.28)
  • {#2} [3; 1; 2; 3]
  • {#2} [3; 1; 2; 3]
  • {#1} ("This is like", 3, "or", 3.14, "above")
  • {#1} ("tau =", 6.28)
+ 
{#4} _foobar = ()
  • "test/test_expect_test.ml":3165:17
  • {#3} ("This is like", 3, "or", 3.14, "above")
  • {#3} ("tau =", 6.28)
  • {#2} [3; 1; 2; 3]
  • {#2} [3; 1; 2; 3]
  • {#1} ("This is like", 3, "or", 3.14, "above")
  • {#1} ("tau =", 6.28)
{#2} [3; 1; 2; 3]
  • {orphaned from #2}
@@ -3214,7 +3208,7 @@ let%expect_test "%diagn_show ignores type annots" = 336 109 toplevel - ├─"test/test_expect_test.ml":3195:17 + ├─"test/test_expect_test.ml":3189:17 ├─("for bar, b-3", 42) └─("for baz, f squared", 64) |}] @@ -3240,11 +3234,11 @@ let%expect_test "%diagn_show ignores non-empty bindings" = {| BEGIN DEBUG SESSION bar - ├─"test/test_expect_test.ml":3224:21 + ├─"test/test_expect_test.ml":3218:21 └─("for bar, b-3", 42) 336 baz - ├─"test/test_expect_test.ml":3231:21 + ├─"test/test_expect_test.ml":3225:21 └─("foo baz, f squared", 49) 91 |}] @@ -3303,16 +3297,16 @@ let%expect_test "%debug_show log level compile time" = 336 109 () - ├─"test/test_expect_test.ml":3273:18 + ├─"test/test_expect_test.ml":3267:18 ├─bar - │ ├─"test/test_expect_test.ml":3282:14 + │ ├─"test/test_expect_test.ml":3276:14 │ └─("for bar, b-3", 42) └─baz = 109 - ├─"test/test_expect_test.ml":3290:26 + ├─"test/test_expect_test.ml":3284:26 ├─first = 7 ├─second = 42 ├─{first; second} - │ ├─"test/test_expect_test.ml":3291:12 + │ ├─"test/test_expect_test.ml":3285:12 │ └─ │ ├─first = 8 │ └─second = 45 @@ -3320,9 +3314,7 @@ let%expect_test "%debug_show log level compile time" = |}] let%expect_test "%debug_show log level runtime" = - let module Debug_runtime = - (val Minidebug_runtime.debug ~log_level:2 ()) - in + let module Debug_runtime = (val Minidebug_runtime.debug ~log_level:2 ()) in let%debug3_show () = let foo { first : int; second : int } : int = let { first : int = a; second : int = b } = { first; second = second + 3 } in @@ -3355,11 +3347,11 @@ let%expect_test "%debug_show log level runtime" = └─{orphaned from #5} 336 baz = 109 - ├─"test/test_expect_test.ml":3341:24 + ├─"test/test_expect_test.ml":3333:24 ├─first = 7 ├─second = 42 ├─{first; second} - │ ├─"test/test_expect_test.ml":3342:10 + │ ├─"test/test_expect_test.ml":3334:10 │ └─ │ ├─first = 8 │ └─second = 45 @@ -3379,82 +3371,80 @@ let%expect_test "%debug_show PrintBox snapshot" = {| BEGIN DEBUG SESSION loop_highlight - ├─"test/test_expect_test.ml":3372:36 + ├─"test/test_expect_test.ml":3364:36 ├─x = 7 └─z = 3 - └─"test/test_expect_test.ml":3373:8 + └─"test/test_expect_test.ml":3365:8 loop_highlight - ├─"test/test_expect_test.ml":3372:36 + ├─"test/test_expect_test.ml":3364:36 ├─x = 7 ├─z = 3 - │ └─"test/test_expect_test.ml":3373:8 + │ └─"test/test_expect_test.ml":3365:8 └─loop_highlight - ├─"test/test_expect_test.ml":3372:36 + ├─"test/test_expect_test.ml":3364:36 ├─x = 6 ├─z = 2 - │ └─"test/test_expect_test.ml":3373:8 + │ └─"test/test_expect_test.ml":3365:8 └─loop_highlight - ├─"test/test_expect_test.ml":3372:36 + ├─"test/test_expect_test.ml":3364:36 ├─x = 5 ├─z = 2 - │ └─"test/test_expect_test.ml":3373:8 + │ └─"test/test_expect_test.ml":3365:8 └─loop_highlight - ├─"test/test_expect_test.ml":3372:36 + ├─"test/test_expect_test.ml":3364:36 ├─x = 4 ├─z = 1 - │ └─"test/test_expect_test.ml":3373:8 + │ └─"test/test_expect_test.ml":3365:8 └─loop_highlight - ├─"test/test_expect_test.ml":3372:36 + ├─"test/test_expect_test.ml":3364:36 ├─x = 3 └─z = 1 - └─"test/test_expect_test.ml":3373:8 + └─"test/test_expect_test.ml":3365:8 loop_highlight = 9 - ├─"test/test_expect_test.ml":3372:36 + ├─"test/test_expect_test.ml":3364:36 ├─x = 7 ├─z = 3 - │ └─"test/test_expect_test.ml":3373:8 + │ └─"test/test_expect_test.ml":3365:8 └─loop_highlight = 6 - ├─"test/test_expect_test.ml":3372:36 + ├─"test/test_expect_test.ml":3364:36 ├─x = 6 ├─z = 2 - │ └─"test/test_expect_test.ml":3373:8 + │ └─"test/test_expect_test.ml":3365:8 └─loop_highlight = 4 - ├─"test/test_expect_test.ml":3372:36 + ├─"test/test_expect_test.ml":3364:36 ├─x = 5 ├─z = 2 - │ └─"test/test_expect_test.ml":3373:8 + │ └─"test/test_expect_test.ml":3365:8 └─loop_highlight = 2 - ├─"test/test_expect_test.ml":3372:36 + ├─"test/test_expect_test.ml":3364:36 ├─x = 4 ├─z = 1 - │ └─"test/test_expect_test.ml":3373:8 + │ └─"test/test_expect_test.ml":3365:8 └─loop_highlight = 1 - ├─"test/test_expect_test.ml":3372:36 + ├─"test/test_expect_test.ml":3364:36 ├─x = 3 ├─z = 1 - │ └─"test/test_expect_test.ml":3373:8 + │ └─"test/test_expect_test.ml":3365:8 └─loop_highlight = 0 - ├─"test/test_expect_test.ml":3372:36 + ├─"test/test_expect_test.ml":3364:36 ├─x = 2 ├─z = 0 - │ └─"test/test_expect_test.ml":3373:8 + │ └─"test/test_expect_test.ml":3365:8 └─loop_highlight = 0 - ├─"test/test_expect_test.ml":3372:36 + ├─"test/test_expect_test.ml":3364:36 ├─x = 1 ├─z = 0 - │ └─"test/test_expect_test.ml":3373:8 + │ └─"test/test_expect_test.ml":3365:8 └─loop_highlight = 0 - ├─"test/test_expect_test.ml":3372:36 + ├─"test/test_expect_test.ml":3364:36 ├─x = 0 └─z = 0 - └─"test/test_expect_test.ml":3373:8 + └─"test/test_expect_test.ml":3365:8 9 |}] let%expect_test "%track_show don't show unannotated non-function bindings" = - let module Debug_runtime = - (val Minidebug_runtime.debug ~log_level:3 ()) - in + let module Debug_runtime = (val Minidebug_runtime.debug ~log_level:3 ()) in let result = [%track_show let%ppx_minidebug_noop_for_testing point = @@ -3489,7 +3479,7 @@ let%expect_test "%log_printbox" = {| BEGIN DEBUG SESSION foo = () - ├─"test/test_expect_test.ml":3472:21 + ├─"test/test_expect_test.ml":3462:21 ├─0/0│0/1│0/2│0/3│0/4 │ ───┼───┼───┼───┼─── │ 1/0│1/1│1/2│1/3│1/4 @@ -3554,7 +3544,7 @@ let%expect_test "%log_printbox flushing" = [%expect {| BEGIN DEBUG SESSION - foo begin "test/test_expect_test.ml":3534:21: + foo begin "test/test_expect_test.ml":3524:21: 0/0│0/1│0/2│0/3│0/4 ───┼───┼───┼───┼─── 1/0│1/1│1/2│1/3│1/4 @@ -3579,7 +3569,7 @@ let%expect_test "%log_printbox flushing" = 4/0 4/1 4/2 4/3 4/4 - bar begin "test/test_expect_test.ml":3543:12: + bar begin "test/test_expect_test.ml":3533:12: "Now with a frame:" ┌───┬───┬───┬───┬───┐ │0/0│0/1│0/2│0/3│0/4│ @@ -3638,23 +3628,23 @@ let%expect_test "%log_entry" = in [%expect {| - BEGIN DEBUG SESSION - "test/test_expect_test.ml":3603:17: _logging_logic - ├─"preamble" - ├─header 1 - │ ├─"log 1" - │ ├─nested header - │ │ └─"log 2" - │ └─"log 3" - ├─header 2 - │ └─"log 4" - └─"postscript" - |}] + BEGIN DEBUG SESSION + "test/test_expect_test.ml":3593:17: _logging_logic + ├─"preamble" + ├─header 1 + │ ├─"log 1" + │ ├─nested header + │ │ └─"log 2" + │ └─"log 3" + ├─header 2 + │ └─"log 4" + └─"postscript" + |}] let%expect_test "flame graph" = let module Debug_runtime = - (val Minidebug_runtime.debug_file ~values_first_mode:false ~hyperlink:"../" ~toc_specific_hyperlink:"./" - ~toc_flame_graph:true + (val Minidebug_runtime.debug_file ~values_first_mode:false ~hyperlink:"../" + ~toc_specific_hyperlink:"./" ~toc_flame_graph:true ~backend:(`Html PrintBox_html.Config.(tree_summary true default)) "test_expect_test_flame_graph") in @@ -3679,36 +3669,36 @@ let%expect_test "flame graph" = print_endline output; [%expect {| -
+
-
+
-
+
-
+
-
+
-
-
+
-
+
-
-
+
-
+
-
+
-
+
-
-
+
-
+
-
+
- @@ -3757,8 +3747,9 @@ let%expect_test "flame graph" = let%expect_test "flame graph reduced ToC" = let module Debug_runtime = - (val Minidebug_runtime.debug_file ~values_first_mode:false ~hyperlink:"../" ~toc_specific_hyperlink:"./" - ~toc_flame_graph:true ~toc_entry:(Minidebug_runtime.Minimal_depth 1) + (val Minidebug_runtime.debug_file ~values_first_mode:false ~hyperlink:"../" + ~toc_specific_hyperlink:"./" ~toc_flame_graph:true + ~toc_entry:(Minidebug_runtime.Minimal_depth 1) ~backend:(`Html PrintBox_html.Config.(tree_summary true default)) "test_expect_test_flame_graph") in @@ -3783,31 +3774,31 @@ let%expect_test "flame graph reduced ToC" = print_endline output; [%expect {| -
+
-
+
-
+
-
+
-
+
-
+
-
-
+
-
+
-
+
-
+
-
+
-
+
- @@ -3865,10 +3856,10 @@ let%expect_test "%debug_show skip module bindings" = {| BEGIN DEBUG SESSION bar = 15 - ├─"test/test_expect_test.ml":3853:21 + ├─"test/test_expect_test.ml":3844:21 ├─x = 7 └─y = 8 - └─"test/test_expect_test.ml":3855:8 + └─"test/test_expect_test.ml":3846:8 15 |}] @@ -3894,52 +3885,52 @@ let%expect_test "%track_l_show procedure runtime passing" = [%expect {| BEGIN DEBUG SESSION foo-1 - foo-1 foo begin "test/test_expect_test.ml":3880:23: + foo-1 foo begin "test/test_expect_test.ml":3871:23: "inside foo" foo-1 foo end BEGIN DEBUG SESSION foo-1 - foo-1 () begin "test/test_expect_test.ml":3886:8: + foo-1 () begin "test/test_expect_test.ml":3877:8: "inside bar" foo-1 () end BEGIN DEBUG SESSION foo-2 - foo-2 foo begin "test/test_expect_test.ml":3880:23: + foo-2 foo begin "test/test_expect_test.ml":3871:23: "inside foo" foo-2 foo end BEGIN DEBUG SESSION foo-2 - foo-2 () begin "test/test_expect_test.ml":3886:8: + foo-2 () begin "test/test_expect_test.ml":3877:8: "inside bar" foo-2 () end BEGIN DEBUG SESSION foo-3 - foo-3 foo begin "test/test_expect_test.ml":3880:23: + foo-3 foo begin "test/test_expect_test.ml":3871:23: "inside foo" foo-3 foo end BEGIN DEBUG SESSION foo-3 - foo-3 () begin "test/test_expect_test.ml":3886:8: + foo-3 () begin "test/test_expect_test.ml":3877:8: "inside bar" foo-3 () end BEGIN DEBUG SESSION foo-4 - foo-4 foo begin "test/test_expect_test.ml":3880:23: + foo-4 foo begin "test/test_expect_test.ml":3871:23: "inside foo" foo-4 foo end BEGIN DEBUG SESSION foo-4 - foo-4 () begin "test/test_expect_test.ml":3886:8: + foo-4 () begin "test/test_expect_test.ml":3877:8: "inside bar" foo-4 () end BEGIN DEBUG SESSION foo-5 - foo-5 foo begin "test/test_expect_test.ml":3880:23: + foo-5 foo begin "test/test_expect_test.ml":3871:23: "inside foo" foo-5 foo end BEGIN DEBUG SESSION foo-5 - foo-5 () begin "test/test_expect_test.ml":3886:8: + foo-5 () begin "test/test_expect_test.ml":3877:8: "inside bar" foo-5 () end |}] @@ -3959,7 +3950,9 @@ let%expect_test "%track_rt_show expression runtime passing" = [%log_block "test C"; [%log "line C"]]] - Minidebug_runtime.(forget_printbox @@ debug ~values_first_mode:false ~global_prefix:"t3" ~log_level:0 ()); + Minidebug_runtime.( + forget_printbox + @@ debug ~values_first_mode:false ~global_prefix:"t3" ~log_level:0 ()); [%expect {| BEGIN DEBUG SESSION t1 @@ -3976,9 +3969,7 @@ let%expect_test "%track_rt_show expression runtime passing" = let%expect_test "%debug_show tuples values_first_mode highlighted" = let module Debug_runtime = - (val Minidebug_runtime.debug - ~highlight_terms:Re.(alt [ str "339"; str "8" ]) - ()) + (val Minidebug_runtime.debug ~highlight_terms:Re.(alt [ str "339"; str "8" ]) ()) in let%debug_show bar ((first : int), (second : int)) : int = let y : int = first + 1 in @@ -3999,18 +3990,18 @@ let%expect_test "%debug_show tuples values_first_mode highlighted" = ┌─────────┐ │bar = 336│ ├─────────┘ - ├─"test/test_expect_test.ml":3983:21 + ├─"test/test_expect_test.ml":3974:21 ├─first = 7 ├─second = 42 └─┬─────┐ │y = 8│ ├─────┘ - └─"test/test_expect_test.ml":3984:8 + └─"test/test_expect_test.ml":3975:8 336 ┌────────┐ │(r1, r2)│ ├────────┘ - ├─"test/test_expect_test.ml":3993:17 + ├─"test/test_expect_test.ml":3984:17 ├─┬─────────┐ │ ││ │ ├─────────┘ @@ -4021,13 +4012,13 @@ let%expect_test "%debug_show tuples values_first_mode highlighted" = └─┬────────────────┐ │baz = (339, 109)│ ├────────────────┘ - ├─"test/test_expect_test.ml":3988:21 + ├─"test/test_expect_test.ml":3979:21 ├─first = 7 ├─second = 42 ├─┬──────┐ │ │(y, z)│ │ ├──────┘ - │ ├─"test/test_expect_test.ml":3989:8 + │ ├─"test/test_expect_test.ml":3980:8 │ └─┬────────┐ │ ││ │ ├────────┘ @@ -4038,7 +4029,7 @@ let%expect_test "%debug_show tuples values_first_mode highlighted" = └─┬──────┐ │(a, b)│ ├──────┘ - ├─"test/test_expect_test.ml":3990:8 + ├─"test/test_expect_test.ml":3981:8 └─┬────────┐ ││ ├────────┘ @@ -4069,35 +4060,32 @@ let%expect_test "%logN_block runtime log levels" = @@ Int.to_string (result Minidebug_runtime.( - forget_printbox @@ debug ~values_first_mode:false ~global_prefix:"for=2,with=default" ()) + forget_printbox + @@ debug ~values_first_mode:false ~global_prefix:"for=2,with=default" ()) ~for_log_level:2); print_endline @@ Int.to_string (result Minidebug_runtime.( - forget_printbox - @@ debug ~log_level:0 ~global_prefix:"for=1,with=0" ()) + forget_printbox @@ debug ~log_level:0 ~global_prefix:"for=1,with=0" ()) ~for_log_level:1); print_endline @@ Int.to_string (result Minidebug_runtime.( - forget_printbox - @@ debug ~log_level:1 ~global_prefix:"for=2,with=1" ()) + forget_printbox @@ debug ~log_level:1 ~global_prefix:"for=2,with=1" ()) ~for_log_level:2); print_endline @@ Int.to_string (result Minidebug_runtime.( - forget_printbox - @@ debug ~log_level:2 ~global_prefix:"for=1,with=2" ()) + forget_printbox @@ debug ~log_level:2 ~global_prefix:"for=1,with=2" ()) ~for_log_level:1); print_endline @@ Int.to_string (result Minidebug_runtime.( - forget_printbox - @@ debug ~log_level:3 ~global_prefix:"for=3,with=3" ()) + forget_printbox @@ debug ~log_level:3 ~global_prefix:"for=3,with=3" ()) ~for_log_level:3); (* Unlike with other constructs, INFO should not be printed in "for=4,with=3", because log_block filters out the whole body by the log level. *) @@ -4105,51 +4093,50 @@ let%expect_test "%logN_block runtime log levels" = @@ Int.to_string (result Minidebug_runtime.( - forget_printbox - @@ debug ~log_level:3 ~global_prefix:"for=4,with=3" ()) + forget_printbox @@ debug ~log_level:3 ~global_prefix:"for=4,with=3" ()) ~for_log_level:4); [%expect {| BEGIN DEBUG SESSION for=2,with=default - "test/test_expect_test.ml":4054:27: for=2,with=default result - ├─"test/test_expect_test.ml":4057:4: for=2,with=default while:test_expect_test:4057 - │ ├─"test/test_expect_test.ml":4058:6: for=2,with=default + "test/test_expect_test.ml":4045:27: for=2,with=default result + ├─"test/test_expect_test.ml":4048:4: for=2,with=default while:test_expect_test:4048 + │ ├─"test/test_expect_test.ml":4049:6: for=2,with=default │ │ └─for=2,with=default i=1 - │ │ ├─"test/test_expect_test.ml":4061:23: for=2,with=default then:test_expect_test:4061 + │ │ ├─"test/test_expect_test.ml":4052:23: for=2,with=default then:test_expect_test:4052 │ │ │ └─(ERROR: 1 i= 1) │ │ ├─(WARNING: 2 i= 1) - │ │ ├─"test/test_expect_test.ml":4063:13: for=2,with=default fun:test_expect_test:4063 + │ │ ├─"test/test_expect_test.ml":4054:13: for=2,with=default fun:test_expect_test:4054 │ │ └─(INFO: 3 j= 1) - │ ├─"test/test_expect_test.ml":4058:6: for=2,with=default + │ ├─"test/test_expect_test.ml":4049:6: for=2,with=default │ │ └─for=2,with=default i=2 - │ │ ├─"test/test_expect_test.ml":4061:23: for=2,with=default then:test_expect_test:4061 + │ │ ├─"test/test_expect_test.ml":4052:23: for=2,with=default then:test_expect_test:4052 │ │ │ └─(ERROR: 1 i= 2) │ │ ├─(WARNING: 2 i= 2) - │ │ ├─"test/test_expect_test.ml":4063:13: for=2,with=default fun:test_expect_test:4063 + │ │ ├─"test/test_expect_test.ml":4054:13: for=2,with=default fun:test_expect_test:4054 │ │ └─(INFO: 3 j= 3) - │ ├─"test/test_expect_test.ml":4058:6: for=2,with=default + │ ├─"test/test_expect_test.ml":4049:6: for=2,with=default │ │ └─for=2,with=default i=3 - │ │ ├─"test/test_expect_test.ml":4061:65: for=2,with=default else:test_expect_test:4061 + │ │ ├─"test/test_expect_test.ml":4052:65: for=2,with=default else:test_expect_test:4052 │ │ ├─(WARNING: 2 i= 3) - │ │ ├─"test/test_expect_test.ml":4063:13: for=2,with=default fun:test_expect_test:4063 + │ │ ├─"test/test_expect_test.ml":4054:13: for=2,with=default fun:test_expect_test:4054 │ │ └─(INFO: 3 j= 6) - │ ├─"test/test_expect_test.ml":4058:6: for=2,with=default + │ ├─"test/test_expect_test.ml":4049:6: for=2,with=default │ │ └─for=2,with=default i=4 - │ │ ├─"test/test_expect_test.ml":4061:65: for=2,with=default else:test_expect_test:4061 + │ │ ├─"test/test_expect_test.ml":4052:65: for=2,with=default else:test_expect_test:4052 │ │ ├─(WARNING: 2 i= 4) - │ │ ├─"test/test_expect_test.ml":4063:13: for=2,with=default fun:test_expect_test:4063 + │ │ ├─"test/test_expect_test.ml":4054:13: for=2,with=default fun:test_expect_test:4054 │ │ └─(INFO: 3 j= 10) - │ ├─"test/test_expect_test.ml":4058:6: for=2,with=default + │ ├─"test/test_expect_test.ml":4049:6: for=2,with=default │ │ └─for=2,with=default i=5 - │ │ ├─"test/test_expect_test.ml":4061:65: for=2,with=default else:test_expect_test:4061 + │ │ ├─"test/test_expect_test.ml":4052:65: for=2,with=default else:test_expect_test:4052 │ │ ├─(WARNING: 2 i= 5) - │ │ ├─"test/test_expect_test.ml":4063:13: for=2,with=default fun:test_expect_test:4063 + │ │ ├─"test/test_expect_test.ml":4054:13: for=2,with=default fun:test_expect_test:4054 │ │ └─(INFO: 3 j= 15) - │ └─"test/test_expect_test.ml":4058:6: for=2,with=default + │ └─"test/test_expect_test.ml":4049:6: for=2,with=default │ └─for=2,with=default i=6 - │ ├─"test/test_expect_test.ml":4061:65: for=2,with=default else:test_expect_test:4061 + │ ├─"test/test_expect_test.ml":4052:65: for=2,with=default else:test_expect_test:4052 │ ├─(WARNING: 2 i= 6) - │ ├─"test/test_expect_test.ml":4063:13: for=2,with=default fun:test_expect_test:4063 + │ ├─"test/test_expect_test.ml":4054:13: for=2,with=default fun:test_expect_test:4054 │ └─(INFO: 3 j= 21) └─result = 21 21 @@ -4159,164 +4146,164 @@ let%expect_test "%logN_block runtime log levels" = BEGIN DEBUG SESSION for=2,with=1 result = 0 - ├─"test/test_expect_test.ml":4054:27 + ├─"test/test_expect_test.ml":4045:27 ├─for=2,with=1 result - └─for=2,with=1 while:test_expect_test:4057 - ├─"test/test_expect_test.ml":4057:4 + └─for=2,with=1 while:test_expect_test:4048 + ├─"test/test_expect_test.ml":4048:4 ├─for=2,with=1 - │ └─"test/test_expect_test.ml":4058:6 + │ └─"test/test_expect_test.ml":4049:6 ├─for=2,with=1 - │ └─"test/test_expect_test.ml":4058:6 + │ └─"test/test_expect_test.ml":4049:6 ├─for=2,with=1 - │ └─"test/test_expect_test.ml":4058:6 + │ └─"test/test_expect_test.ml":4049:6 ├─for=2,with=1 - │ └─"test/test_expect_test.ml":4058:6 + │ └─"test/test_expect_test.ml":4049:6 ├─for=2,with=1 - │ └─"test/test_expect_test.ml":4058:6 + │ └─"test/test_expect_test.ml":4049:6 └─for=2,with=1 - └─"test/test_expect_test.ml":4058:6 + └─"test/test_expect_test.ml":4049:6 0 BEGIN DEBUG SESSION for=1,with=2 result = 21 - ├─"test/test_expect_test.ml":4054:27 + ├─"test/test_expect_test.ml":4045:27 ├─for=1,with=2 result - └─for=1,with=2 while:test_expect_test:4057 - ├─"test/test_expect_test.ml":4057:4 + └─for=1,with=2 while:test_expect_test:4048 + ├─"test/test_expect_test.ml":4048:4 ├─for=1,with=2 - │ ├─"test/test_expect_test.ml":4058:6 + │ ├─"test/test_expect_test.ml":4049:6 │ └─for=1,with=2 i=1 - │ ├─for=1,with=2 then:test_expect_test:4061 - │ │ ├─"test/test_expect_test.ml":4061:23 + │ ├─for=1,with=2 then:test_expect_test:4052 + │ │ ├─"test/test_expect_test.ml":4052:23 │ │ └─(ERROR: 1 i= 1) │ ├─(WARNING: 2 i= 1) - │ └─for=1,with=2 fun:test_expect_test:4063 - │ └─"test/test_expect_test.ml":4063:13 + │ └─for=1,with=2 fun:test_expect_test:4054 + │ └─"test/test_expect_test.ml":4054:13 ├─for=1,with=2 - │ ├─"test/test_expect_test.ml":4058:6 + │ ├─"test/test_expect_test.ml":4049:6 │ └─for=1,with=2 i=2 - │ ├─for=1,with=2 then:test_expect_test:4061 - │ │ ├─"test/test_expect_test.ml":4061:23 + │ ├─for=1,with=2 then:test_expect_test:4052 + │ │ ├─"test/test_expect_test.ml":4052:23 │ │ └─(ERROR: 1 i= 2) │ ├─(WARNING: 2 i= 2) - │ └─for=1,with=2 fun:test_expect_test:4063 - │ └─"test/test_expect_test.ml":4063:13 + │ └─for=1,with=2 fun:test_expect_test:4054 + │ └─"test/test_expect_test.ml":4054:13 ├─for=1,with=2 - │ ├─"test/test_expect_test.ml":4058:6 + │ ├─"test/test_expect_test.ml":4049:6 │ └─for=1,with=2 i=3 - │ ├─for=1,with=2 else:test_expect_test:4061 - │ │ └─"test/test_expect_test.ml":4061:65 + │ ├─for=1,with=2 else:test_expect_test:4052 + │ │ └─"test/test_expect_test.ml":4052:65 │ ├─(WARNING: 2 i= 3) - │ └─for=1,with=2 fun:test_expect_test:4063 - │ └─"test/test_expect_test.ml":4063:13 + │ └─for=1,with=2 fun:test_expect_test:4054 + │ └─"test/test_expect_test.ml":4054:13 ├─for=1,with=2 - │ ├─"test/test_expect_test.ml":4058:6 + │ ├─"test/test_expect_test.ml":4049:6 │ └─for=1,with=2 i=4 - │ ├─for=1,with=2 else:test_expect_test:4061 - │ │ └─"test/test_expect_test.ml":4061:65 + │ ├─for=1,with=2 else:test_expect_test:4052 + │ │ └─"test/test_expect_test.ml":4052:65 │ ├─(WARNING: 2 i= 4) - │ └─for=1,with=2 fun:test_expect_test:4063 - │ └─"test/test_expect_test.ml":4063:13 + │ └─for=1,with=2 fun:test_expect_test:4054 + │ └─"test/test_expect_test.ml":4054:13 ├─for=1,with=2 - │ ├─"test/test_expect_test.ml":4058:6 + │ ├─"test/test_expect_test.ml":4049:6 │ └─for=1,with=2 i=5 - │ ├─for=1,with=2 else:test_expect_test:4061 - │ │ └─"test/test_expect_test.ml":4061:65 + │ ├─for=1,with=2 else:test_expect_test:4052 + │ │ └─"test/test_expect_test.ml":4052:65 │ ├─(WARNING: 2 i= 5) - │ └─for=1,with=2 fun:test_expect_test:4063 - │ └─"test/test_expect_test.ml":4063:13 + │ └─for=1,with=2 fun:test_expect_test:4054 + │ └─"test/test_expect_test.ml":4054:13 └─for=1,with=2 - ├─"test/test_expect_test.ml":4058:6 + ├─"test/test_expect_test.ml":4049:6 └─for=1,with=2 i=6 - ├─for=1,with=2 else:test_expect_test:4061 - │ └─"test/test_expect_test.ml":4061:65 + ├─for=1,with=2 else:test_expect_test:4052 + │ └─"test/test_expect_test.ml":4052:65 ├─(WARNING: 2 i= 6) - └─for=1,with=2 fun:test_expect_test:4063 - └─"test/test_expect_test.ml":4063:13 + └─for=1,with=2 fun:test_expect_test:4054 + └─"test/test_expect_test.ml":4054:13 21 BEGIN DEBUG SESSION for=3,with=3 result = 21 - ├─"test/test_expect_test.ml":4054:27 + ├─"test/test_expect_test.ml":4045:27 ├─for=3,with=3 result - └─for=3,with=3 while:test_expect_test:4057 - ├─"test/test_expect_test.ml":4057:4 + └─for=3,with=3 while:test_expect_test:4048 + ├─"test/test_expect_test.ml":4048:4 ├─for=3,with=3 - │ ├─"test/test_expect_test.ml":4058:6 + │ ├─"test/test_expect_test.ml":4049:6 │ └─for=3,with=3 i=1 - │ ├─for=3,with=3 then:test_expect_test:4061 - │ │ ├─"test/test_expect_test.ml":4061:23 + │ ├─for=3,with=3 then:test_expect_test:4052 + │ │ ├─"test/test_expect_test.ml":4052:23 │ │ └─(ERROR: 1 i= 1) │ ├─(WARNING: 2 i= 1) - │ ├─for=3,with=3 fun:test_expect_test:4063 - │ │ └─"test/test_expect_test.ml":4063:13 + │ ├─for=3,with=3 fun:test_expect_test:4054 + │ │ └─"test/test_expect_test.ml":4054:13 │ └─(INFO: 3 j= 1) ├─for=3,with=3 - │ ├─"test/test_expect_test.ml":4058:6 + │ ├─"test/test_expect_test.ml":4049:6 │ └─for=3,with=3 i=2 - │ ├─for=3,with=3 then:test_expect_test:4061 - │ │ ├─"test/test_expect_test.ml":4061:23 + │ ├─for=3,with=3 then:test_expect_test:4052 + │ │ ├─"test/test_expect_test.ml":4052:23 │ │ └─(ERROR: 1 i= 2) │ ├─(WARNING: 2 i= 2) - │ ├─for=3,with=3 fun:test_expect_test:4063 - │ │ └─"test/test_expect_test.ml":4063:13 + │ ├─for=3,with=3 fun:test_expect_test:4054 + │ │ └─"test/test_expect_test.ml":4054:13 │ └─(INFO: 3 j= 3) ├─for=3,with=3 - │ ├─"test/test_expect_test.ml":4058:6 + │ ├─"test/test_expect_test.ml":4049:6 │ └─for=3,with=3 i=3 - │ ├─for=3,with=3 else:test_expect_test:4061 - │ │ └─"test/test_expect_test.ml":4061:65 + │ ├─for=3,with=3 else:test_expect_test:4052 + │ │ └─"test/test_expect_test.ml":4052:65 │ ├─(WARNING: 2 i= 3) - │ ├─for=3,with=3 fun:test_expect_test:4063 - │ │ └─"test/test_expect_test.ml":4063:13 + │ ├─for=3,with=3 fun:test_expect_test:4054 + │ │ └─"test/test_expect_test.ml":4054:13 │ └─(INFO: 3 j= 6) ├─for=3,with=3 - │ ├─"test/test_expect_test.ml":4058:6 + │ ├─"test/test_expect_test.ml":4049:6 │ └─for=3,with=3 i=4 - │ ├─for=3,with=3 else:test_expect_test:4061 - │ │ └─"test/test_expect_test.ml":4061:65 + │ ├─for=3,with=3 else:test_expect_test:4052 + │ │ └─"test/test_expect_test.ml":4052:65 │ ├─(WARNING: 2 i= 4) - │ ├─for=3,with=3 fun:test_expect_test:4063 - │ │ └─"test/test_expect_test.ml":4063:13 + │ ├─for=3,with=3 fun:test_expect_test:4054 + │ │ └─"test/test_expect_test.ml":4054:13 │ └─(INFO: 3 j= 10) ├─for=3,with=3 - │ ├─"test/test_expect_test.ml":4058:6 + │ ├─"test/test_expect_test.ml":4049:6 │ └─for=3,with=3 i=5 - │ ├─for=3,with=3 else:test_expect_test:4061 - │ │ └─"test/test_expect_test.ml":4061:65 + │ ├─for=3,with=3 else:test_expect_test:4052 + │ │ └─"test/test_expect_test.ml":4052:65 │ ├─(WARNING: 2 i= 5) - │ ├─for=3,with=3 fun:test_expect_test:4063 - │ │ └─"test/test_expect_test.ml":4063:13 + │ ├─for=3,with=3 fun:test_expect_test:4054 + │ │ └─"test/test_expect_test.ml":4054:13 │ └─(INFO: 3 j= 15) └─for=3,with=3 - ├─"test/test_expect_test.ml":4058:6 + ├─"test/test_expect_test.ml":4049:6 └─for=3,with=3 i=6 - ├─for=3,with=3 else:test_expect_test:4061 - │ └─"test/test_expect_test.ml":4061:65 + ├─for=3,with=3 else:test_expect_test:4052 + │ └─"test/test_expect_test.ml":4052:65 ├─(WARNING: 2 i= 6) - ├─for=3,with=3 fun:test_expect_test:4063 - │ └─"test/test_expect_test.ml":4063:13 + ├─for=3,with=3 fun:test_expect_test:4054 + │ └─"test/test_expect_test.ml":4054:13 └─(INFO: 3 j= 21) 21 BEGIN DEBUG SESSION for=4,with=3 result = 0 - ├─"test/test_expect_test.ml":4054:27 + ├─"test/test_expect_test.ml":4045:27 ├─for=4,with=3 result - └─for=4,with=3 while:test_expect_test:4057 - ├─"test/test_expect_test.ml":4057:4 + └─for=4,with=3 while:test_expect_test:4048 + ├─"test/test_expect_test.ml":4048:4 ├─for=4,with=3 - │ └─"test/test_expect_test.ml":4058:6 + │ └─"test/test_expect_test.ml":4049:6 ├─for=4,with=3 - │ └─"test/test_expect_test.ml":4058:6 + │ └─"test/test_expect_test.ml":4049:6 ├─for=4,with=3 - │ └─"test/test_expect_test.ml":4058:6 + │ └─"test/test_expect_test.ml":4049:6 ├─for=4,with=3 - │ └─"test/test_expect_test.ml":4058:6 + │ └─"test/test_expect_test.ml":4049:6 ├─for=4,with=3 - │ └─"test/test_expect_test.ml":4058:6 + │ └─"test/test_expect_test.ml":4049:6 └─for=4,with=3 - └─"test/test_expect_test.ml":4058:6 + └─"test/test_expect_test.ml":4049:6 0 |}]