blob: 4becdf57a192cb2606fe116ea940ba595075c901 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
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
|