1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
-module(gleam@pair_test).
-compile(no_auto_import).
-export([first_test/0, second_test/0, swap_test/0]).
first_test() ->
gleam@expect:equal(gleam@pair:first({1, 2}), 1),
gleam@expect:equal(gleam@pair:first({<<"abc">>, []}), <<"abc">>).
second_test() ->
gleam@expect:equal(gleam@pair:second({1, 2}), 2),
gleam@expect:equal(gleam@pair:second({<<"abc">>, []}), []).
swap_test() ->
gleam@expect:equal(gleam@pair:swap({1, <<"2">>}), {<<"2">>, 1}).
|
