Unit Test for the first week assignment of the Erlang MOOC

erlang_mooc_week_one_tests

-module(assignment_one_tests).
-include_lib("eunit/include/eunit.hrl").

perimeter_test() -> ?assert(assignment_one:perimeter({triangle, {3,4,5}}) == 12),
  ?assert(assignment_one:perimeter({right_triangle, {3,4}}) == 12),
  ?assert(assignment_one:perimeter({square, {4,4}}) == 16),
  ?assert(assignment_one:perimeter({rectangle, {4,5}}) == 18).

area_test() -> ?assert(assignment_one:area({right_triangle, {3,4}}) == 6),
  ?assert(assignment_one:area({square, {5,5}}) =:= 25),
  ?assert(assignment_one:area({rectangle, {4,5}}) =:= 20).

enclose_test() -> ?assert(assignment_one:enclose({right_triangle, {3,4}}) == {rectangle, {3,4}}),
  ?assert(assignment_one:enclose({square, {5,5}}) == {rectangle, {5,5}}),
  ?assert(assignment_one:enclose({rectangle, {4,5}}) == {rectangle, {4,5}}).

bits_test() -> ?assert(assignment_one:bits(7) == 3),
  ?assert(assignment_one:bits(8) == 1).

bits_direct_test() -> ?assert(assignment_one:bits_direct(7) == 3),
  ?assert(assignment_one:bits_direct(8) == 1).