Merge branch 'bjorn/compiler/cuddle-with-tests'

* bjorn/compiler/cuddle-with-tests:
  compilation_SUITE: Use explicit exports
  Remove support for running tests on a separate Erlang node
  Move code from compilation_SUITE to beam_block_SUITE
  Move list comprehension tests to lc_SUITE
  Move catch tests to trycatch_SUITE
  Remove compilation_SUITE:long_string/1
  Move pattern-matching tests to match_SUITE
  Remove toothless test compile_SUITE:missing_testheap/1
  misc_SUITE: Add missing export of integer_encoding/0
  Move test cases from compilation_SUITE to beam_utils_SUITE
  Move complex_guard/1 from compilation_SUITE to guard_SUITE
  Remove compilation_SUITE:guards/1
  Move tests from compilation_SUITE to record_SUITE
  Move bit syntax test cases from compilation_SUITE to bs_match_SUITE
  Remove useless test case compilation_SUITE:otp_2141/1
  compilation_SUITE: Run the Core linter for all compilations

1 files changed, 12 insertions, 0 deletions

diff --git a/lib/compiler/test/lc_SUITE.erl b/lib/compiler/test/lc_SUITE.erl
index dd0bcb4245..3cb49433ce 100644
--- a/lib/compiler/test/lc_SUITE.erl
+++ b/lib/compiler/test/lc_SUITE.erl
@@ -89,6 +89,18 @@ basic(Config) when is_list(Config) ->
     %% Filter expressions with andalso/orelse.
     "abc123" = alphanum("?abc123.;"),
 
+    %% Aliased patterns.
+    [] = [t || {C=D}={_,_} <- []],
+    [] = [X || {X,{Y}={X,X}} <- []],
+    [t] = [t || "a"++"b" = "ab" <- ["ab"]],
+
+    %% Strange filter block.
+    [] = [{X,Y} || {X} <- [], begin Y = X, Y =:= X end],
+    [{a,a}] = [{X,Y} || {X} <- [{a}], begin Y = X, Y =:= X end],
+
+    %% Not matching.
+    [] = [3 || {3=4} <- []],
+
     %% Error cases.
     [] = [{xx,X} || X <- L0, element(2, X) == no_no_no],
     {'EXIT',_} = (catch [X || X <- L1, list_to_atom(X) == dum]),