Negative pot issue

[bayasaa]

Please refer the following scenario. After this scenario, we end up having a negative pot which we are unable to split between the players.

all_in_example14_test() -> Pot = new(), { Pot1, 0 } = add_bet(Pot, 'A', 5), { Pot2, 0 } = add_bet(Pot1, 'B', 5), { Pot3, 0 } = add_bet(Pot2, 'C', 100), { Pot4, 0 } = add_bet(Pot3, 'A', 5, true), { Pot5, 0 } = add_bet(Pot4, 'B', 1, true), Side1 = lists:nth(1, Pot5#pot.active), Side2 = lists:nth(2, Pot5#pot.active), Current = Pot5#pot.current, io:format("Members: ~p all_in: ~p\n", [gb_trees:to_list(Side1#side_pot.members), Side1#side_pot.all_in]), io:format("Members: ~p all_in: ~p\n", [gb_trees:to_list(Side2#side_pot.members), Side2#side_pot.all_in]), io:format("Members: ~p all_in: ~p\n", [gb_trees:to_list(Current#side_pot.members), Current#side_pot.all_in]).