1 files changed, 33 insertions, 0 deletions
diff --git a/learn-you-some-erlang/processquest/apps/processquest-1.0.0/test/pq_enemy_tests.erl b/learn-you-some-erlang/processquest/apps/processquest-1.0.0/test/pq_enemy_tests.erl
new file mode 100644
index 0000000..14742fa
--- /dev/null
+++ b/learn-you-some-erlang/processquest/apps/processquest-1.0.0/test/pq_enemy_tests.erl
@@ -0,0 +1,33 @@
+-module(pq_enemy_tests).
+-include_lib("eunit/include/eunit.hrl").
+
+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_enemy: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)].
+
+format_test_() ->
+    [[?_assertMatch({_Name, [{drop, {_DropName, _DropVal}},
+                             {experience, _Exp}]}, pq_enemy:fetch())
+        || _ <- lists:seq(1,10)],
+     begin
+        {Name, [{drop, {Drop, Val}}, {experience, Exp}]} = pq_enemy:fetch(),
+        [?_assert(is_binary(Name)),
+         ?_assert(is_binary(Drop)),
+         ?_assert(is_integer(Val)),
+         ?_assert(is_integer(Exp))]
+     end].