#
#  PRE: if
#
date one
date two
time_delta diff
time_delta diff2
uint32 num

#
#  We can cast a time duration to milliseconds, and get a sane value.
#
if (%cast("ms", 60s) != 60000) {
	test_fail
}

if (%cast("weeks", 7d) != 1) {
	test_fail
}

if (%cast("weeks", 8d) != 1.864) {
	test_fail
}


#
#  And then for dates
#
#  These dates are one minute apart.
#
one = "2024-08-12T00:00:00Z"
two = "2024-08-12T00:01:00Z"

diff = two - one
if (diff != 60s) {
	test_fail
}

#
#  Cast the time delta to milliseconds
#
num = %cast("ms", %{diff})

#
#  This results in 60, because the conversion to fr_value_box_cast() doesn't pass dst->enumv?
#
if (num != 60000) {
	test_fail
}

success
