module TwoFerTest open NUnit.Framework open TwoFer [] let ``No name given`` () = Assert.That(getResponse None, Is.EqualTo("One for you, one for me.")) [] [] let ``A name given`` () = Assert.That(getResponse (Some "Alice"), Is.EqualTo("One for Alice, one for me.")) [] [] let ``Another name given`` () = Assert.That(getResponse (Some "Bob"), Is.EqualTo("One for Bob, one for me."))