From 5a9cdd3cc89507d4d74f8bded56ce5e037b3b56e Mon Sep 17 00:00:00 2001 From: Trygve Laugstøl Date: Fri, 23 Feb 2024 07:08:18 +0100 Subject: wip --- learn-you-some-erlang/tests/guards_tests.erl | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 learn-you-some-erlang/tests/guards_tests.erl (limited to 'learn-you-some-erlang/tests/guards_tests.erl') diff --git a/learn-you-some-erlang/tests/guards_tests.erl b/learn-you-some-erlang/tests/guards_tests.erl new file mode 100644 index 0000000..d908bcf --- /dev/null +++ b/learn-you-some-erlang/tests/guards_tests.erl @@ -0,0 +1,22 @@ +-module(guards_tests). +-include_lib("eunit/include/eunit.hrl"). + +old_enough_test_() -> + [?_assertEqual(true, guards:old_enough(16)), + ?_assertEqual(false, guards:old_enough(15)), + ?_assertEqual(false, guards:old_enough(-16))]. + +right_age_test_() -> + [?_assertEqual(true, guards:right_age(16)), + ?_assertEqual(true, guards:right_age(104)), + ?_assertEqual(true, guards:right_age(50)), + ?_assertEqual(false, guards:right_age(15)), + ?_assertEqual(false, guards:right_age(105))]. + +wrong_age_test_() -> + [?_assertEqual(false, guards:wrong_age(16)), + ?_assertEqual(false, guards:wrong_age(104)), + ?_assertEqual(false, guards:wrong_age(50)), + ?_assertEqual(true, guards:wrong_age(15)), + ?_assertEqual(true, guards:wrong_age(105))]. + -- cgit v1.2.3