poolparty 0.2.18 → 0.2.69

data/lib/erlang/messenger/lib/eunit/include/.svn/text-base/eunit.hrl.svn-base

@@ -0,0 +1,313 @@
+%% 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$
+%%
+%% 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/.svn/all-wcprops

@@ -0,0 +1,113 @@
+K 25
+svn:wc:ra_dav:version-url
+V 38
+/contribs/!svn/ver/258/trunk/eunit/src
+END
+eunit_tests.erl
+K 25
+svn:wc:ra_dav:version-url
+V 54
+/contribs/!svn/ver/238/trunk/eunit/src/eunit_tests.erl
+END
+eunit_proc.erl
+K 25
+svn:wc:ra_dav:version-url
+V 53
+/contribs/!svn/ver/256/trunk/eunit/src/eunit_proc.erl
+END
+autoload.erl
+K 25
+svn:wc:ra_dav:version-url
+V 51
+/contribs/!svn/ver/238/trunk/eunit/src/autoload.erl
+END
+eunit.app.src
+K 25
+svn:wc:ra_dav:version-url
+V 52
+/contribs/!svn/ver/211/trunk/eunit/src/eunit.app.src
+END
+eunit_server.erl
+K 25
+svn:wc:ra_dav:version-url
+V 55
+/contribs/!svn/ver/238/trunk/eunit/src/eunit_server.erl
+END
+eunit_lib.erl
+K 25
+svn:wc:ra_dav:version-url
+V 52
+/contribs/!svn/ver/238/trunk/eunit/src/eunit_lib.erl
+END
+eunit_data.erl
+K 25
+svn:wc:ra_dav:version-url
+V 53
+/contribs/!svn/ver/253/trunk/eunit/src/eunit_data.erl
+END
+eunit.appup.src
+K 25
+svn:wc:ra_dav:version-url
+V 54
+/contribs/!svn/ver/211/trunk/eunit/src/eunit.appup.src
+END
+eunit_autoexport.erl
+K 25
+svn:wc:ra_dav:version-url
+V 59
+/contribs/!svn/ver/258/trunk/eunit/src/eunit_autoexport.erl
+END
+code_monitor.erl
+K 25
+svn:wc:ra_dav:version-url
+V 55
+/contribs/!svn/ver/238/trunk/eunit/src/code_monitor.erl
+END
+eunit_serial.erl
+K 25
+svn:wc:ra_dav:version-url
+V 55
+/contribs/!svn/ver/249/trunk/eunit/src/eunit_serial.erl
+END
+eunit_internal.hrl
+K 25
+svn:wc:ra_dav:version-url
+V 57
+/contribs/!svn/ver/238/trunk/eunit/src/eunit_internal.hrl
+END
+eunit_test.erl
+K 25
+svn:wc:ra_dav:version-url
+V 53
+/contribs/!svn/ver/238/trunk/eunit/src/eunit_test.erl
+END
+eunit.erl
+K 25
+svn:wc:ra_dav:version-url
+V 48
+/contribs/!svn/ver/249/trunk/eunit/src/eunit.erl
+END
+eunit_tty.erl
+K 25
+svn:wc:ra_dav:version-url
+V 52
+/contribs/!svn/ver/238/trunk/eunit/src/eunit_tty.erl
+END
+file_monitor.erl
+K 25
+svn:wc:ra_dav:version-url
+V 55
+/contribs/!svn/ver/250/trunk/eunit/src/file_monitor.erl
+END
+eunit_striptests.erl
+K 25
+svn:wc:ra_dav:version-url
+V 59
+/contribs/!svn/ver/238/trunk/eunit/src/eunit_striptests.erl
+END
+Makefile
+K 25
+svn:wc:ra_dav:version-url
+V 47
+/contribs/!svn/ver/245/trunk/eunit/src/Makefile
+END

data/lib/erlang/messenger/lib/eunit/src/.svn/entries

@@ -0,0 +1,259 @@
+8
+
+dir
+263
+http://svn.process-one.net/contribs/trunk/eunit/src
+http://svn.process-one.net/contribs
+
+
+
+2008-10-02T07:09:39.920718Z
+258
+rcarlsson
+
+
+svn:special svn:externals svn:needs-lock
+
+
+
+
+
+
+
+
+
+
+
+5c723cce-c907-0410-9aa2-ab8348fff7a4
+
+eunit_tests.erl
+file
+
+
+
+
+2008-10-18T23:25:36.000000Z
+7bf5a76dd440923990c7b484df953d88
+2007-11-15T10:23:54.688786Z
+238
+mremond
+has-props
+
+eunit_proc.erl
+file
+
+
+
+
+2008-10-18T23:25:36.000000Z
+03043c0e066a109082097aef890fc37c
+2008-09-29T17:42:21.837614Z
+256
+rcarlsson
+has-props
+
+autoload.erl
+file
+
+
+
+
+2008-10-18T23:25:36.000000Z
+5e5050f0ad965ea25cb9ad302da9a217
+2007-11-15T10:23:54.688786Z
+238
+mremond
+has-props
+
+eunit.app.src
+file
+
+
+
+
+2008-10-18T23:25:36.000000Z
+3cf609893ad581006db46c7faccc018e
+2007-05-05T14:47:04.988837Z
+211
+rcarlsson
+
+eunit_server.erl
+file
+
+
+
+
+2008-10-18T23:25:36.000000Z
+dbc03f7a823600ddee4be9a1b9390a44
+2007-11-15T10:23:54.688786Z
+238
+mremond
+has-props
+
+eunit_lib.erl
+file
+
+
+
+
+2008-10-18T23:25:36.000000Z
+e56a109d2b0ca2a4f0fea79b171345c0
+2007-11-15T10:23:54.688786Z
+238
+mremond
+has-props
+
+eunit_data.erl
+file
+
+
+
+
+2008-10-18T23:25:36.000000Z
+9991ae2d9a13cc8daa2afa605687459f
+2008-09-29T17:13:43.707110Z
+253
+rcarlsson
+has-props
+
+eunit.appup.src
+file
+
+
+
+
+2008-10-18T23:25:36.000000Z
+cb8fccb1c3eb4716a1497a2acaca200b
+2007-05-05T14:47:04.988837Z
+211
+rcarlsson
+
+eunit_autoexport.erl
+file
+
+
+
+
+2008-10-18T23:25:36.000000Z
+5d1044347abc3dea56ca96165172ef6e
+2008-10-02T07:09:39.920718Z
+258
+rcarlsson
+has-props
+
+code_monitor.erl
+file
+
+
+
+
+2008-10-18T23:25:36.000000Z
+f572097b0ec7cafd2089f56a5eb7f9fe
+2007-11-15T10:23:54.688786Z
+238
+mremond
+has-props
+
+eunit_serial.erl
+file
+
+
+
+
+2008-10-18T23:25:36.000000Z
+cbef3435db2217b039b3a2c5ac1a9b4f
+2008-05-11T20:06:45.605499Z
+249
+rcarlsson
+has-props
+
+eunit_internal.hrl
+file
+
+
+
+
+2008-10-18T23:25:36.000000Z
+5004ef0c3c46afc59168be7f84f4d72e
+2007-11-15T10:23:54.688786Z
+238
+mremond
+has-props
+
+eunit_test.erl
+file
+
+
+
+
+2008-10-18T23:25:36.000000Z
+5002627123543a66a63ae39c2a9b8241
+2007-11-15T10:23:54.688786Z
+238
+mremond
+has-props
+
+eunit.erl
+file
+
+
+
+
+2008-10-18T23:25:36.000000Z
+6f5f15caa627e0ae275ccadcfc028acc
+2008-05-11T20:06:45.605499Z
+249
+rcarlsson
+has-props
+
+eunit_tty.erl
+file
+
+
+
+
+2008-10-18T23:25:36.000000Z
+81a970f0ac5baf4bb85175b7e135f1aa
+2007-11-15T10:23:54.688786Z
+238
+mremond
+has-props
+
+file_monitor.erl
+file
+
+
+
+
+2008-10-18T23:25:36.000000Z
+f2f7a2d45511f1990ed14e243bfaf563
+2008-08-23T09:12:02.363609Z
+250
+rcarlsson
+has-props
+
+eunit_striptests.erl
+file
+
+
+
+
+2008-10-18T23:25:36.000000Z
+1c4d2c7395132297628b6774ab39d327
+2007-11-15T10:23:54.688786Z
+238
+mremond
+has-props
+
+Makefile
+file
+
+
+
+
+2008-10-18T23:25:36.000000Z
+eb300b5f8d4ca4ce302536227aaf97fb
+2008-01-31T21:22:36.813745Z
+245
+rcarlsson
+

data/lib/erlang/messenger/lib/eunit/src/.svn/format

@@ -0,0 +1 @@
+8

data/lib/erlang/messenger/lib/eunit/src/.svn/prop-base/autoload.erl.svn-base

@@ -0,0 +1,5 @@
+K 12
+svn:keywords
+V 31
+Date Author Id Revision HeadURL
+END

data/lib/erlang/messenger/lib/eunit/src/.svn/prop-base/code_monitor.erl.svn-base

@@ -0,0 +1,5 @@
+K 12
+svn:keywords
+V 31
+Date Author Id Revision HeadURL
+END

data/lib/erlang/messenger/lib/eunit/src/.svn/prop-base/eunit.erl.svn-base

@@ -0,0 +1,5 @@
+K 12
+svn:keywords
+V 31
+Date Author Id Revision HeadURL
+END

data/lib/erlang/messenger/lib/eunit/src/.svn/prop-base/eunit_autoexport.erl.svn-base

@@ -0,0 +1,5 @@
+K 12
+svn:keywords
+V 31
+Date Author Id Revision HeadURL
+END

data/lib/erlang/messenger/lib/eunit/src/.svn/prop-base/eunit_data.erl.svn-base

@@ -0,0 +1,5 @@
+K 12
+svn:keywords
+V 31
+Date Author Id Revision HeadURL
+END