не может запустить этот тест блока с издеваться

Question

Я попытался сделать модульное тестирование для этого метода, который является довольно простым только добавить объект в базу данных, и если он хорошо работает возвращает истинное

Public Shared Function CrearCliente(ByVal cliente As Cliente) As Boolean 
    Try 
     db.Cliente.Add(cliente) 
     db.SaveChanges() 
     Return True 
    Catch ex As Exception 
     Throw New Exception("ocurrio un error guardando al cliente") 
    End Try 
End Function 

Теперь вот мои тест

<TestMethod()> 
Public Sub CrearClienteTest() 
    Dim mock = New Moq.Mock(Of Cliente) 
    Dim actual As Boolean 
    mock.Setup(Function(x) x.Nombre).Returns("blah") 
    'mock.Setup(Function(x) x.Apellido() 
    actual = Class1.CrearCliente(mock.Object) 
    Assert.AreEqual(True, actual) 
End Sub 

Довольно просто мой вопрос, почему, когда отлаживал тест выдает эту ошибку

Invalid setup on a non-virtual (overridable in VB) member: x => x.Nombre 

Что может быть неправильным? мне нужна другая конфигурация?

Answer 1

Как заявляет ошибка, Moq требует, чтобы член, которого вы издеваетесь, был Overridable.