gleam_file

-module(file_test).
-compile(no_auto_import).

-export([directory_creation_deletion_test/0, cwd_cd_test/0]).

directory_creation_deletion_test() ->
    DirPath = <<"./xxxxone/two/three/"/utf8>>,
    FilePath = <<"./xxxxone/two/three/test.txt"/utf8>>,
    gleam@should:equal(gleam@file:ensure_directory(DirPath), {ok, nil}),
    gleam@should:equal(
        gleam@file:write_string(DirPath, <<"hello test 😀"/utf8>>),
        {error, eisdir}
    ),
    gleam@should:equal(
        gleam@file:write_string(FilePath, <<"hello test 😀"/utf8>>),
        {ok, nil}
    ),
    gleam@should:equal(gleam@file:exists(FilePath), true),
    gleam@should:equal(gleam@file:is_file(FilePath), true),
    gleam@should:equal(gleam@file:is_directory(FilePath), false),
    gleam@should:equal(
        gleam@file:read_to_bitstring(FilePath),
        {ok, <<"hello test 😀"/utf8>>}
    ),
    gleam@should:equal(
        gleam@file:delete_empty_directory(DirPath),
        {error, eexist}
    ),
    gleam@should:equal(gleam@file:delete(FilePath), {ok, nil}),
    gleam@should:equal(gleam@file:delete_empty_directory(DirPath), {ok, nil}),
    gleam@should:equal(
        gleam@file:delete_non_empty_directory(<<"./xxxxone/"/utf8>>),
        {ok, nil}
    ).

cwd_cd_test() ->
    DirPath = <<"./xxxxtest/"/utf8>>,
    {ok, Here} = gleam@file:cwd(),
    _ = gleam@file:ensure_directory(DirPath),
    _ = gleam@file:cd(DirPath),
    gleam@should:not_equal(gleam@file:cwd(), {ok, Here}),
    _ = gleam@file:cd(Here),
    gleam@should:equal(gleam@file:cwd(), {ok, Here}),
    gleam@file:delete_non_empty_directory(DirPath).