diff options
| author | Björn Gustavsson <[email protected]> | 2019-02-01 12:43:16 +0100 |
|---|---|---|
| committer | GitHub <[email protected]> | 2019-02-01 12:43:16 +0100 |
| commit | bc0aef4bb631acbf0b8e8fd8ecc51cb1286ed8c9 (patch) | |
| tree | 18f624560887fc5d5cace679e5fd0e9d0f6c94c7 /lib/compiler/test | |
| parent | 572e233d8e5b1c894cfba0ce77cdb1426b946be2 (diff) | |
| parent | 53f85bfa09fa0aea9718c207d4245cb975eb6b08 (diff) | |
| download | otp-bc0aef4bb631acbf0b8e8fd8ecc51cb1286ed8c9.tar.gz otp-bc0aef4bb631acbf0b8e8fd8ecc51cb1286ed8c9.tar.bz2 otp-bc0aef4bb631acbf0b8e8fd8ecc51cb1286ed8c9.zip | |
Merge pull request #2122 from bjorng/bjorn/compiler/fix-beam_except
Fix internal consistency failure caused by beam_except
Diffstat (limited to 'lib/compiler/test')
| -rw-r--r-- | lib/compiler/test/beam_except_SUITE.erl | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/lib/compiler/test/beam_except_SUITE.erl b/lib/compiler/test/beam_except_SUITE.erl index 49acad2bc5..9380fe06c8 100644 --- a/lib/compiler/test/beam_except_SUITE.erl +++ b/lib/compiler/test/beam_except_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, - multiple_allocs/1,coverage/1]). + multiple_allocs/1,bs_get_tail/1,coverage/1]). suite() -> [{ct_hooks,[ts_install_cth]}]. @@ -31,6 +31,7 @@ all() -> groups() -> [{p,[parallel], [multiple_allocs, + bs_get_tail, coverage]}]. init_per_suite(Config) -> @@ -63,6 +64,17 @@ place(lee) -> conditions() -> (talking = going) = storage + [large = wanted]. +bs_get_tail(Config) -> + {<<"abc">>,0,0,Config} = bs_get_tail_1(id(<<0:32, "abc">>), 0, 0, Config), + {'EXIT', + {function_clause, + [{?MODULE,bs_get_tail_1,[<<>>,0,0,Config],_}|_]}} = + (catch bs_get_tail_1(id(<<>>), 0, 0, Config)), + ok. + +bs_get_tail_1(<<_:32, Rest/binary>>, Z1, Z2, F1) -> + {Rest,Z1,Z2,F1}. + coverage(_) -> File = {file,"fake.erl"}, ok = fc(a), @@ -99,6 +111,8 @@ coverage(_) -> fake_function_clause(A) -> error(function_clause, [A,42.0]). +id(I) -> I. + -file("fake.erl", 1). fc(a) -> %Line 2 ok; %Line 3 |