diff options
| author | Björn Gustavsson <[email protected]> | 2014-03-06 10:57:00 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2014-03-06 11:46:55 +0100 |
| commit | 0399f680a60d5c79373a683b3fc77779db999a31 (patch) | |
| tree | c896a7a57f5e5f7259ed616338fc23fdc062ec44 /lib/compiler/test/lc_SUITE.erl | |
| parent | ff107aa1a9b7a12f72a6b5a3ab00e0088b1c2bd9 (diff) | |
| parent | 313c6f2cdb7ebd9d64dcb333e031045ccaf43531 (diff) | |
| download | otp-0399f680a60d5c79373a683b3fc77779db999a31.tar.gz otp-0399f680a60d5c79373a683b3fc77779db999a31.tar.bz2 otp-0399f680a60d5c79373a683b3fc77779db999a31.zip | |
Merge branch 'nox/compiler/v3_core-comprehension-no-export'
* nox/compiler/v3_core-comprehension-no-export:
Do not export variables from comprehension cases in v3_core
OTP-11770
Diffstat (limited to 'lib/compiler/test/lc_SUITE.erl')
| -rw-r--r-- | lib/compiler/test/lc_SUITE.erl | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lib/compiler/test/lc_SUITE.erl b/lib/compiler/test/lc_SUITE.erl index f5948504b3..398398a397 100644 --- a/lib/compiler/test/lc_SUITE.erl +++ b/lib/compiler/test/lc_SUITE.erl @@ -23,7 +23,7 @@ init_per_group/2,end_per_group/2, init_per_testcase/2,end_per_testcase/2, basic/1,deeply_nested/1,no_generator/1, - empty_generator/1]). + empty_generator/1,no_export/1]). -include_lib("test_server/include/test_server.hrl"). @@ -31,7 +31,7 @@ suite() -> [{ct_hooks,[ts_install_cth]}]. all() -> test_lib:recompile(?MODULE), - [basic, deeply_nested, no_generator, empty_generator]. + [basic, deeply_nested, no_generator, empty_generator, no_export]. groups() -> []. @@ -177,6 +177,10 @@ empty_generator(Config) when is_list(Config) -> ?line [] = [X || {X} <- [], (false or (X/0 > 3))], ok. +no_export(Config) when is_list(Config) -> + [] = [ _X = a || false ] ++ [ _X = a || false ], + ok. + id(I) -> I. fc(Args, {'EXIT',{function_clause,[{?MODULE,_,Args,_}|_]}}) -> ok; |