1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
-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}).
|
