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

---
 tests/test_migration.ml | 55 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 55 insertions(+)
 create mode 100644 tests/test_migration.ml

(limited to 'tests/test_migration.ml')

diff --git a/tests/test_migration.ml b/tests/test_migration.ml
new file mode 100644
index 0000000..35480d1
--- /dev/null
+++ b/tests/test_migration.ml
@@ -0,0 +1,55 @@
+(** Migration from OUnit to Alcotest *)
+let ( >:: ) : string -> (unit -> unit) -> unit Alcotest.test_case =
+ fun name test -> Alcotest.test_case name `Quick test
+
+let ( >::: ) : string -> unit Alcotest.test_case list -> unit Alcotest.test =
+ fun test_name tests -> (test_name, tests)
+
+let make_test :
+    (module Alcotest.TESTABLE with type t = 't) -> 't Alcotest.testable =
+ fun (type t) (module T : Alcotest.TESTABLE with type t = t) ->
+  Alcotest.testable T.pp T.equal
+
+(** Create a testable for SQLite data type *)
+let sql_testable =
+  make_test
+    (module struct
+      type t = Sqlite3.Data.t =
+        | NONE
+        | NULL
+        | INT of int64
+        | FLOAT of float
+        | TEXT of string
+        | BLOB of string
+      [@@deriving show, eq]
+    end)
+
+let csv_data_type_testable =
+  make_test
+    (module struct
+      type t = ImportCSV.DataType.t =
+        | Null
+        | Error of string
+        | Content of string
+        | Integer of int
+        | Float of float
+      [@@deriving show, eq]
+    end)
+
+let csv_result = Alcotest.(list @@ array @@ csv_data_type_testable)
+let data_type_testable = make_test (module ImportDataTypes.Types)
+let extern_testable = make_test (module ImportConf.Syntax.Extern)
+let table_testable = make_test (module ImportDataTypes.Table)
+let int_container_testable = make_test (module ImportContainers.IntSet)
+
+let expression_testable =
+  make_test
+    (module struct
+      type t = ImportConf.Path.t ImportExpression.T.t [@@deriving show, eq]
+    end)
+
+let dep_key_testable =
+  make_test
+    (module struct
+      type t = ImportAnalyser.Dependency.key [@@deriving show, eq]
+    end)
-- 
cgit v1.2.3