diff options
| author | Louis Pilfold <louis@lpil.uk> | 2019-05-29 21:02:55 +0100 |
|---|---|---|
| committer | Louis Pilfold <louis@lpil.uk> | 2019-06-02 21:12:59 +0100 |
| commit | 5a1f3494eb9517a7b7a332cb74dd10a6a7d32d31 (patch) | |
| tree | 5d0d281c66cf71c6e3ca880e6621138a71b95e7b /gen/test/std@tuple_test.erl | |
| parent | ee03f5a0465e176e220060164a5ffc408f73ed0d (diff) | |
| download | gleam_stdlib-5a1f3494eb9517a7b7a332cb74dd10a6a7d32d31.tar.gz gleam_stdlib-5a1f3494eb9517a7b7a332cb74dd10a6a7d32d31.zip | |
Enable namespaced modules
Diffstat (limited to 'gen/test/std@tuple_test.erl')
| -rw-r--r-- | gen/test/std@tuple_test.erl | 23 |
1 files changed, 23 insertions, 0 deletions
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)). |