diff options
Diffstat (limited to 'gen/tuple.erl')
-rw-r--r-- | gen/tuple.erl | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/gen/tuple.erl b/gen/tuple.erl new file mode 100644 index 0000000..270bb29 --- /dev/null +++ b/gen/tuple.erl @@ -0,0 +1,23 @@ +-module(tuple). +-compile(no_auto_import). +-include_lib("eunit/include/eunit.hrl"). + +-export([first/1, second/1]). + +first(Tup) -> + {A, _} = Tup, + A. + +-ifdef(TEST). +first_test() -> + expect:equal(first({1, 2}), 1). +-endif. + +second(Tup) -> + {_, A} = Tup, + A. + +-ifdef(TEST). +second_test() -> + expect:equal(second({1, 2}), 2). +-endif. |