1 files changed, 30 insertions, 0 deletions
diff --git a/learn-you-some-erlang/processquest/apps/processquest-1.1.0/test/pq_quest_tests.erl b/learn-you-some-erlang/processquest/apps/processquest-1.1.0/test/pq_quest_tests.erl
new file mode 100644
index 0000000..4e4f98c
--- /dev/null
+++ b/learn-you-some-erlang/processquest/apps/processquest-1.1.0/test/pq_quest_tests.erl
@@ -0,0 +1,30 @@
+-module(pq_quest_tests).
+-include_lib("eunit/include/eunit.hrl").
+
+format_test_() ->
+    Quest = pq_quest:fetch(),
+    [?_assertMatch({_Name, _Props}, Quest),
+     ?_assert(is_binary(element(1,Quest))),
+     ?_assert(is_integer(proplists:get_value(kills, element(2,Quest)))),
+     ?_assert(0 < proplists:get_value(kills, element(2,Quest))),
+     ?_assert(is_integer(proplists:get_value(experience, element(2,Quest)))),
+     ?_assert(0 < proplists:get_value(experience, element(2,Quest)))].
+
+is_random_test_() ->
+    F = fun(Parent, Ref) -> fun() ->
+        <<A:32,B:32,C:32>> = crypto:rand_bytes(12),
+        random:seed({A,B,C}),
+        Entries = [pq_quest:fetch() || _ <- lists:seq(1,100)],
+        Parent ! {Ref, Entries}
+    end end,
+    Refs = [begin
+                Ref = make_ref(),
+                spawn_link(F(self(), Ref)),
+                Ref
+            end || _ <- lists:seq(1,3)],
+    [A,B,C] = [receive
+                {Ref, X} -> X
+               end || Ref <- Refs],
+    [?_assert(A =/= B),
+     ?_assert(A =/= C),
+     ?_assert(B =/= C)].