diff options
| author | Erlang/OTP <[email protected]> | 2010-05-12 11:53:23 +0000 |
|---|---|---|
| committer | Erlang/OTP <[email protected]> | 2010-05-12 11:53:23 +0000 |
| commit | 653c401730ffa4c00fc08d8a4702aea00ed34d76 (patch) | |
| tree | 8b35059bbc2643858b0923a6ce8e44768a53e4dd /lib/compiler/test | |
| parent | b5295964210011f0918a02807799426f3d2300a3 (diff) | |
| parent | 36ad0688fd0c9125717fa5c3e6aa46c7040956dd (diff) | |
| download | otp-653c401730ffa4c00fc08d8a4702aea00ed34d76.tar.gz otp-653c401730ffa4c00fc08d8a4702aea00ed34d76.tar.bz2 otp-653c401730ffa4c00fc08d8a4702aea00ed34d76.zip | |
Merge branch 'bg/compiler-attributes' into dev
* bg/compiler-attributes:
Remove opaque declarations from the attributes
Diffstat (limited to 'lib/compiler/test')
| -rw-r--r-- | lib/compiler/test/misc_SUITE.erl | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lib/compiler/test/misc_SUITE.erl b/lib/compiler/test/misc_SUITE.erl index c015af788b..793c53ac31 100644 --- a/lib/compiler/test/misc_SUITE.erl +++ b/lib/compiler/test/misc_SUITE.erl @@ -24,6 +24,10 @@ -include("test_server.hrl"). +%% Include an opaque declaration to cover the stripping of +%% opaque types from attributes in v3_kernel. +-opaque misc_SUITE_test_cases() :: [atom()]. + init_per_testcase(Case, Config) when is_atom(Case), is_list(Config) -> Dog = test_server:timetrap(?t:minutes(10)), [{watchdog,Dog}|Config]. @@ -33,6 +37,8 @@ fin_per_testcase(Case, Config) when is_atom(Case), is_list(Config) -> ?t:timetrap_cancel(Dog), ok. +-spec all(any()) -> misc_SUITE_test_cases(). + all(suite) -> test_lib:recompile(?MODULE), [tobias,empty_string,md5,silly_coverage,confused_literals, @@ -92,7 +98,7 @@ md5_1(Beam) -> silly_coverage(Config) when is_list(Config) -> %% sys_core_fold, sys_core_setel, v3_kernel BadCoreErlang = {c_module,[], - name,exports,attrs, + name,[],[], [{{c_var,[],{foo,2}},seriously_bad_body}]}, ?line expect_error(fun() -> sys_core_fold:module(BadCoreErlang, []) end), ?line expect_error(fun() -> sys_core_dsetel:module(BadCoreErlang, []) end), |