diff options
| author | Björn Gustavsson <[email protected]> | 2010-03-18 13:51:28 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2010-03-26 08:09:26 +0100 |
| commit | f1e60ef101b6bb6e262c2387cf1b408c66b94c31 (patch) | |
| tree | a0ff680fb454970229598c875cdc36be7abb53d3 /lib/compiler/test/lc_SUITE.erl | |
| parent | 0320836d1b58438ef4467832b00306672d22f8d6 (diff) | |
| download | otp-f1e60ef101b6bb6e262c2387cf1b408c66b94c31.tar.gz otp-f1e60ef101b6bb6e262c2387cf1b408c66b94c31.tar.bz2 otp-f1e60ef101b6bb6e262c2387cf1b408c66b94c31.zip | |
compiler tests: Compile a few more modules with 'inline'
Since a function_clause exception in an inlined function will
be changed to a case_clause exception, we must test for both.
Diffstat (limited to 'lib/compiler/test/lc_SUITE.erl')
| -rw-r--r-- | lib/compiler/test/lc_SUITE.erl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lib/compiler/test/lc_SUITE.erl b/lib/compiler/test/lc_SUITE.erl index e62b2cd77e..2960615b7e 100644 --- a/lib/compiler/test/lc_SUITE.erl +++ b/lib/compiler/test/lc_SUITE.erl @@ -66,8 +66,7 @@ basic(Config) when is_list(Config) -> ?line {'EXIT',_} = (catch [X || X <- L1, list_to_atom(X) == dum]), ?line [] = [X || X <- L1, X+1 < 2], ?line {'EXIT',_} = (catch [X || X <- L1, odd(X)]), - ?line {'EXIT',{function_clause,[{?MODULE,_,[x]}|_]}} = - (catch [E || E <- id(x)]), + ?line fc([x], catch [E || E <- id(x)]), ok. tuple_list() -> @@ -160,3 +159,7 @@ empty_generator(Config) when is_list(Config) -> id(I) -> I. +fc(Args, {'EXIT',{function_clause,[{?MODULE,_,Args}|_]}}) -> ok; +fc(Args, {'EXIT',{{case_clause,ActualArgs},_}}) + when ?MODULE =:= lc_inline_SUITE -> + Args = tuple_to_list(ActualArgs). |