File: testable.ml

package info (click to toggle)
ocaml-mdx 2.5.1-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 1,560 kB
  • sloc: ml: 6,940; sh: 18; makefile: 3
file content (11 lines) | stat: -rw-r--r-- 353 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
 
let sexp =
  let pp fmt s = Fmt.pf fmt "%s" (Mdx.Util.Csexp.to_string s) in
  Alcotest.testable pp ( = )

let msg =
  let pp fs = function `Msg s -> Fmt.pf fs "`Msg %S" s in
  Alcotest.testable pp ( = )

let errormsg v = Alcotest.(result v msg)
let block = Alcotest.testable Mdx.Block.dump ( = )
let header = Alcotest.testable Mdx.Block.Header.pp ( = )