diff options
Diffstat (limited to 'test/test_date.ml')
-rw-r--r-- | test/test_date.ml | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/test/test_date.ml b/test/test_date.ml index 5c3dc08..8cee25c 100644 --- a/test/test_date.ml +++ b/test/test_date.ml @@ -10,10 +10,10 @@ let stamp_of_date_time d = (Ptime.of_date_time $ raw_date_time @-> ret_get_option stamp) d let valid_date d = - ignore ((Ptime.of_date $ raw_date @-> ret_some stamp) d) + ignore ((Ptime.of_date ?tz_offset_s:None $ raw_date @-> ret_some stamp) d) let wrong_date d = - ignore ((Ptime.of_date $ raw_date @-> ret_none stamp) d) + ignore ((Ptime.of_date ?tz_offset_s:None $ raw_date @-> ret_none stamp) d) let bounds = test "Testing calendar date field bounds" @@ fun () -> (* Check year bounds *) @@ -118,7 +118,9 @@ let bounds = test "Testing calendar date field bounds" @@ fun () -> () let stamp_trips = test "Random valid dates to stamps round trips" @@ fun () -> - let of_date = Ptime.of_date $ raw_date @-> ret_get_option stamp in + let of_date = + Ptime.of_date ?tz_offset_s:None $ raw_date @-> ret_get_option stamp + in for i = 1 to Test_rand.loop_len () do let date = Test_rand.date () in let trip = Ptime.to_date (of_date date) in |