Keep integer time unit tests BEAM-compatible

Run the int64-bound calendar assertion only on AtomVM, since BEAM accepts timestamps outside AtomVM's representable datetime range.

Remove redundant narration from the integer time unit tests and move the changelog entry to the Added section.

Signed-off-by: Peter M <petermm@gmail.com>

Author: petermm

tests/erlang_tests/test_monotonic_time.erl

@@ -68,27 +68,22 @@ test_native_monotonic_time() ->
     ok.
 
 test_integer_time_unit() ->
-    %% integer 1 = parts per second, equivalent to second
     S = erlang:monotonic_time(second),
     S1 = erlang:monotonic_time(1),
     true = abs(S1 - S) =< 1,
 
-    %% integer 1000 = parts per second, equivalent to millisecond
     Ms = erlang:monotonic_time(millisecond),
     Ms1 = erlang:monotonic_time(1000),
     true = abs(Ms1 - Ms) =< 1,
 
-    %% integer 1000000 = parts per second, equivalent to microsecond
     Us = erlang:monotonic_time(microsecond),
     Us1 = erlang:monotonic_time(1000000),
     true = abs(Us1 - Us) =< 1000,
 
-    %% integer 1000000000 = parts per second, equivalent to nanosecond
     Ns = erlang:monotonic_time(nanosecond),
     Ns1 = erlang:monotonic_time(1000000000),
     true = abs(Ns1 - Ns) =< 1000000,
 
-    %% verify monotonicity with integer unit
     T1 = erlang:monotonic_time(1000),
     receive
     after 1 -> ok

tests/erlang_tests/test_system_time.erl

@@ -182,27 +182,22 @@ test_native_universal_time() ->
     ok.
 
 test_integer_time_unit() ->
-    %% integer 1 = parts per second, equivalent to second
     S = erlang:system_time(second),
     S1 = erlang:system_time(1),
     true = abs(S1 - S) =< 1,
 
-    %% integer 1000 = parts per second, equivalent to millisecond
     Ms = erlang:system_time(millisecond),
     Ms1 = erlang:system_time(1000),
     true = abs(Ms1 - Ms) =< 1,
 
-    %% integer 1000000 = parts per second, equivalent to microsecond
     Us = erlang:system_time(microsecond),
     Us1 = erlang:system_time(1000000),
     true = abs(Us1 - Us) =< 1000,
 
-    %% integer 1000000000 = parts per second, equivalent to nanosecond
     Ns = erlang:system_time(nanosecond),
     Ns1 = erlang:system_time(1000000000),
     true = abs(Ns1 - Ns) =< 1000000,
 
-    %% verify values are positive
     true = S1 > 0,
     true = Ms1 > 0,
     true = Us1 > 0,
@@ -216,24 +211,20 @@ test_non_power_of_10_integer_time_unit() ->
     ok.
 
 test_integer_unit_universal_time() ->
-    %% integer 1 = seconds
     {{1970, 1, 1}, {0, 0, 0}} = calendar:system_time_to_universal_time(0, 1),
     {{1970, 1, 1}, {0, 0, 1}} = calendar:system_time_to_universal_time(1, 1),
     {{2023, 7, 8}, {20, 19, 39}} = calendar:system_time_to_universal_time(1688847579, 1),
 
-    %% integer 1000 = milliseconds
     {{1970, 1, 1}, {0, 0, 0}} = calendar:system_time_to_universal_time(0, 1000),
     {{1970, 1, 1}, {0, 0, 1}} = calendar:system_time_to_universal_time(1000, 1000),
     {{1970, 1, 1}, {0, 0, 1}} = calendar:system_time_to_universal_time(1001, 1000),
     {{1969, 12, 31}, {23, 59, 59}} = calendar:system_time_to_universal_time(-1, 1000),
     {{1969, 12, 31}, {23, 59, 58}} = calendar:system_time_to_universal_time(-1001, 1000),
 
-    %% integer 1000000 = microseconds
     {{1970, 1, 1}, {0, 0, 0}} = calendar:system_time_to_universal_time(0, 1000000),
     {{1970, 1, 1}, {0, 0, 1}} = calendar:system_time_to_universal_time(1000000, 1000000),
     {{1969, 12, 31}, {23, 59, 59}} = calendar:system_time_to_universal_time(-1, 1000000),
 
-    %% integer 256 and 48000 = arbitrary parts per second
     {{1970, 1, 1}, {0, 0, 0}} = calendar:system_time_to_universal_time(255, 256),
     {{1970, 1, 1}, {0, 0, 1}} = calendar:system_time_to_universal_time(256, 256),
     {{1969, 12, 31}, {23, 59, 59}} = calendar:system_time_to_universal_time(-1, 256),
@@ -256,11 +247,20 @@ test_bad_integer_unit_universal_time() ->
     ok = expect(
         fun() -> calendar:system_time_to_universal_time(0, not_a_time_unit) end, badarg
     ),
-    ok = expect(
-        fun() -> calendar:system_time_to_universal_time(9223372036854775807, 1) end, badarg
-    ),
+    ok = test_atomvm_integer_unit_overflow(),
     ok.
 
+test_atomvm_integer_unit_overflow() ->
+    case erlang:system_info(machine) of
+        "ATOM" ->
+            expect(
+                fun() -> calendar:system_time_to_universal_time(9223372036854775807, 1) end,
+                badarg
+            );
+        _ ->
+            ok
+    end.
+
 test_integer_parts_per_second_ratio(PartsPerSecond) ->
     Seconds = erlang:system_time(second),
     Parts = erlang:system_time(PartsPerSecond),