From 8e012f4804ecf1665819e761283120a3c0e73643 Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Fri, 17 Jan 2025 20:48:43 +0100 Subject: Switched from OUnit to alcotest --- lib/expression/dune | 3 +++ lib/expression/t.ml | 2 ++ lib/expression/t.mli | 1 + 3 files changed, 6 insertions(+) (limited to 'lib/expression') diff --git a/lib/expression/dune b/lib/expression/dune index 96e386e..d141b7b 100755 --- a/lib/expression/dune +++ b/lib/expression/dune @@ -6,4 +6,7 @@ importDataTypes importErrors ) + (preprocess (pps + ppx_deriving.show + ppx_deriving.eq )) ) diff --git a/lib/expression/t.ml b/lib/expression/t.ml index 9ce21b8..fec8fd7 100644 --- a/lib/expression/t.ml +++ b/lib/expression/t.ml @@ -6,6 +6,7 @@ type 'a window = | Counter | Previous of 'a | Sum of 'a +[@@deriving show, eq] type 'a t = | Empty @@ -21,6 +22,7 @@ type 'a t = | BOperator of binary_operator * 'a t * 'a t | GEquality of binary_operator * 'a t * 'a t list | Function' of funct * 'a t list +[@@deriving show, eq] and binary_operator = | Equal diff --git a/lib/expression/t.mli b/lib/expression/t.mli index 49ef3e7..4e1af55 100644 --- a/lib/expression/t.mli +++ b/lib/expression/t.mli @@ -19,6 +19,7 @@ type 'a t = | BOperator of binary_operator * 'a t * 'a t | GEquality of binary_operator * 'a t * 'a t list | Function' of funct * 'a t list +[@@deriving show, eq] and binary_operator = | Equal -- cgit v1.2.3