diff options
| author | Robert Peterson <robert.peterson@gmail.com> | 2019-04-17 10:33:42 -0700 |
|---|---|---|
| committer | Louis Pilfold <louis@lpil.uk> | 2019-04-17 22:14:16 +0100 |
| commit | 6af96f1c5eb9bca79b8b8751f8f2d7292f959a75 (patch) | |
| tree | 135248312a371009e0467326dc5a513bfb696465 /gen/test/list_test.erl | |
| parent | e5c151ddfe1d083336ae0e912418cf1e35a954ec (diff) | |
| download | gleam_stdlib-6af96f1c5eb9bca79b8b8751f8f2d7292f959a75.tar.gz gleam_stdlib-6af96f1c5eb9bca79b8b8751f8f2d7292f959a75.zip | |
Add list:intersperse list:at list:unique list:sort
Diffstat (limited to 'gen/test/list_test.erl')
| -rw-r--r-- | gen/test/list_test.erl | 24 |
1 files changed, 23 insertions, 1 deletions
diff --git a/gen/test/list_test.erl b/gen/test/list_test.erl index 9cb1ac3..6105a88 100644 --- a/gen/test/list_test.erl +++ b/gen/test/list_test.erl @@ -1,7 +1,7 @@ -module(list_test). -compile(no_auto_import). --export([length_test/0, reverse_test/0, is_empty_test/0, contains_test/0, head_test/0, tail_test/0, filter_test/0, map_test/0, traverse_test/0, drop_test/0, take_test/0, new_test/0, append_test/0, flatten_test/0, fold_test/0, fold_right_test/0, find_test/0, all_test/0, any_test/0, zip_test/0]). +-export([length_test/0, reverse_test/0, is_empty_test/0, contains_test/0, head_test/0, tail_test/0, filter_test/0, map_test/0, traverse_test/0, drop_test/0, take_test/0, new_test/0, append_test/0, flatten_test/0, fold_test/0, fold_right_test/0, find_test/0, all_test/0, any_test/0, zip_test/0, intersperse_test/0, at_test/0, unique_test/0, sort_test/0]). length_test() -> expect:equal(list:length([]), 0), @@ -110,3 +110,25 @@ zip_test() -> expect:equal(list:zip([1, 2, 3], [4, 5, 6]), [{1, 4}, {2, 5}, {3, 6}]), expect:equal(list:zip([5, 6], [1, 2, 3]), [{5, 1}, {6, 2}]), expect:equal(list:zip([5, 6, 7], [1, 2]), [{5, 1}, {6, 2}]). + +intersperse_test() -> + expect:equal(list:intersperse([1, 2, 3], 4), [1, 4, 2, 4, 3]), + expect:equal(list:intersperse([], 2), []). + +at_test() -> + expect:equal(list:at([1, 2, 3], 2), {ok, 3}), + expect:is_error(list:at([1, 2, 3], 5)), + expect:is_error(list:at([], 0)), + expect:is_error(list:at([1, 2, 3, 4, 5, 6], -1)). + +unique_test() -> + expect:equal(list:unique([1, 1, 2, 3, 4, 4, 4, 5, 6]), [1, 2, 3, 4, 5, 6]), + expect:equal(list:unique([7, 1, 45, 6, 2, 47, 2, 7, 5]), + [7, 1, 45, 6, 2, 47, 5]), + expect:equal(list:unique([3, 4, 5]), [3, 4, 5]), + expect:equal(list:unique([]), []). + +sort_test() -> + expect:equal(list:sort([4, 3, 6, 5, 4]), [3, 4, 4, 5, 6]), + expect:equal(list:sort([]), []), + expect:equal(list:sort([{1, 2}, {4, 5}, {3, 2}]), [{1, 2}, {3, 2}, {4, 5}]). |