FUnit and Foq sample

FUnit and Foq

namespace Library1.Tests

open NUnit.Framework
open FsUnit
open Foq

type person = {Name : string ; PhoneNumber: string}

type IPhoneNumberRepository =
    abstract member FindPhoneNumber : string -> string

type PersonService(phonenumberRepository : IPhoneNumberRepository) =
    let _phoneNumberRepository = phonenumberRepository
   
    member this.GetPerson(name: string) = {Name = name ; PhoneNumber = _phoneNumberRepository.FindPhoneNumber(name)} 


module mocks =
    let MockPhoneNumberRepository() = 
    { 
        new IPhoneNumberRepository with 
            member this.FindPhoneNumber(name) = match name with "Elisabeth" -> "87654321" | _ -> ""
    }

[<TestFixture>] 
type ``Given a IPhoneNumberRepository`` ()=
    let numberRepoMock = 
        Mock<IPhoneNumberRepository>()
            .Setup(fun phoneNumberRepository -> <@ phoneNumberRepository.FindPhoneNumber("Christian") @>)
            .Returns("12345678").Create()
        
    [<Test>] member test.``when I get a person the phone number is retrieved correctly using object expression.`` ()=
        let sut = PersonService(mocks.MockPhoneNumberRepository())
        sut.GetPerson("Elisabeth").PhoneNumber |> should equal "87654321" 

    [<Test>] member test.``when I get a person the phone number is retrieved correctly using mock.`` ()=
        let sut = PersonService(numberRepoMock)
        sut.GetPerson("Christian").PhoneNumber |> should equal "12345678"