Skip to content
Browse files

30:30 + p1 -> 40:30 : red

  • Loading branch information...
1 parent 88aefc9 commit cd8be7d9a87b07fe186b43afa355f9a2e4f9e5e6 @ilkerde committed Feb 3, 2012
Showing with 8 additions and 0 deletions.
  1. +8 −0 KataTennis.FSharp/src/TennisTests.fs
View
8 KataTennis.FSharp/src/TennisTests.fs
@@ -56,3 +56,11 @@ let when_score_is_love_fifteen_and_player_two_scores_then_score_is_love_thirty (
|> score PlayerTwo
|> snd
)
+
+[<Fact>]
+let when_score_is_thirty_all_and_player_one_scores_then_score_is_forty_thirty () =
+ Assert.Equal(Forty,
+ game (Thirty, Thirty)
+ |> score PlayerOne
+ |> fst
+ )

0 comments on commit cd8be7d

Please sign in to comment.
Something went wrong with that request. Please try again.