22 lines
561 B
Erlang
22 lines
561 B
Erlang
-module(gleeunit_ffi).
|
|
|
|
-export([find_files/2, run_eunit/2]).
|
|
|
|
find_files(Pattern, In) ->
|
|
Results = filelib:wildcard(binary_to_list(Pattern), binary_to_list(In)),
|
|
lists:map(fun list_to_binary/1, Results).
|
|
|
|
run_eunit(Tests, Options) ->
|
|
case code:which(eunit) of
|
|
non_existing ->
|
|
gleeunit@internal@reporting:eunit_missing();
|
|
|
|
_ ->
|
|
case eunit:test(Tests, Options) of
|
|
ok -> {ok, nil};
|
|
error -> {error, nil};
|
|
{error, Term} -> {error, Term}
|
|
end
|
|
end.
|
|
|