-module(gleam@os_test).
-compile(no_auto_import).

-export([env_test/0, system_time_test/0]).

env_test() ->
    gleam@os:insert_env(<<"GLEAM_TEST"/utf8>>, <<"hello"/utf8>>),
    gleam@should:equal(
        gleam@map:get(gleam@os:get_env(), <<"GLEAM_TEST"/utf8>>),
        {ok, <<"hello"/utf8>>}
    ),
    gleam@os:delete_env(<<"GLEAM_TEST"/utf8>>),
    gleam@should:equal(
        gleam@map:get(gleam@os:get_env(), <<"GLEAM_TEST"/utf8>>),
        {error, nil}
    ).

system_time_test() ->
    June122020 = 1591966971,
    gleam@should:equal(gleam@os:system_time(second) > June122020, true),
    gleam@should:equal(
        gleam@os:system_time(second)
        < (June122020
        * 1000),
        true
    ),
    gleam@should:equal(
        gleam@os:system_time(millisecond)
        > (June122020
        * 1000),
        true
    ),
    gleam@should:equal(
        gleam@os:system_time(millisecond)
        < (June122020
        * 1000000),
        true
    ).