diff options
Diffstat (limited to 'lib/compiler/test/lc_SUITE.erl')
-rw-r--r-- | lib/compiler/test/lc_SUITE.erl | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/lib/compiler/test/lc_SUITE.erl b/lib/compiler/test/lc_SUITE.erl index 7d30f1c74f..5de383f928 100644 --- a/lib/compiler/test/lc_SUITE.erl +++ b/lib/compiler/test/lc_SUITE.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2001-2021. All Rights Reserved. +%% Copyright Ericsson AB 2001-2023. All Rights Reserved. %% %% Licensed under the Apache License, Version 2.0 (the "License"); %% you may not use this file except in compliance with the License. @@ -124,6 +124,11 @@ basic(Config) when is_list(Config) -> [{file,"bad_lc.erl"},{line,7}]}|_]}} = (catch id(bad_generator_bc(a))), + {'EXIT',{{bad_generator,a}, + [{?MODULE,_,_, + [{file,"bad_lc.erl"},{line,10}]}|_]}} = + (catch id(bad_generator_mc(a))), + %% List comprehensions with improper lists. {'EXIT',{{bad_generator,d}, [{?MODULE,_,_, @@ -273,3 +278,6 @@ bad_generator(List) -> %Line 2 bad_generator_bc(List) -> %Line 5 << <<I:4>> || %Line 6 I <- List>>. %Line 7 +bad_generator_mc(List) -> %Line 8 + #{I => ok || %Line 9 + I <- List}. %Line 10 |