poolparty 0.2.84 → 1.2.2

data/lib/erlang/messenger/lib/eunit/include/eunit.hrl

@@ -1,313 +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.hrl 261 2008-10-12 11:33:16Z rcarlsson $
-%%
-%% Copyright (C) 2004-2006 Micka�l R�mond, Richard Carlsson
-
-%% Including this file turns on testing and defines TEST, unless NOTEST
-%% is defined before the file is included. If both NOTEST and TEST are
-%% already defined, then TEST takes precedence, and NOTEST will become
-%% undefined.
-%%
-%% If including this file causes TEST to be defined, then NOASSERT will
-%% be undefined, even if it was previously defined. If both ASSERT and
-%% NOASSERT are defined before the file is included, then ASSERT takes
-%% precedence, and NOASSERT will become undefined regardless of TEST.
-%% 
-%% After including this file, EUNIT will be defined if and only if TEST
-%% is defined.
-
--ifndef(EUNIT_HRL).
--define(EUNIT_HRL, true).
-
-%% allow defining TEST to override NOTEST
--ifdef(TEST).
--undef(NOTEST).
--endif.
-
-%% allow NODEBUG to imply NOASSERT, unless overridden below
--ifdef(NODEBUG).
--ifndef(NOASSERT).
--define(NOASSERT, true).
--endif.
--endif.
-
-%% note that the main switch used within this file is NOTEST; however,
-%% both TEST and EUNIT may be used to check whether testing is enabled
--ifndef(NOTEST).
--undef(NOASSERT).    % testing requires that assertions are enabled
--ifndef(TEST).
--define(TEST, true).
--endif.
--ifndef(EUNIT).
--define(EUNIT, true).
--endif.
--else.
--undef(EUNIT).
--endif.
-
-%% allow ASSERT to override NOASSERT (regardless of TEST/NOTEST)
--ifdef(ASSERT).
--undef(NOASSERT).
--endif.
-
-%% Parse transforms for automatic exporting/stripping of test functions.
-%% (Note that although automatic stripping is convenient, it will make
-%% the code dependent on this header file and the eunit_striptests
-%% module for compilation, even when testing is switched off! Using
-%% -ifdef(EUNIT) around all test code makes the program more portable.)
-
--ifndef(EUNIT_NOAUTO).
--ifndef(NOTEST).
--compile({parse_transform, eunit_autoexport}).
--else.
--compile({parse_transform, eunit_striptests}).
--endif.
--endif.
-
-%% All macros should be available even if testing is turned off, and
-%% should preferably not require EUnit to be present at runtime.
-%% 
-%% We must use fun-call wrappers ((fun () -> ... end)()) to avoid
-%% exporting local variables, and furthermore we only use variable names
-%% prefixed with "__", that hopefully will not be bound outside the fun.
-
-%% A generic let-macro is particularly useful when writing test cases.
-%% It is more compact than 'begin X = Y, Z end', and guarantees that
-%% X gets a new, local binding.
-%% (Note that lowercase 'let' is a reserved word.)
--ifndef(LET).
--define(LET(X,Y,Z), ((fun(X)->(Z)end)(Y))).
--endif.
-
-%% It is important that testing code is short and readable.
-%% An if-then-else macro can make some code much more compact.
-%% Compare:  case f(X) of true->g(X); false->h(X) end
-%%     and:  ?IF(f(X), g(Y), h(Z))
--ifndef(IF).
--define(IF(B,T,F), (case (B) of true->(T); false->(F) end)).
--endif.
-
--ifdef(NOASSERT).
-%% The plain assert macro should be defined to do nothing if this file
-%% is included when debugging/testing is turned off.
--ifndef(assert).
--define(assert(BoolExpr),ok).
--endif.
--else.
-%% The assert macro is written the way it is so as not to cause warnings
-%% for clauses that cannot match, even if the expression is a constant.
--undef(assert).
--define(assert(BoolExpr),
-	((fun () ->
-	    case (BoolExpr) of
-		true -> ok;
-		__V -> .erlang:error({assertion_failed,
-				      [{module, ?MODULE},
-				       {line, ?LINE},
-				       {expression, (??BoolExpr)},
-				       {expected, true},
-				       {value, case __V of false -> __V;
-						   _ -> {not_a_boolean,__V}
-					       end}]})
-	    end
-	  end)())).
--endif.
--define(assertNot(BoolExpr), ?assert(not (BoolExpr))).
-
--define(_test(Expr), {?LINE, fun () -> (Expr) end}).
-
--define(_assert(BoolExpr), ?_test(?assert(BoolExpr))).
-
--define(_assertNot(BoolExpr), ?_assert(not (BoolExpr))).
-
-%% This is mostly a convenience which gives more detailed reports.
-%% Note: Guard is a guarded pattern, and can not be used for value.
--ifdef(NOASSERT).
--define(assertMatch(Guard,Expr),ok).
--else.
--define(assertMatch(Guard, Expr),
-	((fun () ->
-	    case (Expr) of
-		Guard -> ok;
-		__V -> .erlang:error({assertMatch_failed,
-				      [{module, ?MODULE},
-				       {line, ?LINE},
-				       {expression, (??Expr)},
-				       {expected, (??Guard)},
-				       {value, __V}]})
-	    end
-	  end)())).
--endif.
--define(_assertMatch(Guard, Expr), ?_test(?assertMatch(Guard, Expr))).
-
-%% This is a convenience macro which gives more detailed reports when
-%% the expected LHS value is not a pattern, but a computed value
--ifdef(NOASSERT).
--define(assertEqual(Expect,Expr),ok).
--else.
--define(assertEqual(Expect, Expr),
-	((fun (__X) ->
-	    case (Expr) of
-		__X -> ok;
-		__V -> .erlang:error({assertEqual_failed,
-				      [{module, ?MODULE},
-				       {line, ?LINE},
-				       {expression, (??Expr)},
-				       {expected, __X},
-				       {value, __V}]})
-	    end
-	  end)(Expect))).
--endif.
--define(_assertEqual(Expect, Expr), ?_test(?assertEqual(Expect, Expr))).
-
-%% Note: Class and Term are patterns, and can not be used for value.
--ifdef(NOASSERT).
--define(assertException(Class, Term, Expr),ok).
--else.
--define(assertException(Class, Term, Expr),
-	((fun () ->
-	    try (Expr) of
-	        __V -> .erlang:error({assertException_failed,
-				      [{module, ?MODULE},
-				       {line, ?LINE},
-				       {expression, (??Expr)},
-				       {expected,
-					"{ "++(??Class)++" , "++(??Term)
-					++" , [...] }"},
-				       {unexpected_success, __V}]})
-	    catch
-		Class:Term -> ok;
-	        __C:__T ->
-		    .erlang:error({assertException_failed,
-				   [{module, ?MODULE},
-				    {line, ?LINE},
-				    {expression, (??Expr)},
-				    {expected,
-				     "{ "++(??Class)++" , "++(??Term)
-				     ++" , [...] }"},
-				    {unexpected_exception,
-				     {__C, __T, erlang:get_stacktrace()}}]})
-	    end
-	  end)())).
--endif.
-
--define(assertError(Term, Expr), ?assertException(error, Term, Expr)).
--define(assertExit(Term, Expr), ?assertException(exit, Term, Expr)).
--define(assertThrow(Term, Expr), ?assertException(throw, Term, Expr)).
-
--define(_assertException(Class, Term, Expr),
-	?_test(?assertException(Class, Term, Expr))).
--define(_assertError(Term, Expr), ?_assertException(error, Term, Expr)).
--define(_assertExit(Term, Expr), ?_assertException(exit, Term, Expr)).
--define(_assertThrow(Term, Expr), ?_assertException(throw, Term, Expr)).
-
-%% Macros for running operating system commands. (Note that these
-%% require EUnit to be present at runtime, or at least eunit_lib.)
-
-%% these can be used for simply running commands in a controlled way
--define(_cmd_(Cmd), (.eunit_lib:command(Cmd))).
--define(cmdStatus(N, Cmd),
-	((fun () ->
-	    case ?_cmd_(Cmd) of
-		{(N), __Out} -> __Out;
-		{__N, _} -> .erlang:error({command_failed,
-					   [{module, ?MODULE},
-					    {line, ?LINE},
-					    {command, (Cmd)},
-					    {expected_status,(N)},
-					    {status,__N}]})
-	    end
-	  end)())).
--define(_cmdStatus(N, Cmd), ?_test(?cmdStatus(N, Cmd))).
--define(cmd(Cmd), ?cmdStatus(0, Cmd)).
--define(_cmd(Cmd), ?_test(?cmd(Cmd))).
-
-%% these are only used for testing; they always return 'ok' on success,
-%% and have no effect if debugging/testing is turned off
--ifdef(NOASSERT).
--define(assertCmdStatus(N, Cmd),ok).
--else.
--define(assertCmdStatus(N, Cmd),
- 	((fun () ->
-	    case ?_cmd_(Cmd) of
-		{(N), _} -> ok;
-		{__N, _} -> .erlang:error({assertCmd_failed,
-					   [{module, ?MODULE},
-					    {line, ?LINE},
-					    {command, (Cmd)},
-					    {expected_status,(N)},
-					    {status,__N}]})
-	    end
-	  end)())).
--endif.
--define(assertCmd(Cmd), ?assertCmdStatus(0, Cmd)).
-
--ifdef(NOASSERT).
--define(assertCmdOutput(T, Cmd),ok).
--else.
--define(assertCmdOutput(T, Cmd),
- 	((fun () ->
-	    case ?_cmd_(Cmd) of
-		{_, (T)} -> ok;
-		{_, __T} -> .erlang:error({assertCmdOutput_failed,
-					   [{module, ?MODULE},
-					    {line, ?LINE},
-					    {command,(Cmd)},
-					    {expected_output,(T)},
-					    {output,__T}]})
-	    end
-	  end)())).
--endif.
-
--define(_assertCmdStatus(N, Cmd), ?_test(?assertCmdStatus(N, Cmd))).
--define(_assertCmd(Cmd), ?_test(?assertCmd(Cmd))).
--define(_assertCmdOutput(T, Cmd), ?_test(?assertCmdOutput(T, Cmd))).
-
-%% Macros to simplify debugging (in particular, they work even when the
-%% standard output is being redirected by EUnit while running tests)
-
--ifdef(NODEBUG).
--define(debugMsg(S), ok).
--define(debugHere, ok).
--define(debugFmt(S, As), ok).
--define(debugVal(E), (E)).
--define(debugTime(S,E), (E)).
--else.
--define(debugMsg(S),
-	(begin
-	     io:fwrite(user, <<"~s:~w: ~s\n">>,
-		       [?FILE, ?LINE, S]),
-	     ok
-	 end)).
--define(debugHere, (?debugMsg("<-"))).
--define(debugFmt(S, As), (?debugMsg(io_lib:format((S), (As))))).
--define(debugVal(E),
-	((fun (__V) ->
-		  ?debugFmt(<<"~s = ~P">>, [(??E), __V, 15]),
-		  __V
-	  end)(E))).
--define(debugTime(S,E),
-	((fun () ->
-		  {__T0, _} = statistics(wall_clock),
-		  __V = (E),
-		  {__T1, _} = statistics(wall_clock),
-		  ?debugFmt(<<"~s: ~.3f s">>, [(S), (__T1-__T0)/1000]),
-		  __V
-	  end)())).
--endif.
-
--endif. % EUNIT_HRL

data/lib/erlang/messenger/lib/eunit/src/Makefile

@@ -1,46 +0,0 @@
-
-include ../vsn.mk
-
-EMULATOR=beam
-EBIN=../ebin
-INCLUDE=../include
-
-APP_TARGET=$(EBIN)/eunit.app
-APPUP_TARGET=$(EBIN)/eunit.appup
-
-ERL_COMPILE_FLAGS += -I$(INCLUDE) +warn_unused_vars +nowarn_shadow_vars +warn_unused_import
-
-SOURCES= \
-	eunit_autoexport.erl \
-	eunit_striptests.erl \
-	eunit.erl \
-	eunit_tests.erl \
-	eunit_server.erl \
-	eunit_proc.erl \
-	eunit_serial.erl \
-	eunit_test.erl \
-	eunit_lib.erl \
-	eunit_data.erl \
-	eunit_tty.erl \
-	code_monitor.erl \
-	file_monitor.erl \
-	autoload.erl
-
-OBJECTS=$(SOURCES:%.erl=$(EBIN)/%.$(EMULATOR)) $(APP_TARGET) $(APPUP_TARGET)
-
-all: $(OBJECTS)
-
-$(OBJECTS): eunit_internal.hrl \
-	$(INCLUDE)/eunit.hrl 
-
-clean:
-	rm -f $(OBJECTS)
-
-$(EBIN)/%.$(EMULATOR):%.erl
-	erlc -pa $(EBIN) -W $(ERL_COMPILE_FLAGS) -o$(EBIN) $<
-
-$(APP_TARGET): eunit.app.src ../vsn.mk
-	sed -e 's;%VSN%;$(EUNIT_VSN);' $< > $@
-
-$(APPUP_TARGET): eunit.appup.src ../vsn.mk
-	sed -e 's;%VSN%;$(EUNIT_VSN);' $< > $@