From 8e012f4804ecf1665819e761283120a3c0e73643 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@dailly.me>
Date: Fri, 17 Jan 2025 20:48:43 +0100
Subject: Switched from OUnit to alcotest

---
 lib/analysers/dependency.ml  |  1 +
 lib/analysers/dependency.mli | 29 +++++++++++++++--------------
 lib/analysers/dune           |  4 ++++
 3 files changed, 20 insertions(+), 14 deletions(-)

(limited to 'lib/analysers')

diff --git a/lib/analysers/dependency.ml b/lib/analysers/dependency.ml
index 9dd4736..d0ea8b3 100644
--- a/lib/analysers/dependency.ml
+++ b/lib/analysers/dependency.ml
@@ -23,6 +23,7 @@ type key = {
   expression : Path.column Expression.t;
   columns : ImportContainers.IntSet.t Lazy.t;
 }
+[@@deriving show, eq]
 
 type t = {
   table : Table.t;
diff --git a/lib/analysers/dependency.mli b/lib/analysers/dependency.mli
index c89522a..bc761ae 100644
--- a/lib/analysers/dependency.mli
+++ b/lib/analysers/dependency.mli
@@ -1,9 +1,9 @@
 type t
 
 val get_process_order : ImportConf.Syntax.t -> t list
-(** Extract the file list to process, following the identified dependancies.
-    Try to load first the document which does not required another spreadsheet,
-    and keep going in the topological order  
+(** Extract the file list to process, following the identified dependancies. Try
+    to load first the document which does not required another spreadsheet, and
+    keep going in the topological order
 
     Raise [Unknown_source file] if a source is referenced but is not declared.
     The order matter : the exception will be raised in a source is referenced
@@ -13,28 +13,29 @@ val table : t -> ImportDataTypes.Table.t
 (** Get the table to proceed. *)
 
 val columns : t -> ImportContainers.IntSet.t
-(** A set of columns loaded in this table. Thoses columns may not need
-            reported in the final export. 
+(** A set of columns loaded in this table. Thoses columns may not need reported
+    in the final export.
 
-            Each column is identified by is index in the Excel document. 
+    Each column is identified by is index in the Excel document.
 
-            This set does not include the columns used in the keys. They can be
-            fetched with the [keys] function *)
+    This set does not include the columns used in the keys. They can be fetched
+    with the [keys] function *)
 
 type key = {
   name : string;  (** This is the name of the target table we are pointed to *)
   expression : ImportDataTypes.Path.column ImportExpression.T.t;
       (** The expression used as key *)
   columns : ImportContainers.IntSet.t Lazy.t;
-      (** The list of columns used in the key. All the columns are referenced
-            in the expression. We can have many columns used inside a single
-            key when a function is used (for example for joining multiple
-            columns into a single key)  *)
+      (** The list of columns used in the key. All the columns are referenced in
+          the expression. We can have many columns used inside a single key when
+          a function is used (for example for joining multiple columns into a
+          single key) *)
 }
+[@@deriving show, eq]
 (** This type describe the join key in a table. The name is the refering table
     using this key (the key name in the datable is key_"name" ), and the
     expression describe how to build the key. *)
 
 val keys : t -> key list
-(** [keys] is the list of columns pointed by another one. They are
-          considered as join key between the diffrent tables. *)
+(** [keys] is the list of columns pointed by another one. They are considered as
+    join key between the diffrent tables. *)
diff --git a/lib/analysers/dune b/lib/analysers/dune
index 1bbc30f..382dd6b 100755
--- a/lib/analysers/dune
+++ b/lib/analysers/dune
@@ -9,4 +9,8 @@
    importErrors
    tsort
  )
+ (preprocess (pps 
+     ppx_deriving.ord
+     ppx_deriving.show 
+     ppx_deriving.eq ))
 )
-- 
cgit v1.2.3