1 files changed, 46 insertions, 0 deletions
diff --git a/learn-you-some-erlang/tests/records_tests.erl b/learn-you-some-erlang/tests/records_tests.erl
new file mode 100644
index 0000000..327120f
--- /dev/null
+++ b/learn-you-some-erlang/tests/records_tests.erl
@@ -0,0 +1,46 @@
+-module(records_tests).
+-include_lib("eunit/include/eunit.hrl").
+
+first_robot_test_() ->
+    ?_assertEqual(records:first_robot(),
+        {robot, 
+         "Mechatron",
+         handmade,
+         undefined,
+         ["Moved by a small man inside"]}).
+
+car_factory_test_() ->
+    ?_assertEqual(records:car_factory("Jokeswagen"),
+                  {robot,
+                   "Jokeswagen",
+                   industrial,
+                   "building cars",
+                   []}).
+
+repairman_test_() ->
+    ?_assertEqual(records:repairman({robot,
+                                     "Ulbert",
+                                     industrial,
+                                     ["trying to have feelings"],
+                                     []}),
+                  {repaired, {robot,
+                              "Ulbert",
+                              industrial,
+                              ["trying to have feelings"],
+                              ["Repaired by repairman"]}}).
+
+admin_panel_test_() ->
+    [?_assertEqual(records:admin_panel({user, 1, "ferd", admin, 96}),
+                   "ferd is allowed!"),
+     ?_assertEqual(records:admin_panel({user, 2, "you", users, 66}),
+                   "you is not allowed")].
+
+adult_section_test_() ->
+    [?_assertEqual(records:adult_section({user, 21, "Bill", users, 72}),
+                   allowed),
+     ?_assertEqual(records:adult_section({user, 22, "Noah", users, 13}),
+                   forbidden)].
+
+included_test_() ->
+    ?_assertEqual(records:included(),
+                  {included, "Some value", "yeah!", undefined}).