module PokerTests open FsUnit.Xunit open Xunit open Poker [] let ``Single hand always wins`` () = let hands = ["4S 5S 7H 8D JC"] let expected = ["4S 5S 7H 8D JC"] bestHands hands |> should equal expected [] let ``Highest card out of all hands wins`` () = let hands = ["4D 5S 6S 8D 3C"; "2S 4C 7S 9H 10H"; "3S 4S 5D 6H JH"] let expected = ["3S 4S 5D 6H JH"] bestHands hands |> should equal expected [] let ``A tie has multiple winners`` () = let hands = ["4D 5S 6S 8D 3C"; "2S 4C 7S 9H 10H"; "3S 4S 5D 6H JH"; "3H 4H 5C 6C JD"] let expected = ["3S 4S 5D 6H JH"; "3H 4H 5C 6C JD"] bestHands hands |> should equal expected [] let ``Multiple hands with the same high cards, tie compares next highest ranked, down to last card`` () = let hands = ["3S 5H 6S 8D 7H"; "2S 5D 6D 8C 7S"] let expected = ["3S 5H 6S 8D 7H"] bestHands hands |> should equal expected [] let ``Winning high card hand also has the lowest card`` () = let hands = ["2S 5H 6S 8D 7H"; "3S 4D 6D 8C 7S"] let expected = ["2S 5H 6S 8D 7H"] bestHands hands |> should equal expected [] let ``One pair beats high card`` () = let hands = ["4S 5H 6C 8D KH"; "2S 4H 6S 4D JH"] let expected = ["2S 4H 6S 4D JH"] bestHands hands |> should equal expected [] let ``Highest pair wins`` () = let hands = ["4S 2H 6S 2D JH"; "2S 4H 6C 4D JD"] let expected = ["2S 4H 6C 4D JD"] bestHands hands |> should equal expected [] let ``Both hands have the same pair, high card wins`` () = let hands = ["4H 4S AH JC 3D"; "4C 4D AS 5D 6C"] let expected = ["4H 4S AH JC 3D"] bestHands hands |> should equal expected [] let ``Two pairs beats one pair`` () = let hands = ["2S 8H 6S 8D JH"; "4S 5H 4C 8C 5C"] let expected = ["4S 5H 4C 8C 5C"] bestHands hands |> should equal expected [] let ``Both hands have two pairs, highest ranked pair wins`` () = let hands = ["2S 8H 2D 8D 3H"; "4S 5H 4C 8S 5D"] let expected = ["2S 8H 2D 8D 3H"] bestHands hands |> should equal expected [] let ``Both hands have two pairs, with the same highest ranked pair, tie goes to low pair`` () = let hands = ["2S QS 2C QD JH"; "JD QH JS 8D QC"] let expected = ["JD QH JS 8D QC"] bestHands hands |> should equal expected [] let ``Both hands have two identically ranked pairs, tie goes to remaining card (kicker)`` () = let hands = ["JD QH JS 8D QC"; "JS QS JC 2D QD"] let expected = ["JD QH JS 8D QC"] bestHands hands |> should equal expected [] let ``Both hands have two pairs that add to the same value, win goes to highest pair`` () = let hands = ["6S 6H 3S 3H AS"; "7H 7S 2H 2S AC"] let expected = ["7H 7S 2H 2S AC"] bestHands hands |> should equal expected [] let ``Two pairs first ranked by largest pair`` () = let hands = ["5C 2S 5S 4H 4C"; "6S 2S 6H 7C 2C"] let expected = ["6S 2S 6H 7C 2C"] bestHands hands |> should equal expected [] let ``Three of a kind beats two pair`` () = let hands = ["2S 8H 2H 8D JH"; "4S 5H 4C 8S 4H"] let expected = ["4S 5H 4C 8S 4H"] bestHands hands |> should equal expected [] let ``Both hands have three of a kind, tie goes to highest ranked triplet`` () = let hands = ["2S 2H 2C 8D JH"; "4S AH AS 8C AD"] let expected = ["4S AH AS 8C AD"] bestHands hands |> should equal expected [] let ``With multiple decks, two players can have same three of a kind, ties go to highest remaining cards`` () = let hands = ["5S AH AS 7C AD"; "4S AH AS 8C AD"] let expected = ["4S AH AS 8C AD"] bestHands hands |> should equal expected [] let ``A straight beats three of a kind`` () = let hands = ["4S 5H 4C 8D 4H"; "3S 4D 2S 6D 5C"] let expected = ["3S 4D 2S 6D 5C"] bestHands hands |> should equal expected [] let ``Aces can end a straight (10 J Q K A)`` () = let hands = ["4S 5H 4C 8D 4H"; "10D JH QS KD AC"] let expected = ["10D JH QS KD AC"] bestHands hands |> should equal expected [] let ``Aces can start a straight (A 2 3 4 5)`` () = let hands = ["4S 5H 4C 8D 4H"; "4D AH 3S 2D 5C"] let expected = ["4D AH 3S 2D 5C"] bestHands hands |> should equal expected [] let ``Aces cannot be in the middle of a straight (Q K A 2 3)`` () = let hands = ["2C 3D 7H 5H 2S"; "QS KH AC 2D 3S"] let expected = ["2C 3D 7H 5H 2S"] bestHands hands |> should equal expected [] let ``Both hands with a straight, tie goes to highest ranked card`` () = let hands = ["4S 6C 7S 8D 5H"; "5S 7H 8S 9D 6H"] let expected = ["5S 7H 8S 9D 6H"] bestHands hands |> should equal expected [] let ``Even though an ace is usually high, a 5-high straight is the lowest-scoring straight`` () = let hands = ["2H 3C 4D 5D 6H"; "4S AH 3S 2D 5H"] let expected = ["2H 3C 4D 5D 6H"] bestHands hands |> should equal expected [] let ``Flush beats a straight`` () = let hands = ["4C 6H 7D 8D 5H"; "2S 4S 5S 6S 7S"] let expected = ["2S 4S 5S 6S 7S"] bestHands hands |> should equal expected [] let ``Both hands have a flush, tie goes to high card, down to the last one if necessary`` () = let hands = ["2H 7H 8H 9H 6H"; "3S 5S 6S 7S 8S"] let expected = ["2H 7H 8H 9H 6H"] bestHands hands |> should equal expected [] let ``Full house beats a flush`` () = let hands = ["3H 6H 7H 8H 5H"; "4S 5H 4C 5D 4H"] let expected = ["4S 5H 4C 5D 4H"] bestHands hands |> should equal expected [] let ``Both hands have a full house, tie goes to highest-ranked triplet`` () = let hands = ["4H 4S 4D 9S 9D"; "5H 5S 5D 8S 8D"] let expected = ["5H 5S 5D 8S 8D"] bestHands hands |> should equal expected [] let ``With multiple decks, both hands have a full house with the same triplet, tie goes to the pair`` () = let hands = ["5H 5S 5D 9S 9D"; "5H 5S 5D 8S 8D"] let expected = ["5H 5S 5D 9S 9D"] bestHands hands |> should equal expected [] let ``Four of a kind beats a full house`` () = let hands = ["4S 5H 4D 5D 4H"; "3S 3H 2S 3D 3C"] let expected = ["3S 3H 2S 3D 3C"] bestHands hands |> should equal expected [] let ``Both hands have four of a kind, tie goes to high quad`` () = let hands = ["2S 2H 2C 8D 2D"; "4S 5H 5S 5D 5C"] let expected = ["4S 5H 5S 5D 5C"] bestHands hands |> should equal expected [] let ``With multiple decks, both hands with identical four of a kind, tie determined by kicker`` () = let hands = ["3S 3H 2S 3D 3C"; "3S 3H 4S 3D 3C"] let expected = ["3S 3H 4S 3D 3C"] bestHands hands |> should equal expected [] let ``Straight flush beats four of a kind`` () = let hands = ["4S 5H 5S 5D 5C"; "7S 8S 9S 6S 10S"] let expected = ["7S 8S 9S 6S 10S"] bestHands hands |> should equal expected [] let ``Aces can end a straight flush (10 J Q K A)`` () = let hands = ["KC AH AS AD AC"; "10C JC QC KC AC"] let expected = ["10C JC QC KC AC"] bestHands hands |> should equal expected [] let ``Aces can start a straight flush (A 2 3 4 5)`` () = let hands = ["KS AH AS AD AC"; "4H AH 3H 2H 5H"] let expected = ["4H AH 3H 2H 5H"] bestHands hands |> should equal expected [] let ``Aces cannot be in the middle of a straight flush (Q K A 2 3)`` () = let hands = ["2C AC QC 10C KC"; "QH KH AH 2H 3H"] let expected = ["2C AC QC 10C KC"] bestHands hands |> should equal expected [] let ``Both hands have a straight flush, tie goes to highest-ranked card`` () = let hands = ["4H 6H 7H 8H 5H"; "5S 7S 8S 9S 6S"] let expected = ["5S 7S 8S 9S 6S"] bestHands hands |> should equal expected [] let ``Even though an ace is usually high, a 5-high straight flush is the lowest-scoring straight flush`` () = let hands = ["2H 3H 4H 5H 6H"; "4D AD 3D 2D 5D"] let expected = ["2H 3H 4H 5H 6H"] bestHands hands |> should equal expected