Add CT suite for os.date in different Time Zones

rebar.config

@@ -19,3 +19,13 @@
         {include_erts, true},
 
         {extended_start_script, true}]}.
+
+{profiles, [
+  {test, [
+    {dist_node, [
+        {setcookie, 'ct'},
+        {sname, 'ct'}
+    ]},
+    {ct_opts, [{logdir, "logs"}]}
+  ]}
+]}.

test/luerl_time_SUITE.erl

@@ -0,0 +1,45 @@
+-module(luerl_time_SUITE).
+
+-include_lib("common_test/include/ct.hrl").
+-include_lib("eunit/include/eunit.hrl").
+
+-export([all/0]).
+-export([os_date/1]).
+
+all() ->
+  lists:flatten([windows_tests(), linux_tests()]).
+
+os_date(_Config) ->
+    {ok, _, LusakaNode} = ?CT_PEER(#{
+        name => africa_lusaka,
+        env => [{"TZ", "Africa/Lusaka"}]
+    }),
+    ok = set_path(LusakaNode),
+    {ok, _, LondonNode} = ?CT_PEER(#{
+        name => europe_london,
+        env => [{"TZ", "Europe/London"}]
+    }),
+    ok = set_path(LondonNode),
+    LusakaLocalTime = rpc:call(LusakaNode, calendar, local_time, []),
+    LondonLocalTime = rpc:call(LondonNode, calendar, local_time, []),
+    ?assertNotMatch({badrpc, _}, LusakaLocalTime),
+    ?assertNotMatch({badrpc, _}, LondonLocalTime),
+    ?assert(LusakaLocalTime =/= LondonLocalTime),
+    ?assertEqual({ok,[<<"Sat May  6 13:16:07 2023">>]}, rpc:call(LusakaNode, luerl, eval, ["return os.date('%c', 1683371767)", luerl:init()])),
+    ?assertEqual({ok,[<<"Sat May  6 12:16:07 2023">>]}, rpc:call(LondonNode, luerl, eval, ["return os.date('%c', 1683371767)", luerl:init()])),
+    ok.
+
+windows_tests() ->
+    [].
+
+linux_tests() ->
+    [os_date].
+
+set_path(Node) ->
+    [case rpc:call(Node, code, add_path, [Path]) of
+        true ->
+            ok;
+        Err = {error, _} ->
+            throw({badpath, Path, Err})
+    end || Path <- code:get_path(), filelib:is_dir(Path)],
+    ok.