From 1fe894432615e35f4ecbe3a33f8ba2ded21f8096 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Gustavsson?= <bjorn@erlang.org>
Date: Thu, 10 Dec 2009 14:09:51 +0100
Subject: Test on_load functions that don't return 'ok'

---
 .../test/code_SUITE_data/on_load_errors/on_load_error.erl   | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 lib/kernel/test/code_SUITE_data/on_load_errors/on_load_error.erl

(limited to 'lib/kernel/test/code_SUITE_data')

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.
-- 
cgit v1.2.3