aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorSébastien Dailly <sebastien@chimrod.com>2017-01-01 15:49:42 +0100
committerSébastien Dailly <sebastien@chimrod.com>2017-01-01 15:49:42 +0100
commit444c0baa87b6edfb21c002bf9e079e10509ee0e9 (patch)
tree08b4978fd53941a2bb4d5931b5bd8c45e40ccf5b /tests
parent023c11470e32744a43b7e3c7c248f3c47ebdc687 (diff)
Switched dates 0 to 1899/12/30
Diffstat (limited to 'tests')
-rwxr-xr-xtests/tools_test.ml6
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/tools_test.ml b/tests/tools_test.ml
index 9afc611..b64afbc 100755
--- a/tests/tools_test.ml
+++ b/tests/tools_test.ml
@@ -68,7 +68,7 @@ module TestDate = struct
let test_get_julian_day ctx = begin
let result = Tools.Date.get_julian_day 2016 01 01
- and expected = (Num.num_of_int 2457389) in
+ and expected = (Num.num_of_int 42370) in
(* Check that the num is round *)
assert_equal true (Num.is_integer_num result);
@@ -88,7 +88,7 @@ module TestDate = struct
y2 m2 d2
in
- let result = Tools.Date.date_from_julian_day @@ Num.num_of_int 2415753
+ let result = Tools.Date.date_from_julian_day @@ Num.num_of_int 734
and expected = (1902, 01, 03) in
assert_equal
@@ -100,7 +100,7 @@ module TestDate = struct
let test_parse_time ctx = begin
let result = Tools.Date.from_string "1902-01-03T12:34:56"
- and expected = (Num.num_of_string "13045069031/5400") in
+ and expected = (Num.num_of_string "3966431/5400") in
(* =2415753.52425925925925925925 *)
assert_equal
~cmp:Num.(=/)