Anton Shestakov <engored@ya.ru>, Sat, 08 Mar 2014 23:40:26 +0900
Test rps3:why/2 and rps5:why/2.
test/rps5_tests.erl
Permissions: -rw-r--r--
-include_lib("eunit/include/eunit.hrl"). ?assertEqual(5, length(rps5:get_hands())). ?assertEqual(paper, rps5:winning_hand([rock, paper])), ?assertEqual(scissors, rps5:winning_hand([paper, scissors])), ?assertEqual(rock, rps5:winning_hand([scissors, rock])), ?assertEqual(rock, rps5:winning_hand([rock, rock, rock])), ?assertEqual(undefined, rps5:winning_hand([rock, paper, scissors])), ?assertEqual(paper, rps5:winning_hand([rock, paper, paper])), ?assertEqual(paper, rps5:winning_hand([rock, rock, paper])). ?assertEqual("smashes", rps5:why(spock, scissors)), ?assertEqual("lizard poisons spock, eats paper", rps5:why(lizard, [spock, paper])).