Commit c17e4eeb authored by Julien Lopez's avatar Julien Lopez
Browse files

Improve test on variant (in tests/ocaml/a)

parent 2476363b
......@@ -12,7 +12,8 @@ let map_complex (f : (Float,Float)->Float)(c : { x = Float; y = Float })
: Float =
f (c . x, c . y)
let pp (x : Any) : Latin1 = string_of x
type t = (`A, t) | (`B, (t,t)) | (`C, Int)
let pp (x : t) : Latin1 = string_of x
let exists = Sys.file_exists
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment