diff options
| author | Björn Gustavsson <[email protected]> | 2015-09-08 14:21:17 +0200 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2015-09-11 12:24:37 +0200 |
| commit | c54430d8d47993ccc10651d2049961b4ab122a90 (patch) | |
| tree | 163fd014c413dd42444c82378b06707c35d6c05b | |
| parent | 8cbbc7b8577b4aecf681c38cd03c3387f7e605ca (diff) | |
| download | otp-c54430d8d47993ccc10651d2049961b4ab122a90.tar.gz otp-c54430d8d47993ccc10651d2049961b4ab122a90.tar.bz2 otp-c54430d8d47993ccc10651d2049961b4ab122a90.zip | |
lists_SUITE: Test lists:concat/2
| -rw-r--r-- | lib/stdlib/test/lists_SUITE.erl | 10 |
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. |