From 5a1f3494eb9517a7b7a332cb74dd10a6a7d32d31 Mon Sep 17 00:00:00 2001 From: Louis Pilfold Date: Wed, 29 May 2019 21:02:55 +0100 Subject: Enable namespaced modules --- gen/test/std@tuple_test.erl | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 gen/test/std@tuple_test.erl (limited to 'gen/test/std@tuple_test.erl') diff --git a/gen/test/std@tuple_test.erl b/gen/test/std@tuple_test.erl new file mode 100644 index 0000000..a401daf --- /dev/null +++ b/gen/test/std@tuple_test.erl @@ -0,0 +1,23 @@ +-module(std@tuple_test). +-compile(no_auto_import). + +-export([new_test/0, first_test/0, second_test/0, swap_test/0, fetch_test/0]). + +new_test() -> + std@expect:equal(std@tuple:new(1, 2), {1, 2}), + std@expect:equal(std@tuple:new(2, <<"3">>), {2, <<"3">>}). + +first_test() -> + std@expect:equal(std@tuple:first({1, 2}), 1). + +second_test() -> + std@expect:equal(std@tuple:second({1, 2}), 2). + +swap_test() -> + std@expect:equal(std@tuple:swap({1, <<"2">>}), {<<"2">>, 1}). + +fetch_test() -> + Proplist = [{0, <<"1">>}, {1, <<"2">>}], + std@expect:equal(std@tuple:fetch(Proplist, 0), {ok, <<"1">>}), + std@expect:equal(std@tuple:fetch(Proplist, 1), {ok, <<"2">>}), + std@expect:is_error(std@tuple:fetch(Proplist, 2)). -- cgit v1.2.3