File 2153-compiler-Add-regression-tests.patch of Package erlang

Overview Repositories Revisions Requests Users Attributes Meta

File 2153-compiler-Add-regression-tests.patch of Package erlang (Revision da26e46788ba37fbba7ad067c8eca967)

Currently displaying revision da26e46788ba37fbba7ad067c8eca967 , Show latest

From 3ea07934071541d70d8016447b0194c8b551c104 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn-Egil=20Dahlberg?= <egil@erlang.org>
Date: Fri, 16 Sep 2016 17:36:26 +0200
Subject: [PATCH 3/3] compiler: Add regression tests

---
 lib/compiler/test/regressions_SUITE.erl | 19 +++++++++++++++----
 1 file changed, 15 insertions(+), 4 deletions(-)

diff --git a/lib/compiler/test/regressions_SUITE.erl b/lib/compiler/test/regressions_SUITE.erl
index 7d2c2ac97..7a6fe08c7 100644
--- a/lib/compiler/test/regressions_SUITE.erl
+++ b/lib/compiler/test/regressions_SUITE.erl
@@ -24,7 +24,7 @@
 -export([all/0,groups/0,init_per_testcase/2,end_per_testcase/2,suite/0]).
 -export([maps/1]).
 
-groups() -> 
+groups() ->
     [{p,test_lib:parallel(),
       [maps]}].
 
@@ -38,7 +38,7 @@ suite() ->
     [{ct_hooks,[ts_install_cth]},
      {timetrap,{minutes,2}}].
 
-all() -> 
+all() ->
     test_lib:recompile(?MODULE),
     [{group,p}].
 
@@ -48,7 +48,18 @@ maps(Config) when is_list(Config) ->
     Ts = [{beam_bool_get_elements,
            <<"century(#{ron := operator}, _century) ->
                   if 0.0; _century, _century, _century -> _century end.
-           ">>}],
+           ">>},
+          {empty_map_clauses,
+           <<"politics(#{}, researchers) -> concerned;
+              politics(#{[] := _}, workers) -> dot;
+              politics(#{[] := ct}, counsel) -> calls.
+             ">>},
+          {empty_map_clauses_variable,
+           <<"georgia(#{a := effectively}, ratio, is, eventually) -> teens;
+              georgia(#{a := government}, knowledge, poker, partly) -> signed;
+              georgia(#{}, recording, bring, vital) -> divided;
+              georgia(#{0 := 0}, articles, brought, #{true := true, a := There}) -> There.
+             ">>}],
     ok = run(Config, Ts),
     ok.
 
@@ -58,7 +69,7 @@ run(Config, Tests) ->
     F = fun({N,P}) ->
                 io:format("Compiling test for: ~w~n", [N]),
                 case catch run_test(Config, P) of
-                    {'EXIT', Reason} -> 
+                    {'EXIT', Reason} ->
                         io:format("~nTest ~p failed.~nReason: ~p~n",
 				  [N, Reason]),
                         fail();
-- 
2.11.0

Places

File 2153-compiler-Add-regression-tests.patch of Package erlang (Revision da26e46788ba37fbba7ad067c8eca967)

Places