RubyGems - auser-poolparty - Versions diffs - 0.2.66 → 0.2.67 - Mend

auser-poolparty 0.2.66 → 0.2.67

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.

Files changed (159) hide show

data/lib/erlang/messenger/lib/eunit/doc/.svn/text-base/packages-frame.html.svn-base ADDED Viewed

@@ -0,0 +1,11 @@
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
+<html>
+<head>
+<title>The eunit application</title>
+<link rel="stylesheet" type="text/css" href="stylesheet.css" title="EDoc">
+</head>
+<body bgcolor="white">
+<h2 class="indextitle">Packages</h2>
+<table width="100%" border="0" summary="list of packages"></table>
+</body>
+</html>

data/lib/erlang/messenger/lib/eunit/doc/.svn/text-base/stylesheet.css.svn-base ADDED Viewed

@@ -0,0 +1,55 @@
+/* standard EDoc style sheet */
+body {
+	font-family: Verdana, Arial, Helvetica, sans-serif;
+      	margin-left: .25in;
+       	margin-right: .2in;
+       	margin-top: 0.2in;
+       	margin-bottom: 0.2in;
+       	color: #000000;
+       	background-color: #ffffff;
+}
+h1,h2 {
+ 	margin-left: -0.2in;
+}
+div.navbar {
+	background-color: #add8e6;
+	padding: 0.2em;
+}
+h2.indextitle {
+	padding: 0.4em;
+	background-color: #add8e6;
+}
+h3.function,h3.typedecl {
+	background-color: #add8e6;
+ 	padding-left: 1em;
+}
+div.spec {
+ 	margin-left: 2em;
+	background-color: #eeeeee;
+}
+a.module,a.package {
+	text-decoration:none
+}
+a.module:hover,a.package:hover {
+	background-color: #eeeeee;
+}
+ul.definitions {
+	list-style-type: none;
+}
+ul.index {
+	list-style-type: none;
+	background-color: #eeeeee;
+}
+/*
+ * Minor style tweaks
+ */
+ul {
+	list-style-type: square;
+}
+table {
+	border-collapse: collapse;
+}
+td {
+	padding: 3
+}

data/lib/erlang/messenger/lib/eunit/ebin/.svn/all-wcprops ADDED Viewed

@@ -0,0 +1,5 @@
+K 25
+svn:wc:ra_dav:version-url
+V 39
+/contribs/!svn/ver/218/trunk/eunit/ebin
+END

data/lib/erlang/messenger/lib/eunit/ebin/.svn/dir-prop-base ADDED Viewed

@@ -0,0 +1,8 @@
+K 10
+svn:ignore
+V 29
+*.beam
+eunit.app
+eunit.appup
+END

data/lib/erlang/messenger/lib/eunit/ebin/.svn/entries ADDED Viewed

@@ -0,0 +1,28 @@
+8
+dir
+263
+http://svn.process-one.net/contribs/trunk/eunit/ebin
+http://svn.process-one.net/contribs
+2007-05-10T11:27:30.991536Z
+218
+rcarlsson
+has-props
+svn:special svn:externals svn:needs-lock
+5c723cce-c907-0410-9aa2-ab8348fff7a4

data/lib/erlang/messenger/lib/eunit/ebin/.svn/format ADDED Viewed

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

data/lib/erlang/messenger/lib/eunit/examples/.svn/all-wcprops ADDED Viewed

@@ -0,0 +1,23 @@
+K 25
+svn:wc:ra_dav:version-url
+V 43
+/contribs/!svn/ver/238/trunk/eunit/examples
+END
+tests.txt
+K 25
+svn:wc:ra_dav:version-url
+V 53
+/contribs/!svn/ver/209/trunk/eunit/examples/tests.txt
+END
+fib.erl
+K 25
+svn:wc:ra_dav:version-url
+V 51
+/contribs/!svn/ver/238/trunk/eunit/examples/fib.erl
+END
+eunit_examples.erl
+K 25
+svn:wc:ra_dav:version-url
+V 62
+/contribs/!svn/ver/238/trunk/eunit/examples/eunit_examples.erl
+END

data/lib/erlang/messenger/lib/eunit/examples/.svn/entries ADDED Viewed

@@ -0,0 +1,66 @@
+8
+dir
+263
+http://svn.process-one.net/contribs/trunk/eunit/examples
+http://svn.process-one.net/contribs
+2007-11-15T10:23:54.688786Z
+238
+mremond
+svn:special svn:externals svn:needs-lock
+5c723cce-c907-0410-9aa2-ab8348fff7a4
+tests.txt
+file
+2008-10-18T23:25:36.000000Z
+ef144b1f1b15320eedf5f5a1ef65db3c
+2007-05-04T23:10:35.326106Z
+209
+rcarlsson
+fib.erl
+file
+2008-10-18T23:25:36.000000Z
+e8d95322853922de73e32ace9414dae1
+2007-11-15T10:23:54.688786Z
+238
+mremond
+has-props
+eunit_examples.erl
+file
+2008-10-18T23:25:36.000000Z
+fa00eec5348f881201ec9810c705ad39
+2007-11-15T10:23:54.688786Z
+238
+mremond
+has-props

data/lib/erlang/messenger/lib/eunit/examples/.svn/format ADDED Viewed

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

data/lib/erlang/messenger/lib/eunit/examples/.svn/prop-base/eunit_examples.erl.svn-base ADDED Viewed

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

data/lib/erlang/messenger/lib/eunit/examples/.svn/prop-base/fib.erl.svn-base ADDED Viewed

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

data/lib/erlang/messenger/lib/eunit/examples/.svn/text-base/eunit_examples.erl.svn-base ADDED Viewed

@@ -0,0 +1,339 @@
+%% -------------------------------------------------------------------
+%% File: test.erl
+%%
+%% $Id:$
+%%
+%% @author Richard Carlsson <richard@virtutech.com>
+%% @copyright 2005 Richard Carlsson
+%% @private
+-module(eunit_examples).
+-compile(export_all).
+-include_lib("eunit/include/eunit.hrl").
+succeed() ->
+    ok.
+fail() ->
+    throw(failed).
+succeeding_test() ->
+    succeed().
+failing_test() ->
+    fail().
+succeeding_fun_test_() ->
+    fun () -> succeed() end.
+failing_fun_test_() ->
+    fun () -> fail() end.
+succeeding_simple_test_() ->
+    ?_test(succeed()).
+failing_simple_test_() ->
+    ?_test(fail()).
+succeeding_assert_test_() ->
+    ?_assert(1 > 0).
+failing_assert_test_() ->
+    ?_assert(0 > 1).
+succeeding_error_test_() ->
+    ?_assertError(foo, erlang:error(foo)).
+failing_error_test_() ->
+    ?_assertError(foo, erlang:throw(foo)).
+succeeding_exit_test_() ->
+    ?_assertExit(foo, erlang:exit(foo)).
+failing_exit_test_() ->
+    ?_assertExit(foo, erlang:throw(foo)).
+succeeding_throw_test_() ->
+    ?_assertThrow(foo, erlang:throw(foo)).
+failing_throw_test_() ->
+    ?_assertThrow(foo, erlang:exit(foo)).
+succeeding_named_test_() ->
+    {"a Test with a Title",
+     ?_test(succeed())}.
+failing_named_test_() ->
+    {"a Failing Test with a Title",
+     ?_test(fail())}.
+succeeding_wrapper_test_() ->
+    {"a Wrapped Function",
+     fun succeeding_test/0}.
+failing_wrapper_test_() ->
+    {"a failing Wrapped Function",
+     fun failing_test/0}.
+empty_list_test_() ->
+    []. %% should be accepted, but will not produce any visible result
+list_test_() ->
+    [?_test(succeed()),
+     ?_test(fail()),
+     ?_test(succeed())].
+deep_list_test_() ->
+    [?_test(succeed()),
+     [[],
+      ?_test(fail())],
+     ?_test(succeed()),
+     []].
+group_test_() ->
+    {"a Group of Tests",
+     [?_test(succeed()),
+      ?_test(fail()),
+      ?_test(succeed())]
+    }.
+list_of_named_test_() ->
+    [{"List Test One", ?_test(succeed())},
+     {"List Test Two", ?_test(fail())},
+     {"List Test Three", ?_test(succeed())}].
+named_group_test_() ->
+    {"a Group of Tests with Titles",
+     [{"Subtest One", ?_test(succeed())},
+      {"Subtest Two", ?_test(fail())},
+      {"Subtest Three", ?_test(succeed())}]
+    }.
+nested_named_list_test_() ->
+    {"Named List Level One",
+     [?_test(succeed()),
+      {"Named List Level Two",
+       [?_test(succeed()),
+	?_test(fail()),
+	?_test(succeed())]},
+      ?_test(fail()),
+      ?_test(succeed())]
+    }.
+higher_order_test_() ->
+    {"Higher Order Tests",
+     [
+      {"Setup Test",
+       {setup,
+	fun () -> 4711 end,
+	fun (4711) -> ok end,
+	fun (X) ->
+		[{"1st", ?_assert(X == 4711)},
+		 {"2nd", ?_assert(X == 4711)},
+		 {"3rd", ?_assert(X == 4711)}]
+	end}
+      },
+      {"Foreach Test",
+       {foreach,
+	fun () -> 4711 end,
+	fun (4711) -> ok end,
+	[fun (R) -> {"1st", ?_assert(R == 4711)} end,
+	 fun (R) -> {"2nd", ?_assert(R == 4711)} end,
+	 fun (R) -> {"3rd", ?_assert(R == 4711)} end]
+       }
+      },
+      {"ForeachX Test",
+        {foreachx,
+	 fun (X) -> 4711 + X end,
+	 fun (X, R) when R - X == 4711 -> ok end,
+	 [{1, fun (X, R) -> {"1st",
+			     ?_assert((X == 1) and (R == 4712))}
+	      end},
+	  {2, fun (X, R) -> {"2nd",
+			     ?_assert((X == 2) and (R == 4713))}
+	      end},
+	  {3, fun (X, R) -> {"3rd",
+			     ?_assert((X == 3) and (R == 4714))}
+	      end}
+	 ]}
+      },
+      {"With Test",
+       [{setup,
+ 	 fun () -> 4711 end,
+ 	 fun (4711) -> ok end,
+ 	 fun (X) ->
+ 		 {with, X,
+ 		  [fun (Y) -> ?assert(Y == 4711) end,
+ 		   fun (Y) -> ?assert(Y == 4711) end,
+ 		   fun (Y) -> ?assert(Y == 4711) end]}
+ 	 end},
+ 	{setup,
+ 	 fun () -> 4711 end,
+ 	 fun (4711) -> ok end,
+ 	 {with,
+ 	  [fun (X) -> ?assert(X == 4711) end,
+ 	   fun (X) -> ?assert(X == 4711) end,
+ 	   fun (X) -> ?assert(X == 4711) end]
+ 	 }
+ 	}
+       ]
+      }
+     ]
+    }.
+%% setup/foreach usage examples
+file_setup(Name, Mode) ->
+    {ok, FD} = file:open(Name, Mode),
+    FD.
+file_cleanup(FD) ->
+    file:close(FD).
+make_file_setup(Name, Mode) ->
+    fun () -> file_setup(Name, Mode) end.
+file_test(FD, FileName, Text) ->
+    {Text, ?_test(msg(FD, FileName, Text))}.
+msg(FD, FileName, Text) ->
+    io:fwrite(FD, "~s: ~s\n", [FileName, Text]).
+simple_setup_test_() ->
+    {setup,
+     fun () -> ets:new(fubar, [named_table]) end,
+     fun (T) -> ets:delete(T) end,
+     ?_test(begin
+		ets:insert(fubar, {foo, bar}),
+		bar = ets:lookup_element(fubar, foo, 2)
+	    end)}.
+setup_test_() ->
+    File = "setup_test.txt",
+    {setup,
+     make_file_setup(File, [write]),
+     fun file_cleanup/1,
+     abstract_file_test("hello!", "setup_test")}.
+abstract_file_test(Text, FileName) ->
+    fun (FD) -> file_test(FD, FileName, Text) end.
+local_setup_test_() ->
+    {setup, local,
+     fun () -> put(foo, 42) end,
+     fun (_) -> erase(foo) end,
+     ?_assert(42 == get(foo))
+    }.
+nonlocal_setup_test_() ->
+    {setup,
+     fun () -> put(foo, 42) end,
+     fun (_) -> erase(foo) end,
+     ?_assert(undefined == get(foo))
+    }.
+foreach_test_() ->
+    File = "foreach_test.txt",
+    {foreach,
+     make_file_setup(File, [append]),
+     fun file_cleanup/1,
+     [abstract_file_test("one", File),
+      abstract_file_test("two", File),
+      abstract_file_test("three", File),
+      abstract_file_test("four", File)
+     ]}.
+more_abstract_file_test(Text) ->
+    fun (FileName, FD) -> (abstract_file_test(Text, FileName))(FD) end.
+foreachx_test_() ->
+    {foreachx,
+     fun (File) -> file_setup(File, [append]) end,
+     fun (_File, FD) -> file_cleanup(FD) end,
+     [{"foreachx_test_a.txt", more_abstract_file_test("eins")},
+      {"foreachx_test_b.txt", more_abstract_file_test("zwei")},
+      {"foreachx_test_c.txt", more_abstract_file_test("drei")},
+      {"foreachx_test_d.txt", more_abstract_file_test("vier")}
+     ]}.
+order_test_() ->
+    {inparallel,
+     [{inorder,
+       [{"put 42",	?_test(undefined = put(foo, 42))},
+	{"get 42",	?_test(42 = get(foo))}
+       ]},
+      {inorder,
+       [{"put 17",	?_test(undefined = put(foo, 17))},
+	{"get 17",	?_test(17 = get(foo))}
+       ]},
+      {inorder,
+       [{"put 4711",	?_test(undefined = put(foo, 4711))},
+	{"fail", ?_test(exit(foo))},
+	{"get 4711",	?_test(4711 = get(foo))}
+       ]}
+     ]}.
+spawn_test_() ->
+    {"Level One",
+     inorder,
+     [{"put 42",	?_test(undefined = put(foo, 42))},
+      {"Level two",
+       spawn,
+       [{"put 17",	?_test(undefined = put(foo, 17))},
+	{"Level three",
+	 spawn,
+	 [{"put 4711",	?_test(undefined = put(foo, 4711))},
+	  {"fail", ?_test(exit(foo))},
+	  {"get 4711",	?_test(4711 = get(foo))}
+	 ]},
+	{"get 17",	?_test(17 = get(foo))}
+       ]},
+      {"get 42",	?_test(42 = get(foo))}
+     ]}.
+match_test_() ->
+    [?_assertMatch(foo, list_to_atom("foo")),
+     ?_assertMatch({foo, _}, {foo, bar}),
+     ?_assertMatch({foo, bar}, {foo, baz}),
+     ?_assertMatch({foo, X} when is_integer(X) and (X > 0), {foo, 1}),
+     ?_assertMatch({foo, X} when is_integer(X) and (X > 0), {foo, 0})].
+match_test() ->
+    case {foot, 2} of
+	{foo, X} when is_integer(X) and (X > 0) ->
+	    ok
+    end.
+timeout_test_() ->
+    {spawn, {timeout, 1, ?_test(receive after 2000 -> ok end)}}.
+setup_timeout_test_() ->
+    {setup,
+     fun () -> erlang:display(setup)  end,
+     fun (_) -> erlang:display(cleanup) end,
+     fun (_) ->
+	     {timeout, 1, ?_test(receive after 2000 -> ok end)}
+     end
+    }.
+foreach_timeout_test_() ->
+    {foreach,
+     fun () -> erlang:display(setup) end,
+     fun (_) -> erlang:display(cleanup) end,
+     [
+      ?_test(succeed()),
+      {timeout, 1, ?_test(receive after 2000 -> ok end)},
+      ?_test(succeed())
+     ]
+    }.
+slave_test_() ->
+    {node, foo,
+     fun (Node) ->
+	     [?_assertMatch(pong, net_adm:ping(Node)),
+	      ?_assertMatch("olleh",
+			    rpc:call(Node, lists, reverse, ["hello"]))]
+     end
+    }.