Cleaned up code and descriptions for release.

diff --git a/bin/estap b/bin/estap
index 65a32be..2b8c23e 100755 (executable)
--- a/bin/estap
+++ b/bin/estap
@@ -1,5 +1,5 @@
 #!/usr/bin/escript
-%%! -pa ebin
+%%
 %%----------------------------------------------------------------------------
 
 main([]) -> main(["--help"]);

diff --git a/src/estap.app.src b/src/estap.app.src
index e81b91b..cf8ffcd 100644 (file)
--- a/src/estap.app.src
+++ b/src/estap.app.src
@@ -1,8 +1,6 @@
 {application, estap, [
-  {description, ""},
+  {description, "escript TAP producer"},
   {vsn, "0.0.0"},
   {registered, []},
-  {applications, [kernel, stdlib, crypto]},
-  {mod, {estap_app, []}},
-  {env, []}
+  {applications, [kernel, stdlib, crypto]}
 ]}.

diff --git a/src/estap_app.erl b/src/estap_app.erl
deleted file mode 100644 (file)
index b27cf30..0000000
--- a/src/estap_app.erl
+++ /dev/null
@@ -1,32 +0,0 @@
-%%%---------------------------------------------------------------------------
-%%% @private
-%%% @doc
-%%%   Application entry point.
-%%% @end
-%%%---------------------------------------------------------------------------
-
--module(estap_app).
-
--behaviour(application).
-
-%% application callbacks
--export([start/2, stop/1]).
-
-%%%---------------------------------------------------------------------------
-%%% application callbacks
-%%%---------------------------------------------------------------------------
-
-%% @private
-%% @doc Start the application
-
-start(_StartType, _StartArgs) ->
-  estap_sup:start_link().
-
-%% @private
-%% @doc Terminate the application
-
-stop(_State) ->
-  ok.
-
-%%%---------------------------------------------------------------------------
-%%% vim:ft=erlang:foldmethod=marker

diff --git a/src/estap_sup.erl b/src/estap_sup.erl
deleted file mode 100644 (file)
index a8109f4..0000000
--- a/src/estap_sup.erl
+++ /dev/null
@@ -1,44 +0,0 @@
-%%%---------------------------------------------------------------------------
-%%% @doc
-%%%   estap top-level supervisor.
-%%% @end
-%%%---------------------------------------------------------------------------
-
--module(estap_sup).
-
--behaviour(supervisor).
-
-%% supervision tree API
--export([start_link/0]).
-
-%% supervisor callbacks
--export([init/1]).
-
-%%%---------------------------------------------------------------------------
-%%% supervision tree API
-%%%---------------------------------------------------------------------------
-
-%% @private
-%% @doc Start the supervisor process.
-
-start_link() ->
-  supervisor:start_link({local, ?MODULE}, ?MODULE, []).
-
-%%%---------------------------------------------------------------------------
-%%% supervisor callbacks
-%%%---------------------------------------------------------------------------
-
-%% @private
-%% @doc Initialize supervisor.
-
-init([] = _Args) ->
-  Strategy = {one_for_one, 5, 10},
-  Children = [
-    {estap_server,
-      {estap_server, start_link, []},
-      permanent, 5000, worker, [estap_server]}
-  ],
-  {ok, {Strategy, Children}}.
-
-%%%---------------------------------------------------------------------------
-%%% vim:ft=erlang:foldmethod=marker

diff --git a/src/overview.edoc b/src/overview.edoc
index 6e4b808..63c7a40 100644 (file)
--- a/src/overview.edoc
+++ b/src/overview.edoc
@@ -27,6 +27,8 @@ TAP consumers like `prove' command.
   <li>compile forms to bytecode and load the module</li>
   <li>start {@link estap_server} for tracking test cases</li>
   <li>consecutively call each test function in a separate process</li>
+  <li>for subtests, spawn a new {@link estap_server} and put its pid in
+      process dictionary</li>
 </ol>
 
 <!-- vim:set ft=edoc: -->