File: test.ml

package info (click to toggle)
ppx-inline-test 0.17.1-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 364 kB
  • sloc: ml: 1,367; makefile: 15; javascript: 3; ansic: 2; sh: 2
file content (10 lines) | stat: -rw-r--r-- 277 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
 
open Base

let%test_unit "running [init] from inside an inline test" =
  match
    Ppx_inline_test_lib.init
      [ "dummy"; "inline-test-runner"; "dummy"; "-list-partitions" ]
  with
  | Ok _ -> Stdio.print_endline "init succeeded"
  | Error err -> Stdio.print_endline err
;;