From 5a9cdd3cc89507d4d74f8bded56ce5e037b3b56e Mon Sep 17 00:00:00 2001
From: Trygve Laugstøl <trygvis@inamo.no>
Date: Fri, 23 Feb 2024 07:08:18 +0100
Subject: wip

---
 learn-you-some-erlang/ops_tests.erl | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 learn-you-some-erlang/ops_tests.erl

(limited to 'learn-you-some-erlang/ops_tests.erl')

diff --git a/learn-you-some-erlang/ops_tests.erl b/learn-you-some-erlang/ops_tests.erl
new file mode 100644
index 0000000..53323cf
--- /dev/null
+++ b/learn-you-some-erlang/ops_tests.erl
@@ -0,0 +1,25 @@
+-module(ops_tests).
+-include_lib("eunit/include/eunit.hrl").
+
+add_test() ->
+    4 = ops:add(2,2).
+
+new_add_test() ->
+    ?assertEqual(4, ops:add(2,2)),
+    ?assertEqual(3, ops:add(1,2)),
+    ?assert(is_number(ops:add(1,2))),
+    ?assertEqual(3, ops:add(1,1)),
+    ?assertError(badarith, 1/0).
+
+add_test_() ->
+    [test_them_types(),
+     test_them_values(),
+     ?_assertError(badarith, 1/0)].
+
+test_them_types() ->
+    ?_assert(is_number(ops:add(1,2))).
+
+test_them_values() ->
+    [?_assertEqual(4, ops:add(2,2)),
+     ?_assertEqual(3, ops:add(1,2)),
+     ?_assertEqual(3, ops:add(1,1))].
-- 
cgit v1.2.3