snag

-module(snag_test).
-compile(no_auto_import).

-export([context_test/0, pretty_print_test/0, line_print_test/0]).

-spec context_test() -> gleam@should:expectation().
context_test() ->
    gleam@should:equal(snag:context({ok, 1}, <<"oh no"/utf8>>), {ok, 1}),
    gleam@should:equal(
        snag:context(
            snag:error(<<"Could not open file"/utf8>>),
            <<"Save failed"/utf8>>
        ),
        {error,
         {snag, <<"Save failed"/utf8>>, [<<"Could not open file"/utf8>>]}}
    ).

-spec pretty_print_test() -> gleam@should:expectation().
pretty_print_test() ->
    gleam@should:equal(
        snag:pretty_print(
            snag:layer(
                snag:layer(
                    snag:new(<<"Directory not writable"/utf8>>),
                    <<"Could not open file"/utf8>>
                ),
                <<"Save failed"/utf8>>
            )
        ),
        <<"error: Save failed

cause:
  0: Could not open file
  1: Directory not writable
"/utf8>>
    ).

-spec line_print_test() -> gleam@should:expectation().
line_print_test() ->
    gleam@should:equal(
        snag:line_print(
            snag:layer(
                snag:layer(
                    snag:new(<<"Directory not writable"/utf8>>),
                    <<"Could not open file"/utf8>>
                ),
                <<"Save failed"/utf8>>
            )
        ),
        <<"error: Save failed <- Could not open file <- Directory not writable"/utf8>>
    ).