diff options
| author | Trygve Laugstøl <trygvis@inamo.no> | 2024-02-23 07:08:18 +0100 |
|---|---|---|
| committer | Trygve Laugstøl <trygvis@inamo.no> | 2024-02-23 07:08:18 +0100 |
| commit | 5a9cdd3cc89507d4d74f8bded56ce5e037b3b56e (patch) | |
| tree | 982ca2e7f9ac4e8c350dfb5c4f60bcfdfff5afaf /learn-you-some-erlang/tests/what_the_if_tests.erl | |
| parent | 05ae56e5e89abf2993f84e6d52b250131f247c35 (diff) | |
| download | erlang-workshop-5a9cdd3cc89507d4d74f8bded56ce5e037b3b56e.tar.gz erlang-workshop-5a9cdd3cc89507d4d74f8bded56ce5e037b3b56e.tar.bz2 erlang-workshop-5a9cdd3cc89507d4d74f8bded56ce5e037b3b56e.tar.xz erlang-workshop-5a9cdd3cc89507d4d74f8bded56ce5e037b3b56e.zip | |
wip
Diffstat (limited to 'learn-you-some-erlang/tests/what_the_if_tests.erl')
| -rw-r--r-- | learn-you-some-erlang/tests/what_the_if_tests.erl | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/learn-you-some-erlang/tests/what_the_if_tests.erl b/learn-you-some-erlang/tests/what_the_if_tests.erl new file mode 100644 index 0000000..13465e9 --- /dev/null +++ b/learn-you-some-erlang/tests/what_the_if_tests.erl @@ -0,0 +1,17 @@ +-module(what_the_if_tests). +-include_lib("eunit/include/eunit.hrl"). + +heh_fine_test() -> + ?assertException(error, if_clause, what_the_if:heh_fine()). + +oh_god_test_() -> + [?_assertEqual(might_succeed, what_the_if:oh_god(2)), + ?_assertEqual(always_does, what_the_if:oh_god(3))]. + +help_me_test_() -> + [?_assertEqual({cat, "says meow!"}, what_the_if:help_me(cat)), + ?_assertEqual({beef, "says mooo!"}, what_the_if:help_me(beef)), + ?_assertEqual({dog, "says bark!"}, what_the_if:help_me(dog)), + ?_assertEqual({tree, "says bark!"}, what_the_if:help_me(tree)), + ?_assertEqual({"other", "says fgdadfgna!"}, what_the_if:help_me("other")), + ?_assertEqual({5, "says fgdadfgna!"}, what_the_if:help_me(5))]. |