diff options
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 |