diff options
| -rw-r--r-- | lib/sql/date.ml | 5 | ||||
| -rw-r--r-- | tests/sql_functions.ml | 5 |
2 files changed, 10 insertions, 0 deletions
diff --git a/lib/sql/date.ml b/lib/sql/date.ml index e8933c7..b1a8d6a 100644 --- a/lib/sql/date.ml +++ b/lib/sql/date.ml @@ -14,6 +14,11 @@ let f : Sqlite3.Data.t -> Sqlite3.Data.t -> Sqlite3.Data.t = in Sqlite3.Data.INT period with + | CalendarLib.Date.Out_of_bounds -> + prerr_endline + @@ Printf.sprintf "Date ignored (outside of Julian period): %s" + content; + Sqlite3.Data.NULL | Invalid_argument e -> prerr_endline e; Sqlite3.Data.NULL) 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 |