package ppx_expect

  1. Overview
  2. Docs
package ppx_expect
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file expect_test_config_types.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
module type S = Expect_test_config_types_intf.S

module type Expect_test_config_types =
  Expect_test_config_types_intf.Expect_test_config_types

module Upon_unreleasable_issue = struct
  include Expect_test_config_types_intf.Upon_unreleasable_issue

  let equal t1 t2 = t1 = t2

  let comment_prefix = function
    | `CR -> "CR "
    | `Warning_for_collector_testing -> ""
  ;;

  let message_when_expectation_contains_backtrace t =
    Printf.sprintf
      {|
(* %sexpect_test_collector: This test expectation appears to contain a backtrace.
   This is strongly discouraged as backtraces are fragile.
   Please change this test to not include a backtrace. *)

|}
      (comment_prefix t)
  ;;
end