open OUnit2

let test_suit =
  [
    ( "Parse date" >:: fun _ ->
      let text_date = Sqlite3.Data.TEXT "2002-04-08 15:59:41.000"
      and format_date = Sqlite3.Data.TEXT "%Y-%m-%d %H:%M:%S.000" in

      assert_equal (Sqlite3.Data.INT 37354L)
        (ImportSQL.Date.f format_date text_date) );
    ( "Parse date as int" >:: fun _ ->
      let int_date = Sqlite3.Data.INT 37354L
      and format_date = Sqlite3.Data.TEXT "%Y-%m-%d %H:%M:%S.000" in

      assert_equal int_date (ImportSQL.Date.f format_date int_date) );
  ]

let tests = "sql_date" >::: test_suit