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
28
29
30
31
32
33
34
35
36
37
|
-module(test_helper).
-export([test/0, run_and_remove/2, throw_elixir/1, throw_erlang/1]).
-define(TESTS, [
atom_test,
control_test,
function_test,
string_test,
tokenizer_test
]).
test() ->
application:ensure_all_started(elixir),
case eunit:test(?TESTS) of
error -> erlang:halt(1);
_Res -> erlang:halt(0)
end.
% Execute a piece of code and purge given modules right after
run_and_remove(Fun, Modules) ->
try
Fun()
after
[code:purge(Module) || Module <- Modules],
[code:delete(Module) || Module <- Modules]
end.
% Throws an error with the Erlang Abstract Form from the Elixir string
throw_elixir(String) ->
Forms = elixir:'string_to_quoted!'(String, 1, 1, <<"nofile">>, []),
{Expr, _, _, _} = elixir:quoted_to_erl(Forms, elixir:env_for_eval([])),
erlang:error(io:format("~p~n", [Expr])).
% Throws an error with the Erlang Abstract Form from the Erlang string
throw_erlang(String) ->
{ok, Tokens, _} = erl_scan:string(String),
{ok, [Form]} = erl_parse:parse_exprs(Tokens),
erlang:error(io:format("~p~n", [Form])).
|
