aboutsummaryrefslogtreecommitdiffstats
path: root/lib/compiler/test
diff options
context:
space:
mode:
authorBjörn Gustavsson <[email protected]>2014-03-04 12:26:50 +0100
committerBjörn Gustavsson <[email protected]>2014-03-04 12:26:50 +0100
commit77b1aeaa1a663056d228a8d65cdf1daee5bfe51d (patch)
treeb97ca22e0860170eed6acd3fc4adce66a72df86b /lib/compiler/test
parent54a5b030d15b27710c3a54ea363a5b6ec4c2f7c8 (diff)
parent1b8ad68361db59477013bf96e485d5293723ff42 (diff)
downloadotp-77b1aeaa1a663056d228a8d65cdf1daee5bfe51d.tar.gz
otp-77b1aeaa1a663056d228a8d65cdf1daee5bfe51d.tar.bz2
otp-77b1aeaa1a663056d228a8d65cdf1daee5bfe51d.zip
Merge branch 'nox/compiler/v3_core-mismatched-apply'
* nox/compiler/v3_core-mismatched-apply: Do not emit blatantly illformed Core Erlang apply expressions
Diffstat (limited to 'lib/compiler/test')
-rw-r--r--lib/compiler/test/fun_SUITE.erl8
1 files changed, 6 insertions, 2 deletions
diff --git a/lib/compiler/test/fun_SUITE.erl b/lib/compiler/test/fun_SUITE.erl
index e35692efd1..25b7f677b5 100644
--- a/lib/compiler/test/fun_SUITE.erl
+++ b/lib/compiler/test/fun_SUITE.erl
@@ -21,7 +21,7 @@
-export([all/0, suite/0,groups/0,init_per_suite/1, end_per_suite/1,
init_per_group/2,end_per_group/2,
test1/1,overwritten_fun/1,otp_7202/1,bif_fun/1,
- external/1,eep37/1]).
+ external/1,eep37/1,badarity/1]).
%% Internal export.
-export([call_me/1]).
@@ -32,7 +32,7 @@ suite() -> [{ct_hooks,[ts_install_cth]}].
all() ->
test_lib:recompile(?MODULE),
- [test1,overwritten_fun,otp_7202,bif_fun,external,eep37].
+ [test1,overwritten_fun,otp_7202,bif_fun,external,eep37,badarity].
groups() ->
[].
@@ -206,5 +206,9 @@ eep37(Config) when is_list(Config) ->
50 = UnusedName(8),
ok.
+badarity(Config) when is_list(Config) ->
+ {'EXIT',{{badarity,{_,[]}},_}} = (catch (fun badarity/1)()),
+ ok.
+
id(I) ->
I.