summaryrefslogtreecommitdiff
path: root/testsuite/tests/tool-ocamldoc/t01.ml
blob: 9d76ba51ff3c19fa2d36bcfda065914358439e73 (plain)
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
27
28
29
30
31
32
33
(* TEST
 plugins = "odoc_test.ml";
 flags = "-I ${ocamlsrcdir}/ocamldoc";
 ocamldoc;
*)

(** Testing display of types.

   @test_types_display
 *)

let x = 1


module M = struct
  let y = 2

end

module type MT = sig
  type t = string -> int -> string -> (string * string * string) ->
    (string * string * string) ->
      (string * string * string) -> unit
  val y : int

  type ob = < f : int >

  type obj_type =
     < foo : int ; bar : float -> string ; ob ; gee : int -> (int * string) >

  type g = [`A]
  type h = [`B of int | g | `C of string]
end