From 6af96f1c5eb9bca79b8b8751f8f2d7292f959a75 Mon Sep 17 00:00:00 2001 From: Robert Peterson Date: Wed, 17 Apr 2019 10:33:42 -0700 Subject: Add list:intersperse list:at list:unique list:sort --- gen/test/list_test.erl | 24 +++++++++++++++++++++++- 1 file changed, 23 insertions(+), 1 deletion(-) (limited to 'gen/test') 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}]). -- cgit v1.2.3