Ignore the dates outside of the julian period

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