From debc834f87f3b5df7057dc924f577dd57d0fee8c Mon Sep 17 00:00:00 2001 From: RJ Dellecese Date: Mon, 30 Dec 2019 14:10:10 -0500 Subject: Update generated files --- gen/src/gleam@function.erl | 10 ++++++++++ gen/src/gleam@generic.erl | 10 ---------- gen/test/gleam@function_test.erl | 38 ++++++++++++++++++++++++++++++++++++++ gen/test/gleam@generic_test.erl | 38 -------------------------------------- 4 files changed, 48 insertions(+), 48 deletions(-) create mode 100644 gen/src/gleam@function.erl delete mode 100644 gen/src/gleam@generic.erl create mode 100644 gen/test/gleam@function_test.erl delete mode 100644 gen/test/gleam@generic_test.erl (limited to 'gen') diff --git a/gen/src/gleam@function.erl b/gen/src/gleam@function.erl new file mode 100644 index 0000000..f014d37 --- /dev/null +++ b/gen/src/gleam@function.erl @@ -0,0 +1,10 @@ +-module(gleam@function). +-compile(no_auto_import). + +-export([compose/2, flip/1]). + +compose(Fun1, Fun2) -> + fun(A) -> Fun2(Fun1(A)) end. + +flip(Fun) -> + fun(B, A) -> Fun(A, B) end. diff --git a/gen/src/gleam@generic.erl b/gen/src/gleam@generic.erl deleted file mode 100644 index c616d93..0000000 --- a/gen/src/gleam@generic.erl +++ /dev/null @@ -1,10 +0,0 @@ --module(gleam@generic). --compile(no_auto_import). - --export([flip/1, compose/2]). - -flip(Fun) -> - fun(B, A) -> Fun(A, B) end. - -compose(Fun1, Fun2) -> - fun(A) -> Fun2(Fun1(A)) end. diff --git a/gen/test/gleam@function_test.erl b/gen/test/gleam@function_test.erl new file mode 100644 index 0000000..47758c5 --- /dev/null +++ b/gen/test/gleam@function_test.erl @@ -0,0 +1,38 @@ +-module(gleam@function_test). +-compile(no_auto_import). + +-export([compose_test/0, flip_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( + fun gleam@list:head/1, + fun(IntResult) -> + gleam@int:to_string(gleam@result:unwrap(IntResult, 0)) + end + ), + gleam@expect:equal(HeadToString([1]), <<"1">>), + gleam@expect:equal(HeadToString([]), <<"0">>). + +flip_test() -> + Fun = fun(String, Int) -> + gleam@string:append( + gleam@string:append( + gleam@string:append( + gleam@string:append(<<"String: '">>, String), + <<"', Int: '">> + ), + gleam@int:to_string(Int) + ), + <<"'">> + ) + 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'">> + ). diff --git a/gen/test/gleam@generic_test.erl b/gen/test/gleam@generic_test.erl deleted file mode 100644 index 0d4abe4..0000000 --- a/gen/test/gleam@generic_test.erl +++ /dev/null @@ -1,38 +0,0 @@ --module(gleam@generic_test). --compile(no_auto_import). - --export([flip_test/0, compose_test/0]). - -flip_test() -> - Fun = fun(String, Int) -> - gleam@string:append( - gleam@string:append( - gleam@string:append( - gleam@string:append(<<"String: '">>, String), - <<"', Int: '">> - ), - gleam@int:to_string(Int) - ), - <<"'">> - ) - end, - FlippedFun = gleam@generic:flip(Fun), - gleam@expect:equal(Fun(<<"Bob">>, 1), <<"String: 'Bob', Int: '1'">>), - gleam@expect:equal( - FlippedFun(2, <<"Alice">>), - <<"String: 'Alice', Int: '2'">> - ). - -compose_test() -> - AddTwo = fun(Int) -> Int + 2 end, - AddThree = fun(Int1) -> Int1 + 3 end, - AddFive = gleam@generic:compose(AddTwo, AddThree), - gleam@expect:equal(AddFive(1), 6), - HeadToString = gleam@generic:compose( - fun gleam@list:head/1, - fun(IntResult) -> - gleam@int:to_string(gleam@result:unwrap(IntResult, 0)) - end - ), - gleam@expect:equal(HeadToString([1]), <<"1">>), - gleam@expect:equal(HeadToString([]), <<"0">>). -- cgit v1.2.3