diff options
| author | Björn Gustavsson <[email protected]> | 2016-04-29 09:53:53 +0200 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2016-04-29 09:53:53 +0200 |
| commit | e142c20d5d751c0b9ba8c059249097b459ac329e (patch) | |
| tree | 20e75ba6dfef1fd0fe4faaf2b59133ea95917d4c /lib/compiler/test/match_SUITE.erl | |
| parent | c20930a3fb9022d253302881a852f06f27091ad7 (diff) | |
| parent | c42c535cf4f16a7baa0c8839608a446f184e9901 (diff) | |
| download | otp-e142c20d5d751c0b9ba8c059249097b459ac329e.tar.gz otp-e142c20d5d751c0b9ba8c059249097b459ac329e.tar.bz2 otp-e142c20d5d751c0b9ba8c059249097b459ac329e.zip | |
Merge branch 'bjorn/compiler/core-erlang-fixes'
* bjorn/compiler/core-erlang-fixes:
Slightly optimize core_pp
v3_core: Don't depend on sys_core_fold for cleaning up
Diffstat (limited to 'lib/compiler/test/match_SUITE.erl')
| -rw-r--r-- | lib/compiler/test/match_SUITE.erl | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lib/compiler/test/match_SUITE.erl b/lib/compiler/test/match_SUITE.erl index 45d84a7b80..92a9802cad 100644 --- a/lib/compiler/test/match_SUITE.erl +++ b/lib/compiler/test/match_SUITE.erl @@ -150,6 +150,9 @@ aliases(Config) when is_list(Config) -> none = mixed_aliases({a,42}), none = mixed_aliases(42), + %% Non-matching aliases. + {'EXIT',{{badmatch,42},_}} = (catch nomatch_alias(42)), + ok. str_alias(V) -> @@ -259,6 +262,10 @@ mixed_aliases(<<X:8>> = {a,X}) -> {c,X}; mixed_aliases([X] = <<X:8>>) -> {d,X}; mixed_aliases(_) -> none. +nomatch_alias(I) -> + {ok={A,B}} = id(I), + {A,B}. + %% OTP-7018. match_in_call(Config) when is_list(Config) -> |