2012-08-01 01:49:51 +00:00
|
|
|
-module(riichi_yaku_tests).
|
|
|
|
|
|
|
|
|
|
-compile(export_all).
|
|
|
|
|
|
|
|
|
|
-include("../include/riichi.hrl").
|
|
|
|
|
-include_lib("eunit/include/eunit.hrl").
|
|
|
|
|
|
|
|
|
|
yakuhai_test_() ->
|
|
|
|
|
Yakuhai = [lists:duplicate(3, #tile{suit=wind, value=east}),
|
|
|
|
|
lists:duplicate(3, #tile{suit=wind, value=south})
|
|
|
|
|
] ++ [lists:duplicate(3, #tile{suit=dragon, value=V}) || V <- [red,white,green]],
|
|
|
|
|
Tiles = [#tile{suit=pin, value=V} || V <- [1,2] ++ lists:seq(1,9)],
|
|
|
|
|
Hands = [#hand{tiles=Tiles, melds=[#meld{type=pon, tiles=Y}]} || Y <- Yakuhai],
|
|
|
|
|
Players = [#player{seat=south, hand=H} || H <- Hands],
|
|
|
|
|
Games = [#game{round=east, players=[P]} || P <- Players],
|
|
|
|
|
[?_assertEqual(1, yaku:yakuhai(G, P)) || G = #game{players=[P]} <- Games].
|
|
|
|
|
|
|
|
|
|
multiple_yakuhai_test() ->
|
|
|
|
|
Yakuhai = [#meld{type=pon, tiles=lists:duplicate(3, #tile{suit=dragon, value=D})} || D <- [red,green,white]],
|
|
|
|
|
Player = #player{seat=south, hand=#hand{melds=Yakuhai}},
|
|
|
|
|
?assertEqual(3, yaku:yakuhai(#game{}, Player)).
|
|
|
|
|
|
|
|
|
|
tanyao_test() ->
|
|
|
|
|
Hand = #hand{melds=[#meld{type=pon, tiles=lists:duplicate(3, #tile{suit=pin, value=2})},
|
|
|
|
|
#meld{type=pair, tiles=lists:duplicate(2, #tile{suit=sou, value=8})},
|
|
|
|
|
#meld{type=chii, tiles=[#tile{suit=sou, value=V} || V <- [4,5,6]]},
|
|
|
|
|
#meld{type=chii, tiles=[#tile{suit=sou, value=V} || V <- [4,5,6]]},
|
|
|
|
|
#meld{type=chii, tiles=[#tile{suit=man, value=V} || V <- [6,7,8]]}]},
|
|
|
|
|
?assertEqual(true, yaku:tanyao(#game{}, #player{hand=Hand})).
|
|
|
|
|
|
|
|
|
|
pinfu_test() ->
|
|
|
|
|
Hand = #hand{melds=[#meld{type=pair, tiles=lists:duplicate(2, #tile{suit=sou, value=8})},
|
|
|
|
|
#meld{type=chii, tiles=[#tile{suit=pin, value=V} || V <- [1,2,3]]},
|
|
|
|
|
#meld{type=chii, tiles=[#tile{suit=sou, value=V} || V <- [4,5,6]]},
|
|
|
|
|
#meld{type=chii, tiles=[#tile{suit=sou, value=V} || V <- [4,5,6]]},
|
|
|
|
|
#meld{type=chii, tiles=[#tile{suit=man, value=V} || V <- [6,7,8]]}]},
|
2012-08-01 02:35:32 +00:00
|
|
|
?assertEqual(true, yaku:pinfu(#game{}, #player{hand=Hand, drawn={tsumo, #tile{suit=sou, value=6}}})).
|
2012-08-01 01:49:51 +00:00
|
|
|
|
2012-08-11 00:23:55 +00:00
|
|
|
iipeikou_test() ->
|
|
|
|
|
Hand = #hand{melds=[#meld{type=pair, tiles=lists:duplicate(2, #tile{suit=sou, value=8})},
|
|
|
|
|
#meld{type=chii, tiles=[#tile{suit=pin, value=V} || V <- [1,2,3]]},
|
|
|
|
|
#meld{type=chii, tiles=[#tile{suit=sou, value=V} || V <- [4,5,6]]},
|
|
|
|
|
#meld{type=chii, tiles=[#tile{suit=sou, value=V} || V <- [4,5,6]]},
|
|
|
|
|
#meld{type=chii, tiles=[#tile{suit=man, value=V} || V <- [6,7,8]]}]},
|
|
|
|
|
?assertEqual(true, yaku:iipeikou(#game{}, #player{hand=Hand, drawn={tsumo, #tile{suit=sou, value=6}}})).
|
|
|
|
|
|
2012-09-16 19:06:15 +00:00
|
|
|
ryanpeikou_not_iipeikou_test() ->
|
|
|
|
|
Hand = #hand{melds=[#meld{type=pair, tiles=lists:duplicate(2, #tile{suit=sou, value=8})},
|
|
|
|
|
#meld{type=chii, tiles=[#tile{suit=pin, value=V} || V <- [1,2,3]]},
|
|
|
|
|
#meld{type=chii, tiles=[#tile{suit=sou, value=V} || V <- [4,5,6]]},
|
|
|
|
|
#meld{type=chii, tiles=[#tile{suit=sou, value=V} || V <- [4,5,6]]},
|
|
|
|
|
#meld{type=chii, tiles=[#tile{suit=pin, value=V} || V <- [1,2,3]]}]},
|
|
|
|
|
?assertEqual(false, yaku:iipeikou(#game{}, #player{hand=Hand, drawn={tsumo, #tile{suit=sou, value=6}}})).
|
|
|
|
|
|
2012-08-11 00:42:52 +00:00
|
|
|
chanta_test() ->
|
|
|
|
|
Hand = #hand{melds=[#meld{type=pair, tiles=lists:duplicate(2, #tile{suit=dragon, value=red})},
|
|
|
|
|
#meld{type=chii, tiles=[#tile{suit=pin, value=V} || V <- [1,2,3]]},
|
|
|
|
|
#meld{type=pon, tiles=[#tile{suit=sou, value=V} || V <- [1,1,1]]},
|
|
|
|
|
#meld{type=pon, tiles=[#tile{suit=sou, value=V} || V <- [9,9,9]]},
|
|
|
|
|
#meld{type=chii, tiles=[#tile{suit=man, value=V} || V <- [7,8,9]]}]},
|
|
|
|
|
?assertEqual(true, yaku:chanta(#game{}, #player{hand=Hand, drawn={tsumo, #tile{suit=dragon, value=red}}})).
|
|
|
|
|
|
2012-08-11 01:29:35 +00:00
|
|
|
itsuu_test() ->
|
|
|
|
|
Hand = #hand{melds=[#meld{type=pair, tiles=lists:duplicate(2, #tile{suit=sou, value=8})},
|
|
|
|
|
#meld{type=chii, tiles=[#tile{suit=sou, value=V} || V <- [1,2,3]]},
|
|
|
|
|
#meld{type=chii, tiles=[#tile{suit=sou, value=V} || V <- [4,5,6]]},
|
|
|
|
|
#meld{type=chii, tiles=[#tile{suit=sou, value=V} || V <- [7,8,9]]},
|
|
|
|
|
#meld{type=chii, tiles=[#tile{suit=man, value=V} || V <- [6,7,8]]}]},
|
|
|
|
|
?assertEqual(true, yaku:itsuu(#game{}, #player{hand=Hand, drawn={tsumo, #tile{suit=dragon, value=red}}})).
|
|
|
|
|
|
2012-08-14 23:59:10 +00:00
|
|
|
san_shoku_doujun_test() ->
|
|
|
|
|
Hand = #hand{melds=[#meld{type=pair, tiles=lists:duplicate(2, #tile{suit=sou, value=8})},
|
|
|
|
|
#meld{type=chii, tiles=[#tile{suit=sou, value=V} || V <- [1,2,3]]},
|
|
|
|
|
#meld{type=chii, tiles=[#tile{suit=man, value=V} || V <- [1,2,3]]},
|
|
|
|
|
#meld{type=chii, tiles=[#tile{suit=pin, value=V} || V <- [1,2,3]]},
|
|
|
|
|
#meld{type=chii, tiles=[#tile{suit=man, value=V} || V <- [6,7,8]]}]},
|
|
|
|
|
?assertEqual(true, yaku:san_shoku_doujun(#game{}, #player{hand=Hand, drawn={tsumo, #tile{suit=dragon, value=red}}})).
|
|
|
|
|
|
2012-08-15 00:06:40 +00:00
|
|
|
san_shoku_douko_test() ->
|
|
|
|
|
Hand = #hand{melds=[#meld{type=pair, tiles=lists:duplicate(2, #tile{suit=sou, value=8})},
|
|
|
|
|
#meld{type=pon, tiles=[#tile{suit=sou, value=V} || V <- [1,1,1]]},
|
|
|
|
|
#meld{type=pon, tiles=[#tile{suit=man, value=V} || V <- [1,1,1]]},
|
|
|
|
|
#meld{type=pon, tiles=[#tile{suit=pin, value=V} || V <- [1,1,1]]},
|
|
|
|
|
#meld{type=chii, tiles=[#tile{suit=man, value=V} || V <- [6,7,8]]}]},
|
|
|
|
|
?assertEqual(true, yaku:san_shoku_douko(#game{}, #player{hand=Hand, drawn={tsumo, #tile{suit=dragon, value=red}}})).
|
|
|
|
|
|
2012-08-15 00:16:06 +00:00
|
|
|
san_kan_tsu_test() ->
|
|
|
|
|
Hand = #hand{melds=[#meld{type=pair, tiles=lists:duplicate(2, #tile{suit=sou, value=8})},
|
|
|
|
|
#meld{type=kan, tiles=[#tile{suit=sou, value=V} || V <- [1,1,1,1]]},
|
|
|
|
|
#meld{type=kan, tiles=[#tile{suit=man, value=V} || V <- [1,1,1,1]]},
|
|
|
|
|
#meld{type=kan, tiles=[#tile{suit=pin, value=V} || V <- [1,1,1,1]]},
|
|
|
|
|
#meld{type=chii, tiles=[#tile{suit=man, value=V} || V <- [6,7,8]]}]},
|
|
|
|
|
?assertEqual(true, yaku:san_kan_tsu(#game{}, #player{hand=Hand, drawn={tsumo, #tile{suit=dragon, value=red}}})).
|
|
|
|
|
|
2012-08-15 01:10:28 +00:00
|
|
|
toi_toi_test() ->
|
|
|
|
|
Hand = #hand{melds=[#meld{type=pair, tiles=lists:duplicate(2, #tile{suit=sou, value=8})},
|
|
|
|
|
#meld{type=kan, tiles=[#tile{suit=sou, value=V} || V <- [1,1,1,1]]},
|
|
|
|
|
#meld{type=kan, tiles=[#tile{suit=man, value=V} || V <- [1,1,1,1]]},
|
|
|
|
|
#meld{type=pon, tiles=[#tile{suit=pin, value=V} || V <- [2,2,2]]},
|
|
|
|
|
#meld{type=pon, tiles=[#tile{suit=pin, value=V} || V <- [8,8,8]]}]},
|
|
|
|
|
?assertEqual(true, yaku:toi_toi(#game{}, #player{hand=Hand, drawn={tsumo, #tile{suit=dragon, value=red}}})).
|
|
|
|
|
|
2012-08-15 01:25:51 +00:00
|
|
|
san_an_kou_test() ->
|
|
|
|
|
Hand = #hand{melds=[#meld{type=pair, tiles=lists:duplicate(2, #tile{suit=sou, value=8})},
|
|
|
|
|
#meld{type=kan, tiles=[#tile{suit=sou, value=V} || V <- [1,1,1,1]]},
|
|
|
|
|
#meld{type=kan, tiles=[#tile{suit=man, value=V} || V <- [1,1,1,1]]},
|
|
|
|
|
#meld{type=pon, tiles=[#tile{suit=pin, value=V} || V <- [1,1,1]]},
|
|
|
|
|
#meld{type=chii, tiles=[#tile{suit=man, value=V} || V <- [6,7,8]]}]},
|
|
|
|
|
?assertEqual(true, yaku:san_an_kou(#game{}, #player{hand=Hand, drawn={tsumo, #tile{suit=dragon, value=red}}})).
|
2012-08-15 01:10:28 +00:00
|
|
|
|
2012-09-16 19:06:15 +00:00
|
|
|
shou_san_gen_test() ->
|
|
|
|
|
Hand = #hand{melds=[#meld{type=chii, tiles=[#tile{suit=sou, value=V} || V <- [2,3,4]]},
|
|
|
|
|
#meld{type=pon, tiles=lists:duplicate(3, #tile{suit=dragon, value=red})},
|
|
|
|
|
#meld{type=pon, tiles=lists:duplicate(3, #tile{suit=dragon, value=green})},
|
|
|
|
|
#meld{type=kan, tiles=lists:duplicate(4, #tile{suit=pin, value=1})},
|
|
|
|
|
#meld{type=pair, tiles=lists:duplicate(2, #tile{suit=dragon, value=white})}]},
|
|
|
|
|
?assert(yaku:shou_san_gen(#game{}, #player{hand=Hand})).
|
|
|
|
|
|
|
|
|
|
honrouto_test() ->
|
|
|
|
|
Hand = #hand{melds=[#meld{type=pon, tiles=lists:duplicate(3, #tile{suit=sou, value=1})},
|
|
|
|
|
#meld{type=pon, tiles=lists:duplicate(3, #tile{suit=sou, value=9})},
|
|
|
|
|
#meld{type=pon, tiles=lists:duplicate(3, #tile{suit=dragon, value=green})},
|
|
|
|
|
#meld{type=kan, tiles=lists:duplicate(4, #tile{suit=pin, value=1})},
|
|
|
|
|
#meld{type=pair, tiles=lists:duplicate(2, #tile{suit=dragon, value=white})}]},
|
|
|
|
|
?assert(yaku:honrouto(#game{}, #player{hand=Hand})).
|
|
|
|
|
|
2012-08-01 01:49:51 +00:00
|
|
|
chiitoitsu_test() ->
|
|
|
|
|
Hand = #hand{melds=[#meld{type=pair, tiles=lists:duplicate(2, #tile{suit=pin, value=V})} || V <- lists:seq(1,7)]},
|
|
|
|
|
?assertEqual(true, yaku:chiitoitsu(#game{}, #player{hand=Hand})).
|
|
|
|
|
|
2012-09-16 19:06:15 +00:00
|
|
|
honitsu_test() ->
|
|
|
|
|
Hand = #hand{melds=[#meld{type=pair, tiles=lists:duplicate(2, #tile{suit=sou, value=8})},
|
|
|
|
|
#meld{type=pon, tiles=lists:duplicate(3, #tile{suit=dragon, value=red})},
|
|
|
|
|
#meld{type=chii, tiles=[#tile{suit=sou, value=V} || V <- [4,5,6]]},
|
|
|
|
|
#meld{type=chii, tiles=[#tile{suit=sou, value=V} || V <- [4,5,6]]},
|
|
|
|
|
#meld{type=pon, tiles=lists:duplicate(3, #tile{suit=sou, value=1})}]},
|
|
|
|
|
?assertEqual(true, yaku:honitsu(#game{}, #player{hand=Hand, drawn={tsumo, #tile{suit=sou, value=1}}})).
|
|
|
|
|
|
|
|
|
|
jun_chan_test() ->
|
|
|
|
|
Hand = #hand{melds=[#meld{type=pair, tiles=lists:duplicate(2, #tile{suit=sou, value=9})},
|
|
|
|
|
#meld{type=chii, tiles=[#tile{suit=pin, value=V} || V <- [1,2,3]]},
|
|
|
|
|
#meld{type=chii, tiles=[#tile{suit=sou, value=V} || V <- [7,8,9]]},
|
|
|
|
|
#meld{type=chii, tiles=[#tile{suit=sou, value=V} || V <- [7,8,9]]},
|
|
|
|
|
#meld{type=chii, tiles=[#tile{suit=pin, value=V} || V <- [1,2,3]]}]},
|
|
|
|
|
?assertEqual(true, yaku:jun_chan(#game{}, #player{hand=Hand, drawn={tsumo, #tile{suit=sou, value=7}}})).
|
|
|
|
|
|
|
|
|
|
ryanpeikou_test() ->
|
|
|
|
|
Hand = #hand{melds=[#meld{type=pair, tiles=lists:duplicate(2, #tile{suit=sou, value=8})},
|
|
|
|
|
#meld{type=chii, tiles=[#tile{suit=pin, value=V} || V <- [1,2,3]]},
|
|
|
|
|
#meld{type=chii, tiles=[#tile{suit=sou, value=V} || V <- [4,5,6]]},
|
|
|
|
|
#meld{type=chii, tiles=[#tile{suit=sou, value=V} || V <- [4,5,6]]},
|
|
|
|
|
#meld{type=chii, tiles=[#tile{suit=pin, value=V} || V <- [1,2,3]]}]},
|
|
|
|
|
?assertEqual(true, yaku:ryanpeikou(#game{}, #player{hand=Hand, drawn={tsumo, #tile{suit=sou, value=6}}})).
|
|
|
|
|
|
|
|
|
|
chinitsu_test() ->
|
|
|
|
|
Hand = #hand{melds=[#meld{type=pair, tiles=lists:duplicate(2, #tile{suit=sou, value=8})},
|
|
|
|
|
#meld{type=pon, tiles=lists:duplicate(3, #tile{suit=sou, value=9})},
|
|
|
|
|
#meld{type=chii, tiles=[#tile{suit=sou, value=V} || V <- [4,5,6]]},
|
|
|
|
|
#meld{type=chii, tiles=[#tile{suit=sou, value=V} || V <- [4,5,6]]},
|
|
|
|
|
#meld{type=pon, tiles=lists:duplicate(3, #tile{suit=sou, value=1})}]},
|
|
|
|
|
?assertEqual(true, yaku:chinitsu(#game{}, #player{hand=Hand, drawn={tsumo, #tile{suit=sou, value=1}}})).
|
|
|
|
|
|
2012-08-01 01:49:51 +00:00
|
|
|
kokushi_musou_test() ->
|
|
|
|
|
Hand = #hand{tiles=?TERMINALS ++ ?HONOURS -- [#tile{suit=pin, value=1}],
|
|
|
|
|
melds=[#meld{type=pair, tiles=lists:duplicate(2, #tile{suit=pin, value=1})}]},
|
|
|
|
|
?assertEqual(true, yaku:kokushi_musou(#game{}, #player{hand=Hand})).
|
2012-08-01 04:29:56 +00:00
|
|
|
|
|
|
|
|
ryuu_iisou_test() ->
|
|
|
|
|
Hand = #hand{melds=[#meld{type=chii, tiles=[#tile{suit=sou, value=V} || V <- [2,3,4]]},
|
|
|
|
|
#meld{type=chii, tiles=[#tile{suit=sou, value=V} || V <- [2,3,4]]},
|
|
|
|
|
#meld{type=pon, tiles=lists:duplicate(3, #tile{suit=sou, value=6})},
|
|
|
|
|
#meld{type=pon, tiles=lists:duplicate(3, #tile{suit=sou, value=8})},
|
|
|
|
|
#meld{type=pair, tiles=lists:duplicate(2, #tile{suit=dragon, value=green})}]},
|
|
|
|
|
?assert(yaku:ryuu_iisou(#game{}, #player{hand=Hand})).
|
2012-08-01 04:41:43 +00:00
|
|
|
|
|
|
|
|
dai_san_gen_test() ->
|
|
|
|
|
Hand = #hand{melds=[#meld{type=chii, tiles=[#tile{suit=sou, value=V} || V <- [2,3,4]]},
|
|
|
|
|
#meld{type=pon, tiles=lists:duplicate(3, #tile{suit=dragon, value=red})},
|
|
|
|
|
#meld{type=pon, tiles=lists:duplicate(3, #tile{suit=dragon, value=green})},
|
|
|
|
|
#meld{type=kan, tiles=lists:duplicate(4, #tile{suit=dragon, value=white})},
|
|
|
|
|
#meld{type=pair, tiles=lists:duplicate(2, #tile{suit=pin, value=1})}]},
|
|
|
|
|
?assert(yaku:dai_san_gen(#game{}, #player{hand=Hand})).
|
