fairchild-poolparty 1.1.3

data/lib/erlang/messenger/lib/eunit/src/eunit.erl

@@ -0,0 +1,196 @@
+%% This library is free software; you can redistribute it and/or modify
+%% it under the terms of the GNU Lesser General Public License as
+%% published by the Free Software Foundation; either version 2 of the
+%% License, or (at your option) any later version.
+%%
+%% This library is distributed in the hope that it will be useful, but
+%% WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+%% Lesser General Public License for more details.
+%%
+%% You should have received a copy of the GNU Lesser General Public
+%% License along with this library; if not, write to the Free Software
+%% Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
+%% USA
+%%
+%% $Id: eunit.erl 249 2008-05-11 20:06:45Z rcarlsson $
+%%
+%% @copyright 2004-2007 Micka�l R�mond, Richard Carlsson
+%% @author Micka�l R�mond <mickael.remond@process-one.net>
+%%   [http://www.process-one.net/]
+%% @author Richard Carlsson <richardc@it.uu.se>
+%%   [http://user.it.uu.se/~richardc/]
+%% @version {@version}, {@date} {@time}
+%% @doc This module is the normal EUnit user interface.
+
+-module(eunit).
+
+-include("eunit.hrl").
+-include("eunit_internal.hrl").
+
+
+-export([start/0, start/1, stop/0, stop/1, test/1, test/2, test/3,
+	 list/1, submit/1, submit/2, submit/3, watch/1, watch/2,
+	 watch/3, watch_path/1, watch_path/2, watch_path/3,
+	 watch_regexp/1, watch_regexp/2, watch_regexp/3, watch_app/1,
+	 watch_app/2, watch_app/3]).
+
+-export([testp/1]). %% for development testing, not official
+
+
+%% EUnit entry points
+
+start() ->
+    start(?SERVER).
+
+start(Server) ->
+    eunit_server:start(Server).
+
+stop() ->
+    stop(?SERVER).
+
+stop(Server) ->
+    eunit_server:stop(Server).
+
+watch(Target) ->
+    watch(Target, []).
+
+watch(Target, Options) ->
+    watch(?SERVER, Target, Options).
+
+watch(Server, Target, Options) ->
+    eunit_server:watch(Server, Target, Options).
+
+watch_path(Target) ->
+    watch_path(Target, []).
+
+watch_path(Target, Options) ->
+    watch_path(?SERVER, Target, Options).
+
+watch_path(Server, Target, Options) ->
+    eunit_server:watch_path(Server, Target, Options).
+
+watch_regexp(Target) ->
+    watch_regexp(Target, []).
+
+watch_regexp(Target, Options) ->
+    watch_regexp(?SERVER, Target, Options).
+
+watch_regexp(Server, Target, Options) ->
+    eunit_server:watch_regexp(Server, Target, Options).
+
+watch_app(Name) ->
+    watch_app(Name, []).
+
+watch_app(Name, Options) ->
+    watch_app(?SERVER, Name, Options).
+
+watch_app(Server, Name, Options) ->
+    case code:lib_dir(Name) of
+	Path when is_list(Path) ->
+	    watch_path(Server, filename:join(Path, "ebin"), Options);
+	_ ->
+	    error
+    end.
+
+list(T) ->
+    try eunit_data:list(T)
+    catch
+	{error, R} -> {error, R}
+    end.
+
+test(T) ->
+    test(T, [{order, inorder}]).
+
+testp(T) ->
+    test(T, [{order, inparallel}]).
+
+test(T, Options) ->
+    test(?SERVER, T, Options).
+
+test(Server, T, Options) ->
+    %% TODO: try to eliminate call to list/1
+    try eunit_data:list(T) of
+	List ->
+	    Listeners = [eunit_tty:start(List, Options)
+			 | listeners(Options)],
+	    Serial = eunit_serial:start(Listeners),
+	    case eunit_server:start_test(Server, Serial, T, Options) of
+		{ok, Reference} -> test_run(Reference, Listeners);
+		{error, R} -> {error, R}
+	    end
+    catch
+	{error, R} ->
+	    io:put_chars(eunit_lib:format_error(R)),
+	    {error, R}
+    end.
+
+test_run(Reference, Listeners) ->
+    receive
+	{start, Reference} ->
+	    cast(Listeners, {start, Reference})
+    end,
+    receive
+	{done, Reference} ->
+	    cast(Listeners, {stop, Reference, self()}),
+	    receive 
+		{result, Reference, Result} ->
+		    Result
+	    end
+    end.
+
+cast([P | Ps], Msg) ->
+    P ! Msg,
+    cast(Ps, Msg);
+cast([], Msg) ->
+    Msg.
+
+%% TODO: functions that run tests on a given node, not a given server
+%% TODO: maybe some functions could check for a globally registered server?
+%% TODO: some synchronous but completely quiet interface function
+
+submit(T) ->
+    submit(T, []).
+
+submit(T, Options) ->
+    submit(?SERVER, T, Options).
+
+submit(Server, T, Options) ->
+    Dummy = spawn(fun devnull/0),
+    eunit_server:start_test(Server, Dummy, T, Options).
+
+listeners(Options) ->
+    case proplists:get_value(event_log, Options) of
+	undefined ->
+	    [];
+	LogFile ->
+	    [spawn(fun () -> event_logger(LogFile) end)]
+    end.
+
+%% TODO: make this report file errors
+event_logger(LogFile) ->
+    case file:open(LogFile, [write]) of
+	{ok, FD} ->
+	    receive
+		{start, Reference} ->
+		    event_logger_loop(Reference, FD)
+	    end;
+	Error ->
+	    exit(Error)
+    end.
+
+event_logger_loop(Reference, FD) ->
+    receive
+	{status, _Id, _Info}=Msg ->
+	    io:fwrite(FD, "~w.\n", [Msg]),
+	    event_logger_loop(Reference, FD);
+	{stop, Reference, _ReplyTo} ->
+	    %% no need to reply, just exit
+	    file:close(FD),
+	    exit(normal)
+    end.
+
+%% TODO: make a proper logger for asynchronous execution with submit/3
+
+devnull() ->
+    receive _ -> devnull() end.

data/lib/erlang/messenger/lib/eunit/src/eunit_autoexport.erl

@@ -0,0 +1,102 @@
+%% This library is free software; you can redistribute it and/or modify
+%% it under the terms of the GNU Lesser General Public License as
+%% published by the Free Software Foundation; either version 2 of the
+%% License, or (at your option) any later version.
+%%
+%% This library is distributed in the hope that it will be useful, but
+%% WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+%% Lesser General Public License for more details.
+%%
+%% You should have received a copy of the GNU Lesser General Public
+%% License along with this library; if not, write to the Free Software
+%% Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
+%% USA
+%%
+%% $Id: eunit_autoexport.erl 258 2008-10-02 07:09:39Z rcarlsson $ 
+%%
+%% @author Richard Carlsson <richardc@it.uu.se>
+%% @copyright 2006 Richard Carlsson
+%% @private
+%% @see eunit
+%% @doc Parse transform for automatic exporting of test functions.
+
+-module(eunit_autoexport).
+
+-include("eunit_internal.hrl").
+
+-export([parse_transform/2]).
+
+
+parse_transform(Forms, Options) ->
+    TestSuffix = proplists:get_value(eunit_test_suffix, Options,
+				     ?DEFAULT_TEST_SUFFIX),
+    GeneratorSuffix = proplists:get_value(eunit_generator_suffix,
+					  Options,
+					  ?DEFAULT_GENERATOR_SUFFIX),
+    ExportSuffix = proplists:get_value(eunit_export_suffix, Options,
+				       ?DEFAULT_EXPORT_SUFFIX),
+    F = fun (Form, Set) ->
+		form(Form, Set, TestSuffix, GeneratorSuffix,
+		     ExportSuffix)
+	end,
+    Exports = sets:to_list(lists:foldl(F, sets:new(), Forms)),
+    rewrite(Forms, Exports).
+
+form({function, _L, Name, 0, _Cs}, S, TestSuffix, GeneratorSuffix,
+     ExportSuffix) ->
+    N = atom_to_list(Name),
+    case lists:suffix(TestSuffix, N) of
+	true ->
+	    sets:add_element({Name, 0}, S);
+	false ->
+	    case lists:suffix(GeneratorSuffix, N) of
+		true ->
+		    sets:add_element({Name, 0}, S);
+		false ->
+		    case lists:suffix(ExportSuffix, N) of
+			true ->
+			    sets:add_element({Name, 0}, S);
+			false ->
+			    S
+		    end
+	    end
+    end;
+form(_, S, _, _, _) ->
+    S.
+
+rewrite([{attribute,_,module,{Name,_Ps}}=M | Fs], Exports) ->
+    module_decl(Name, M, Fs, Exports);
+rewrite([{attribute,_,module,Name}=M | Fs], Exports) ->
+    module_decl(Name, M, Fs, Exports);
+rewrite([F | Fs], Exports) ->
+    [F | rewrite(Fs, Exports)];
+rewrite([], _Exports) ->
+    [].    %% fail-safe, in case there is no module declaration
+
+rewrite([{function,_,test,0,_}=F | Fs], As, Module, _Test) ->
+    rewrite(Fs, [F | As], Module, false);
+rewrite([F | Fs], As, Module, Test) ->
+    rewrite(Fs, [F | As], Module, Test);
+rewrite([], As, Module, Test) ->
+    {if Test ->
+	     EUnit = {record_field,0,{atom,0,''},{atom,0,eunit}},
+	     [{function,0,test,0,
+	       [{clause,0,[],[],
+		 [{call,0,{remote,0,EUnit,{atom,0,test}},
+		   [{atom,0,Module}]}]}]}
+	      | As];
+	true ->
+	     As
+     end,
+     Test}.
+
+module_decl(Name, M, Fs, Exports) ->
+    Module = if is_atom(Name) -> Name;
+		true -> list_to_atom(packages:concat(Name))
+	     end,
+    {Fs1, Test} = rewrite(Fs, [], Module, true),
+    Es = if Test -> [{test,0} | Exports];
+	    true -> Exports
+	 end,
+    [M, {attribute,0,export,Es} | lists:reverse(Fs1)].