Mocking My.Settings...

We are using Isolator 4.2.3.0 (I know there is a later version, but we are in the middle of a project and our tech lead does not want to update).

I wanted to test the paths through the following code:

Private Sub LogStart(ByVal xmlData As String)

      startTime = DateTime.Now()
      auditLog.AddToAudit("Date: " & startTime.ToString("MMddyyyy hh:mm:ss tt"))
      auditLog.AddToAudit("")
      If My.Settings.DisplayXMLDebugData Then
         auditLog.AddToAudit("XML: " & xmlData)
         auditLog.AddToAudit("")
      End If

   End Sub

Specifically, I expect auditLog.AddToAudit() to be called twice if My.Settings.DisplayXMLDebugData returns false and four times if My.Settings.DisplayXMLDebugData returns true.

My initial test was something like:

<TestMethod> _
   Public Sub LogStartWithXMLTest()
      Dim target As LoanProcessingWS_Accessor = New LoanProcessingWS_Accessor

      Using recorder As New TypeMock.RecordExpectations
           Dim dummy As Boolean = My.Settings.DisplayXMLDebugData()
           recorder.Return(True).Repeat(1)
           target.auditLog.AddToAudit(Nothing)
           recorder.Repeat(4)
      End Using

      target.LogStart(<test>test</test>.ToString())

      MockManager.Verify()

   End Sub

But that did not work. The error message is:
Test method AgFirst.LoanProcessing.WS.Tests.LoanProcessingWSTest.LogStartWithXMLTest threw exception: TypeMock.VerifyException:
TypeMock Verification: Method AgFirst.LoanProcessing.Common.AuditLog.AddToAudit() has 2 more expected calls
Method AgFirst.LoanProcessing.WS.Tests.My.MySettingsProperty.get_Settings() has 1 more expected calls
Method AgFirst.LoanProcessing.WS.Tests.My.MySettings.get_DisplayXMLDebugData() has 1 more expected calls


Can anyone help me out with how to mock a My.Settings property? I searched the forums but could not locate any thing on this.

Thanks,
Bobby