From 2c2541750ca4b7b604070c75c18d84be833c97d5 Mon Sep 17 00:00:00 2001 From: Louis Pilfold Date: Tue, 25 Jun 2019 22:48:07 +0100 Subject: stdlib namespace std -> gleam --- gen/test/gleam@tuple_test.erl | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 gen/test/gleam@tuple_test.erl (limited to 'gen/test/gleam@tuple_test.erl') diff --git a/gen/test/gleam@tuple_test.erl b/gen/test/gleam@tuple_test.erl new file mode 100644 index 0000000..c705c74 --- /dev/null +++ b/gen/test/gleam@tuple_test.erl @@ -0,0 +1,23 @@ +-module(gleam@tuple_test). +-compile(no_auto_import). + +-export([new_test/0, first_test/0, second_test/0, swap_test/0, fetch_test/0]). + +new_test() -> + gleam@expect:equal(gleam@tuple:new(1, 2), {1, 2}), + gleam@expect:equal(gleam@tuple:new(2, <<"3">>), {2, <<"3">>}). + +first_test() -> + gleam@expect:equal(gleam@tuple:first({1, 2}), 1). + +second_test() -> + gleam@expect:equal(gleam@tuple:second({1, 2}), 2). + +swap_test() -> + gleam@expect:equal(gleam@tuple:swap({1, <<"2">>}), {<<"2">>, 1}). + +fetch_test() -> + Proplist = [{0, <<"1">>}, {1, <<"2">>}], + gleam@expect:equal(gleam@tuple:fetch(Proplist, 0), {ok, <<"1">>}), + gleam@expect:equal(gleam@tuple:fetch(Proplist, 1), {ok, <<"2">>}), + gleam@expect:is_error(gleam@tuple:fetch(Proplist, 2)). -- cgit v1.2.3