poolparty 0.2.84 → 1.2.2

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

@@ -1,196 +0,0 @@
-%% 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

@@ -1,102 +0,0 @@
-%% 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)].