aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorBjörn Gustavsson <[email protected]>2015-09-08 14:21:17 +0200
committerBjörn Gustavsson <[email protected]>2015-09-11 12:24:37 +0200
commitc54430d8d47993ccc10651d2049961b4ab122a90 (patch)
tree163fd014c413dd42444c82378b06707c35d6c05b
parent8cbbc7b8577b4aecf681c38cd03c3387f7e605ca (diff)
downloadotp-c54430d8d47993ccc10651d2049961b4ab122a90.tar.gz
otp-c54430d8d47993ccc10651d2049961b4ab122a90.tar.bz2
otp-c54430d8d47993ccc10651d2049961b4ab122a90.zip
lists_SUITE: Test lists:concat/2
-rw-r--r--lib/stdlib/test/lists_SUITE.erl10
1 files changed, 8 insertions, 2 deletions
diff --git a/lib/stdlib/test/lists_SUITE.erl b/lib/stdlib/test/lists_SUITE.erl
index c84b4d9a5d..5a447d58a4 100644
--- a/lib/stdlib/test/lists_SUITE.erl
+++ b/lib/stdlib/test/lists_SUITE.erl
@@ -63,7 +63,7 @@
filter_partition/1,
otp_5939/1, otp_6023/1, otp_6606/1, otp_7230/1,
prefix/1, suffix/1, subtract/1, droplast/1, hof/1,
- split/1]).
+ split/1, concat/1]).
%% Sort randomized lists until stopped.
%%
@@ -125,7 +125,7 @@ groups() ->
{zip, [parallel], [zip_unzip, zip_unzip3, zipwith, zipwith3]},
{misc, [parallel], [reverse, member, dropwhile, takewhile,
filter_partition, prefix, suffix, subtract,
- hof, split]}
+ hof, split, concat]}
].
init_per_suite(Config) ->
@@ -2788,3 +2788,9 @@ do_split_1(N, Len, List) ->
LenB = length(B),
LenB = Len - N,
do_split_1(N+1, Len, List).
+
+%% Test lists:concat/1 mainly for coverage.
+concat(Config) when is_list(Config) ->
+ S = integer_to_list(42) ++ "pi: " ++ float_to_list(math:pi()),
+ S = lists:concat([42,pi,": ",math:pi()]),
+ ok.