aboutsummaryrefslogtreecommitdiffstats
path: root/lib/kernel/test/code_SUITE_data/on_load_app-1.0/src/on_load_embedded.erl
blob: b7fdd4d9ae1f7ea9a8cc566bf804a2427eb4fd2a (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
-module(on_load_embedded).
-export([status/0]).
-on_load(run_me/0).

run_me() ->
    %% An onload handler typically calls code:priv_dir/1
    %% or code:lib_dir/1, so make sure that it works.
    LibDir = code:lib_dir(on_load_app),
    PrivDir = code:priv_dir(on_load_app),
    LibDir = filename:dirname(PrivDir),
    ModPath = code:which(?MODULE),
    LibDir = filename:dirname(filename:dirname(ModPath)),

    %% Start a process to remember that the on_load was called.
    spawn(fun() ->
		  register(everything_is_fine, self()),
		  receive Any ->
			  ok
		  end
	  end),
    ok.

status() ->
    case whereis(everything_is_fine) of
	Pid when is_pid(Pid) ->
	    ok
    end.