Changeset 3

Timestamp:

05/01/07 08:43:31 (5 years ago)

Author:

dom

Message:

Fix testing_server and add a nice plain logger

Location:

trunk/src

Files:

• plain_file_logger.erl (added)
• testing_server.erl (modified) (3 diffs)

trunk/src/testing_server.erl

@@ -31 +31 @@
 
 -export([start/3,stop/0,loop/5]).
+-export([start/2, stop/1]).
 
-start(Dir,Notification,Options) ->
+start (Dir, Notification, Options) when is_function (Notification) ->
     Pid = spawn (?MODULE, loop, [Dir, Notification, Options, no_monitor, init]),
     register(testing_server,Pid),
@@ -42 +43 @@
     Pid.
 
+start (Dir, File) ->
+    Logger = spawn (plain_file_logger, start, [File, write]),
+    Notify = fun(E) -> Logger ! E end,
+    Server = start (Dir, Notify, [{report_function, Notify}]),
+    {Server, Logger}.
+
 stop()->
     testing_server ! stop.
+
+stop ({Server, Logger}) ->
+    Server ! stop,
+    Logger ! stop,
+    bye.
 
 loop (Dir, Notification, Options, no_monitor, State) ->
@@ -59 +71 @@
         stop ->
             file_monitor:stop(Monitor);
-        {Monitor, _, _} ->
-            New_state = xpdojo:test_files (Dir, Options),
-            notify (Notification, New_state, State),
+        {Monitor, _, File} ->
+            case filename:extension (File) of
+                ".erl" ->
+                    New_state = xpdojo:test_files (Dir, Options),
+                    Notification (New_state);
+                _ ->
+                    New_state = State
+            end,
             loop (Dir, Notification, Options, Monitor, New_state);
         _ ->
             loop (Dir, Notification, Options, Monitor, State)
     end.
-
-notify (_, unchanged, _) ->
-    ok;
-notify (_, State, State) ->
-    ok;
-notify (Notify, New_state, _) ->
-    Notify (New_state).
 
 purge_monitor_message(Monitor) ->