fairchild-poolparty 1.1.3

data/lib/erlang/messenger/lib/eunit/src/eunit_internal.hrl

@@ -0,0 +1,48 @@
+%%%-------------------------------------------------------------------
+%% File: eunit_internal.hrl
+%%
+%% $Id: eunit_internal.hrl 238 2007-11-15 10:23:54Z mremond $ 
+%%
+%% @author Richard Carlsson <richardc@it.uu.se>
+%% @copyright 2006 Richard Carlsson
+%% @doc 
+
+-define(SERVER, eunit_server).
+-define(DEFAULT_TEST_SUFFIX, "_test").
+-define(DEFAULT_GENERATOR_SUFFIX, "_test_").
+-define(DEFAULT_EXPORT_SUFFIX, "_exported_").
+-define(DEFAULT_TESTMODULE_SUFFIX, "_tests").
+-define(DEFAULT_GROUP_TIMEOUT, infinity).
+-define(DEFAULT_TEST_TIMEOUT, 5000).
+-define(DEFAULT_SETUP_PROCESS, spawn).
+
+-ifdef(DEBUG).
+-define(debugmsg(S),io:fwrite("\n* ~s: ~s\n", [?MODULE,S])).
+-define(debugmsg1(S,As),io:fwrite("\n* ~s: " ++ S ++ "\n", [?MODULE] ++ As)).
+-else.
+-define(debugmsg(S),ok).
+-define(debugmsg1(S,As),ok).
+-endif.
+
+
+%% ---------------------------------------------------------------------
+%% Internal test data representation
+
+-record(test, {f = undefined,
+	       desc = undefined,
+	       timeout = undefined,
+	       module = undefined,
+	       name = undefined,
+	       line = 0
+	      }).
+
+-record(group, {desc = undefined,
+		order = undefined,	% run in order or in parallel
+		timeout = undefined,
+		context = undefined,	% setup-context record
+		spawn = undefined,	% run group in new process
+		tests = undefined}).
+
+-record(context, {setup = undefined,
+		  cleanup = undefined,
+		  process = local}).    % spawn new process for body