aboutsummaryrefslogtreecommitdiffstats
path: root/lib/kernel/test/code_SUITE_data
diff options
context:
space:
mode:
authorBjörn Gustavsson <[email protected]>2009-12-10 14:09:51 +0100
committerBjörn Gustavsson <[email protected]>2009-12-13 15:42:42 +0100
commit1fe894432615e35f4ecbe3a33f8ba2ded21f8096 (patch)
tree057b466efc2dbe84feb372df23e2d3130e520c60 /lib/kernel/test/code_SUITE_data
parent7ab33f49185d5a416198f1e0bf5a2ca9f347bbac (diff)
downloadotp-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.erl13
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.