diff options
| author | Björn Gustavsson <[email protected]> | 2009-12-10 14:09:51 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2009-12-13 15:42:42 +0100 |
| commit | 1fe894432615e35f4ecbe3a33f8ba2ded21f8096 (patch) | |
| tree | 057b466efc2dbe84feb372df23e2d3130e520c60 /lib/kernel/test/code_SUITE_data | |
| parent | 7ab33f49185d5a416198f1e0bf5a2ca9f347bbac (diff) | |
| download | otp-1fe894432615e35f4ecbe3a33f8ba2ded21f8096.tar.gz otp-1fe894432615e35f4ecbe3a33f8ba2ded21f8096.tar.bz2 otp-1fe894432615e35f4ecbe3a33f8ba2ded21f8096.zip | |
Test on_load functions that don't return 'ok'
Diffstat (limited to 'lib/kernel/test/code_SUITE_data')
| -rw-r--r-- | lib/kernel/test/code_SUITE_data/on_load_errors/on_load_error.erl | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/lib/kernel/test/code_SUITE_data/on_load_errors/on_load_error.erl b/lib/kernel/test/code_SUITE_data/on_load_errors/on_load_error.erl new file mode 100644 index 0000000000..0772050aeb --- /dev/null +++ b/lib/kernel/test/code_SUITE_data/on_load_errors/on_load_error.erl @@ -0,0 +1,13 @@ +-module(on_load_error). +-on_load(on_load/0). +-export([main/0]). + +on_load() -> + ?MASTER ! {?MODULE,self()}, + receive + fail -> erlang:error(failed); + Ret -> Ret + end. + +main() -> + ok. |