Not offered insurance if you can't afford it

Qluxzz · Nov 2, 2024 · 8137973 · 8137973
1 parent 7651de8
commit 8137973
Show file tree

Hide file tree

Showing 2 changed files with 28 additions and 4 deletions.
diff --git a/src/Main.elm b/src/Main.elm
@@ -763,7 +763,18 @@ view model =
         ]
     )
         ++ [ if model.state == HitOrStand && canBuyInsurance model.dealer then
-                insuranceView
+                let
+                    currentPlayer =
+                        model.players |> Tuple.first
+
+                    currentBet =
+                        currentPlayer.hands |> Tuple.first |> .bet
+                in
+                if currentPlayer.money > currentBet // 2 then
+                    insuranceView
+
+                else
+                    Html.text ""
 
              else
                 Html.text ""

diff --git a/tests/GameTests.elm b/tests/GameTests.elm
@@ -470,7 +470,20 @@ suite =
                         |> ProgramTest.advanceTime 4
                         -- Deal four cards
                         |> ProgramTest.expectViewHas
-                            [ Selector.exactText "Buy insurance?", Selector.exactText "Yes", Selector.exactText "No" ]
+                            [ Selector.exactText "Buy insurance?" ]
+            , test "You're not offered insurance if you can't afford it" <|
+                \_ ->
+                    start
+                        (defaultSettings
+                            |> withDeck [ Card.Card Card.Ten Card.Spades, Card.Card Card.Ace Card.Spades, Card.Card Card.King Card.Diamonds, Card.Card Card.King Card.Clubs ]
+                            |> withDelay
+                            |> withPlayers ( { money = 100 }, [] )
+                        )
+                        |> clickMarker 100
+                        |> ProgramTest.advanceTime 5
+                        -- Deal four cards
+                        |> ProgramTest.expectViewHasNot
+                            [ Selector.exactText "Buy insurance?" ]
             , test "If you buy insurance and the dealer has a blackjack, it pays out 2 to 1, so you get back your initial bet" <|
                 \_ ->
                     start
@@ -482,7 +495,7 @@ suite =
                         |> ProgramTest.advanceTime 4
                         -- Deal four cards
                         |> ProgramTest.ensureViewHas
-                            [ Selector.exactText "Buy insurance?", Selector.exactText "Yes", Selector.exactText "No" ]
+                            [ Selector.exactText "Buy insurance?" ]
                         |> ProgramTest.clickButton "Yes"
                         |> ProgramTest.advanceTime 2
                         |> ProgramTest.ensureView (toastHasMessage "You got your bet back!")
@@ -498,7 +511,7 @@ suite =
                         |> ProgramTest.advanceTime 4
                         -- Deal four cards
                         |> ProgramTest.ensureViewHas
-                            [ Selector.exactText "Buy insurance?", Selector.exactText "Yes", Selector.exactText "No" ]
+                            [ Selector.exactText "Buy insurance?" ]
                         |> ProgramTest.clickButton "No"
                         |> ProgramTest.clickButton "Stand"
                         |> ProgramTest.advanceTime 2