From 6b39473811ed8b10f6ee08f2871b971e702317bd Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bj=C3=B6rn=20Gustavsson?= Date: Tue, 8 Sep 2015 13:46:56 +0200 Subject: lists_SUITE: Add a test case for lists:prefix/2 --- lib/stdlib/test/lists_SUITE.erl | 17 +++++++++++++++-- 1 file changed, 15 insertions(+), 2 deletions(-) (limited to 'lib/stdlib/test') diff --git a/lib/stdlib/test/lists_SUITE.erl b/lib/stdlib/test/lists_SUITE.erl index a0f7fd2744..175eb29af9 100644 --- a/lib/stdlib/test/lists_SUITE.erl +++ b/lib/stdlib/test/lists_SUITE.erl @@ -62,7 +62,7 @@ zip_unzip/1, zip_unzip3/1, zipwith/1, zipwith3/1, filter_partition/1, otp_5939/1, otp_6023/1, otp_6606/1, otp_7230/1, - suffix/1, subtract/1, droplast/1, hof/1]). + prefix/1, suffix/1, subtract/1, droplast/1, hof/1]). %% Sort randomized lists until stopped. %% @@ -123,7 +123,7 @@ groups() -> {tickets, [parallel], [otp_5939, otp_6023, otp_6606, otp_7230]}, {zip, [parallel], [zip_unzip, zip_unzip3, zipwith, zipwith3]}, {misc, [parallel], [reverse, member, dropwhile, takewhile, - filter_partition, suffix, subtract, + filter_partition, prefix, suffix, subtract, hof]} ]. @@ -2629,6 +2629,19 @@ otp_6606(Config) when is_list(Config) -> ?line L2 = lists:sort(L2), ok. +%% Test lists:prefix/2. +prefix(Config) when is_list(Config) -> + true = lists:prefix([], []), + true = lists:prefix([], lists:seq(1, 10)), + true = lists:prefix([a], [a,b]), + true = lists:prefix(lists:seq(1, 10), lists:seq(1, 100)), + + false = lists:prefix([a], []), + false = lists:prefix([a], [b]), + false = lists:prefix([a], [b,a]), + + ok. + %% Test lists:suffix/2. suffix(Config) when is_list(Config) -> ?line true = lists:suffix([], []), -- cgit v1.2.3