From 2ae3b59eb7f0d65206b1cb76c219c41a5086caa6 Mon Sep 17 00:00:00 2001 From: Ian McLerran Date: Wed, 31 Jan 2024 20:55:45 -0600 Subject: [PATCH] added tests for new delta functions --- platform/Utc.roc | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/platform/Utc.roc b/platform/Utc.roc index 933c48b1..0b7f0b30 100644 --- a/platform/Utc.roc +++ b/platform/Utc.roc @@ -59,3 +59,14 @@ deltaAsNanos = \@Utc first, @Utc second -> secondCast = Num.bitwiseXor (Num.toU128 second) (Num.shiftLeftBy 1 127) Num.absDiff firstCast secondCast +# TESTS +expect deltaAsNanos (fromNanosSinceEpoch 0) (fromNanosSinceEpoch 0) == 0 +expect deltaAsNanos (fromNanosSinceEpoch 1) (fromNanosSinceEpoch 2) == 1 +expect deltaAsNanos (fromNanosSinceEpoch -1) (fromNanosSinceEpoch 1) == 2 +expect deltaAsNanos (fromNanosSinceEpoch Num.minI128) (fromNanosSinceEpoch Num.maxI128) == Num.maxU128 + +expect deltaAsMillis (fromMillisSinceEpoch 0) (fromMillisSinceEpoch 0) == 0 +expect deltaAsMillis (fromNanosSinceEpoch 1) (fromNanosSinceEpoch 2) == 0 +expect deltaAsMillis (fromMillisSinceEpoch 1) (fromMillisSinceEpoch 2) == 1 +expect deltaAsMillis (fromMillisSinceEpoch -1) (fromMillisSinceEpoch 1) == 2 +expect deltaAsMillis (fromNanosSinceEpoch Num.minI128) (fromNanosSinceEpoch Num.maxI128) == Num.maxU128 // nanosPerMilli \ No newline at end of file