diff options
Diffstat (limited to 'tests/sql_functions.ml')
| -rw-r--r-- | tests/sql_functions.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/sql_functions.ml b/tests/sql_functions.ml index 524e793..56563fa 100644 --- a/tests/sql_functions.ml +++ b/tests/sql_functions.ml @@ -16,6 +16,11 @@ let test_suit = check "parsing int date" int_date (ImportSQL.Date.f format_date int_date) ); + ( "Parse out of bound date" >:: fun () -> + let text_date = Sqlite3.Data.TEXT "4002-04-08" + and format_date = Sqlite3.Data.TEXT "%Y-%m-%d" in + check "Out of bound" Sqlite3.Data.NULL + (ImportSQL.Date.f format_date text_date) ); ( "Parse regex" >:: fun _ -> let text = Sqlite3.Data.TEXT "hello world" and regex = Sqlite3.Data.TEXT "hello ([A-Za-z]+)" in |