Packages

gleam_stdlib

0.2.0
1.0.3 1.0.2 1.0.1 1.0.0 0.71.0 0.70.0 0.69.0 0.68.1 0.68.0 0.67.1 0.67.0 0.65.0 0.64.0 0.63.2 0.63.1 0.63.0 0.62.1 0.62.0 0.61.0 0.60.0 0.59.0 0.58.0 0.57.0 0.56.0 0.55.0 0.54.0 0.53.0 0.52.0 0.51.0 0.50.0 0.49.0 0.48.0 0.47.0 0.46.0 0.45.0 0.44.0 0.43.0 0.42.0 0.41.0 0.40.0 0.39.0 0.38.0 0.37.0 0.36.0 0.35.1 0.35.0 0.34.0 0.33.1 0.33.0 0.32.1 0.32.0 0.31.0 0.30.2 0.30.1 0.30.0 0.29.2 0.29.1 0.29.0 0.28.2 0.28.1 0.28.0 0.27.0 0.26.1 0.26.0 0.25.0 0.24.0 0.23.0 0.22.3 0.22.2 0.22.1 0.22.0 0.21.0 0.20.0 0.19.3 0.19.2 0.19.1 0.19.0 0.18.1 0.18.0 0.18.0-rc1 0.17.1 0.17.0 0.16.0 0.15.0 0.14.0 0.13.0 0.12.0 0.11.0 0.10.1 0.10.0 0.9.0 0.8.0 0.7.0 0.6.0 0.5.0 0.4.0 0.4.0-rc1 0.3.1 0.3.0 0.2.0 retired

A standard library for the Gleam programming language

Retired package: Release invalid - Does not compile correctly
HexDocs

Current section

Files

Jump to
Readme
100 Versions
0 Dependencies
1565 Dependants
Files
Activity
gleam_stdlib gen test result_test.erl
Raw

gen/test/result_test.erl 

-module(result_test).

-compile(no_auto_import).



-export([is_ok_test/0, is_error_test/0, map_test/0, map_error_test/0, flatten_test/0, then_test/0, unwrap_test/0]).



is_ok_test() ->

    expect:true(result:is_ok({ok, 1})),

    expect:false(result:is_ok({error, 1})).



is_error_test() ->

    expect:false(result:is_error({ok, 1})),

    expect:true(result:is_error({error, 1})).



map_test() ->

    expect:equal(result:map({ok, 1}, fun(X) -> X + 1 end), {ok, 2}),

    expect:equal(result:map({ok, 1}, fun(_) -> <<"2">> end), {ok, <<"2">>}),

    expect:equal(result:map({error, 1}, fun(X) -> X + 1 end), {error, 1}).



map_error_test() ->

    expect:equal(result:map_error({ok, 1}, fun(X) -> X + 1 end), {ok, 1}),

    expect:equal(result:map_error({error, 1}, fun(X) -> X + 1 end), {error, 2}).



flatten_test() ->

    expect:equal(result:flatten({ok, {ok, 1}}), {ok, 1}),

    expect:equal(result:flatten({ok, {error, 1}}), {error, 1}),

    expect:equal(result:flatten({error, 1}), {error, 1}),

    expect:equal(result:flatten({error, {error, 1}}), {error, {error, 1}}).



then_test() ->

    expect:equal(result:then({error, 1}, fun(X) -> {ok, X + 1} end),

                 {error, 1}),

    expect:equal(result:then({ok, 1}, fun(X) -> {ok, X + 1} end), {ok, 2}),

    expect:equal(result:then({ok, 1}, fun(_) -> {ok, <<"type change">>} end),

                 {ok, <<"type change">>}),

    expect:equal(result:then({ok, 1}, fun(_) -> {error, 1} end), {error, 1}).



unwrap_test() ->

    expect:equal(result:unwrap({ok, 1}, 50), 1),

    expect:equal(result:unwrap({error, <<"nope">>}, 50), 50).