diff options
Diffstat (limited to 'lib/compiler/test/beam_except_SUITE.erl')
-rw-r--r-- | lib/compiler/test/beam_except_SUITE.erl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lib/compiler/test/beam_except_SUITE.erl b/lib/compiler/test/beam_except_SUITE.erl index 95e5989081..2bc805be71 100644 --- a/lib/compiler/test/beam_except_SUITE.erl +++ b/lib/compiler/test/beam_except_SUITE.erl @@ -135,14 +135,18 @@ coverage(_) -> {'EXIT',{function_clause,[{?MODULE,foobar,[[fail],1,2], [{file,"fake.erl"},{line,16}]}|_]}} = (catch foobar([fail], 1, 2)), + {'EXIT',{function_clause,[{?MODULE,fake_function_clause1,[{a,b},42.0],_}|_]}} = (catch fake_function_clause1({a,b})), {'EXIT',{function_clause,[{?MODULE,fake_function_clause2,[42|bad_tl],_}|_]}} = (catch fake_function_clause2(42, bad_tl)), + {'EXIT',{function_clause,[{?MODULE,fake_function_clause3,[x,y],_}|_]}} = (catch fake_function_clause3(42, id([x,y]))), + {'EXIT',{{function_clause,a,b,c}, _}} = catch fake_function_clause4(), + {'EXIT',{{badmatch,0.0},_}} = (catch coverage_1(id(42))), {'EXIT',{badarith,_}} = (catch coverage_1(id(a))), @@ -153,9 +157,13 @@ coverage_1(X) -> true = 0 / X. fake_function_clause1(A) -> error(function_clause, [A,42.0]). + fake_function_clause2(A, Tl) -> error(function_clause, [A|Tl]). + fake_function_clause3(_, Stk) -> error(function_clause, Stk). +fake_function_clause4() -> error({function_clause,a,b,c}). + binary_construction_allocation(_Config) -> ok = do_binary_construction_allocation("PUT"), ok. |