Skip to content

GitLab

V
visitors
Commit 098fb77d authored by POTTIER Francois's avatar POTTIER Francois
Browse files
Options

Split a test into two tests.

parent 6dcd2dad
Hide whitespace changes
Inline Side-by-side
Showing with 20 additions and 10 deletions
test/expr_info_polymorphic.ml
View file @ 098fb77d
type 'info expr_node =
| EConst of (int[@opaque])
| EConst of int
| EAdd of 'info expr * 'info expr
and 'info expr =
{ info: 'info; node: 'info expr_node }
[@@deriving visitors { variety = "iter"; polymorphic = true },
visitors { variety = "map"; polymorphic = true },
visitors { variety = "endo"; polymorphic = true },
visitors { variety = "reduce"; polymorphic = true },
visitors { variety = "mapreduce"; polymorphic = true },
visitors { variety = "iter2"; polymorphic = true },
visitors { variety = "map2"; polymorphic = true },
visitors { variety = "reduce2"; polymorphic = true },
visitors { variety = "mapreduce2"; polymorphic = true }]
[@@deriving visitors
{ variety = "map"; polymorphic = true; data = false }]
test/misc.mllib
View file @ 098fb77d
......@@ -8,4 +8,5 @@ test00
test01
test02
test03
test04
testallprims
test/test04.ml 0 → 100644
View file @ 098fb77d
type 'info expr_node =
| EConst of int
| EAdd of 'info expr * 'info expr
and 'info expr =
{ info: 'info; node: 'info expr_node }
[@@deriving visitors { variety = "iter"; polymorphic = true },
visitors { variety = "map"; polymorphic = true },
visitors { variety = "endo"; polymorphic = true },
visitors { variety = "reduce"; polymorphic = true },
visitors { variety = "mapreduce"; polymorphic = true },
visitors { variety = "iter2"; polymorphic = true },
visitors { variety = "map2"; polymorphic = true },
visitors { variety = "reduce2"; polymorphic = true },
visitors { variety = "mapreduce2"; polymorphic = true }]
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