1 files changed, 6 insertions, 13 deletions
diff --git a/tests/importCSV_test.ml b/tests/importCSV_test.ml
index bc21992..fc6d545 100644
--- a/tests/importCSV_test.ml
+++ b/tests/importCSV_test.ml
@@ -1,26 +1,19 @@
-open OUnit2
 open ImportCSV
+open Test_migration
+
+let assert_equal = Alcotest.(check int "")
 
 let test_suit =
   [
-    ( "Column A" >:: fun _ ->
-      assert_equal
-        ~printer:(fun i -> Printf.sprintf "%d (%s)" i (Csv.column_to_string i))
-        1 (Csv.column_of_string "A") );
-    ( "Column a" >:: fun _ ->
-      assert_equal
-        ~printer:(fun i -> Printf.sprintf "%d (%s)" i (Csv.column_to_string i))
-        1 (Csv.column_of_string "a") );
+    ("Column A" >:: fun _ -> assert_equal 1 (Csv.column_of_string "A"));
+    ("Column a" >:: fun _ -> assert_equal 1 (Csv.column_of_string "a"));
     ( "Column name" >:: fun _ ->
       let () =
         for i = 1 to 1_000 do
           let column_name = Csv.column_to_string i in
           let column_index = Csv.column_of_string column_name in
 
-          assert_equal
-            ~printer:(fun i ->
-              Printf.sprintf "%d (%s)" i (Csv.column_to_string i))
-            i column_index
+          assert_equal i column_index
         done
       in
       () );