Initial commit

build/dev/javascript/gleeunit/gleeunit_ffi.erl

@@ -0,0 +1,21 @@
+-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.
+