Packages

gleam_stdlib

0.7.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

HexDocs

Current section

Files

Jump to
Readme
100 Versions
0 Dependencies
1566 Dependants
Files
Activity
gleam_stdlib gen test gleam@function_test.erl
Raw

gen/test/gleam@function_test.erl 

-module(gleam@function_test).

-compile(no_auto_import).



-export([compose_test/0, flip_test/0, identity_test/0]).



compose_test() ->

    AddTwo = fun(Int) -> Int + 2 end,

    AddThree = fun(Int1) -> Int1 + 3 end,

    AddFive = gleam@function:compose(AddTwo, AddThree),

    gleam@expect:equal(AddFive(1), 6),

    HeadToString = gleam@function:compose(

        gleam@function:compose(

            fun gleam@list:head/1,

            fun(Capture1) -> gleam@result:unwrap(Capture1, 0) end

        ),

        fun gleam@int:to_string/1

    ),

    gleam@expect:equal(HeadToString([1]), <<"1">>),

    gleam@expect:equal(HeadToString([]), <<"0">>).



flip_test() ->

    Fun = fun(S, I) ->

        gleam@string:append(

            gleam@string:append(

                gleam@string:append(

                    gleam@string:append(<<"String: '">>, S),

                    <<"', Int: '">>

                ),

                gleam@int:to_string(I)

            ),

            <<"'">>

        )

    end,

    FlippedFun = gleam@function:flip(Fun),

    gleam@expect:equal(Fun(<<"Bob">>, 1), <<"String: 'Bob', Int: '1'">>),

    gleam@expect:equal(

        FlippedFun(2, <<"Alice">>),

        <<"String: 'Alice', Int: '2'">>

    ).



identity_test() ->

    gleam@expect:equal(gleam@function:identity(1), 1),

    gleam@expect:equal(gleam@function:identity(<<"">>), <<"">>),

    gleam@expect:equal(gleam@function:identity([]), []),

    gleam@expect:equal(gleam@function:identity({1, 2.0}), {1, 2.0}).