diff options
| author | Sébastien Dailly <sebastien@dailly.me> | 2025-01-17 20:48:43 +0100 |
|---|---|---|
| committer | Sébastien Dailly <sebastien@dailly.me> | 2025-01-22 12:22:26 +0100 |
| commit | 8e012f4804ecf1665819e761283120a3c0e73643 (patch) | |
| tree | c168efe3e1f0edf5e45695c643e62b3e5447be37 /tests/sql_int.ml | |
| parent | bf2af26d896bb499f2c312a4f1ecd3210e2d7780 (diff) | |
Switched from OUnit to alcotest
Diffstat (limited to 'tests/sql_int.ml')
| -rw-r--r-- | tests/sql_int.ml | 29 |
1 files changed, 0 insertions, 29 deletions
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 |