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 --- tests/sql_int.ml | 29 ----------------------------- 1 file changed, 29 deletions(-) delete mode 100644 tests/sql_int.ml (limited to 'tests/sql_int.ml') diff --git a/tests/sql_int.ml b/tests/sql_int.ml deleted file mode 100644 index 76c25b2..0000000 --- a/tests/sql_int.ml +++ /dev/null @@ -1,29 +0,0 @@ -open OUnit2 - -let printer = function - | Sqlite3.Data.INT t -> Int64.to_string t - | Sqlite3.Data.NONE -> "None" - | Sqlite3.Data.NULL -> "Null" - | Sqlite3.Data.FLOAT f -> Float.to_string f - | Sqlite3.Data.TEXT t | Sqlite3.Data.BLOB t -> t - -let test_suit = - [ - ( "Int_of_int" >:: fun _ -> - assert_equal ~printer (Sqlite3.Data.INT 37354L) - (ImportSQL.Math.int (Sqlite3.Data.INT 37354L)) ); - ( "Int_of_string" >:: fun _ -> - assert_equal ~printer (Sqlite3.Data.INT 37354L) - (ImportSQL.Math.int (Sqlite3.Data.TEXT "37354")) ); - ( "Int_of_string2" >:: fun _ -> - assert_equal ~printer (Sqlite3.Data.INT 37354L) - (ImportSQL.Math.int (Sqlite3.Data.TEXT "37354.0")) ); - ( "Int_of_float" >:: fun _ -> - assert_equal ~printer (Sqlite3.Data.INT 37354L) - (ImportSQL.Math.int (Sqlite3.Data.FLOAT 37354.0)) ); - ( "Int_of_Text" >:: fun _ -> - assert_equal ~printer Sqlite3.Data.NULL - (ImportSQL.Math.int (Sqlite3.Data.TEXT "-")) ); - ] - -let tests = "sql_int" >::: test_suit -- cgit v1.2.3