package ppx_inline_test

You can search for identifiers within the package.

in-package search v0.2.0

Syntax extension for writing in-line tests in ocaml code

Install

Dune Dependency

github.com Readme Changelog MIT License Edit opam file Versions (11)

Authors

J

Jane Street Group, LLC

Maintainers

J

Jane Street developers

Sources

ppx_inline_test-v0.15.0.tar.gz

sha256=3f78d141abc4a8e2ff69354299f8b2215ad33aa79a36a7f7fb82635e4ea1871b

doc/src/ppx_inline_test.libname/ppx_inline_test_libname.ml.html

Source file `ppx_inline_test_libname.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
open Ppxlib

let libname = ref None

let () =
  Driver.add_arg "-inline-test-lib" (Arg.String (fun s -> libname := Some s))
    ~doc:" A base name to use for generated identifiers \
          (has to be globally unique in a program).\
          ppx_inline_test (and ppx_bench) are disabled unless this flag is passed.";
;;

let () =
  Driver.Cookies.add_simple_handler "library-name" Ast_pattern.(estring __)
    ~f:(function
      | None -> ()
      | Some lib -> libname := Some lib)
;;

let get () =
  match !libname with
  | None -> None
  | Some lib ->
    match String.index lib ':' with
    | exception Not_found -> Some (lib, "")
    | i -> Some (String.sub lib 0 i, String.sub lib (i + 1) (String.length lib - i - 1))