1 files changed, 94 insertions, 0 deletions
diff --git a/deps/mochiweb/priv/skel/support/run_tests.escript b/deps/mochiweb/priv/skel/support/run_tests.escript
new file mode 100755
index 00000000..ff49c064
--- /dev/null
+++ b/deps/mochiweb/priv/skel/support/run_tests.escript
@@ -0,0 +1,94 @@
+#!/usr/bin/env escript
+%% -*- erlang -*-
+%%! -name mochiweb__test@127.0.0.1
+main([Ebin]) ->
+    code:add_path(Ebin),
+    code:add_paths(filelib:wildcard("../deps/*/ebin", Ebin)),
+    code:add_paths(filelib:wildcard("../deps/*/deps/*/ebin", Ebin)),
+
+    ModuleNames = [hd(string:tokens(M, "."))
+                   || "../src/" ++ M <- filelib:wildcard("../src/*.erl")],
+
+    {ok, NonTestRe} = re:compile("_tests$"),
+    Modules = [list_to_atom(M) ||
+                  M <- lists:filter(
+                         fun(M) ->
+                                 nomatch == re:run(M, NonTestRe)
+                         end,
+                         ModuleNames)],
+
+
+    crypto:start(),
+    start_cover(Modules),
+    eunit:test(Modules, [verbose,{report,{eunit_surefire,[{dir,"../_test"}]}}]),
+    analyze_cover(Modules);
+main(_) ->
+    io:format("usage: run_tests.escript EBIN_DIR~n"),
+    halt(1).
+
+start_cover(Modules) ->
+    {ok, _Cover} = cover:start(),
+    io:format("Cover compiling...~n"),
+    Compiled = [ M || {ok, M} <- [ cover:compile(
+                                     M,
+                                     [{i, "include"}
+                                     ])
+                                   || M <- Modules ] ],
+    case length(Modules) == length(Compiled) of
+        true -> ok;
+        false ->
+            io:format("Warning: the following modules were not"
+                      " cover-compiled:~n   ~p~n", [Compiled])
+    end.
+
+analyze_cover(Modules) ->
+    io:format("Analyzing cover...~n"),
+    CoverBase = filename:join(["..", "_test", "cover"]),
+    ok = filelib:ensure_dir(filename:join([CoverBase, "fake"])),
+    Coverages = lists:foldl(
+                  fun(M, Acc) ->
+                          [analyze_module(CoverBase, M)|Acc]
+                  end,
+                  [], Modules),
+    IndexFilename = filename:join([CoverBase, "index.html"]),
+    {ok, Index} = file:open(IndexFilename, [write]),
+    {LineTotal, CoverTotal} =
+        lists:foldl(fun({_,_,Lines,Covered}, {LineAcc, CovAcc}) ->
+                            {LineAcc+Lines, CovAcc+Covered}
+                    end, {0,0}, Coverages),
+    file:write(Index,
+               "<html><head><title>Coverage</title></head>\n"
+               "<body><h1>Coverage</h1><ul>\n"),
+    file:write(Index,
+               io_lib:format("<h2>Total: ~.2f%</h2>\n",
+                             [percentage(CoverTotal, LineTotal)])),
+    [ file:write(Index,
+                 io_lib:format(
+                   "<li><a href=\"~s\">~p</a>: ~.2f%</li>~n",
+                   [Filename, Module, percentage(Covered, Lines)]))
+      || {Filename, Module, Lines, Covered} <- Coverages ],
+    file:write(Index,"</ul></body></html>"),
+    file:close(Index),
+    io:format("Cover analysis in ~s~n", [IndexFilename]).
+
+analyze_module(CoverBase, Module) ->
+    {ok, Filename} =
+        cover:analyze_to_file(
+          Module,
+          filename:join(CoverBase, atom_to_list(Module)++".COVER.html"),
+          [html]),
+    Lines = count_lines(Filename, "[[:digit:]]\.\.|"),
+    Covered = count_lines(Filename, "[[:space:]]0\.\.|"),
+    {filename:basename(Filename), Module, Lines, Lines-Covered}.
+
+count_lines(Filename, Pattern) ->
+    {ok, [Lines],_} = io_lib:fread(
+                        "~d",
+                        os:cmd(io_lib:format("grep -e \"~s\" ~s | wc -l",
+                                             [Pattern, Filename]))),
+    Lines.
+
+percentage(_, 0) -> 1000.0;
+percentage(Part, Total) ->
+    (Part/Total)*100.
+