How to use the TheseCalls.WillReturn

       
 Dim l_http_HttpWebResponse As HttpWebResponse = l_http_HttpWebRequest.GetResponse()
        Using TheseCalls.WillBeIgnored
            fake.GetResponse(l_http_HttpWebResponse, "20100820101155859")
        End Using

Test 'AsBoxGWUT.GWBaseBLogicTest.ReceiveBusinessNexas02' failed: Test method AsBoxGWUT.GWBaseBLogicTest.ReceiveBusinessNexas02 threw exception:  TypeMock.ArrangeActAssert.NestedCallException: 
*** WhenCalled does not support using a method call as an argument.
-   To fix this pass null instead of GWBaseBLogic_Accessor.GetResponse()

***
* Example - this would work:
-   MyObj argument = Something.Other().GetStuff();
-   Isolate.WhenCalled(() => ObjUnderTest.MethodUnderTest(argument))...;
***
* Example - this would not work:
-   Isolate.WhenCalled(() => ObjUnderTest.MethodUnderTest(Something.Other().GetStuff()))...;.

        Dim fake As GWBaseBLogic_Accessor = FakeInstance(Of GWBaseBLogic_Accessor)(Members.CallOriginal)
        Dim l_obj_NXCommunicator = New NXCommunicator
        Dim l_http_HttpWebRequest As HttpWebRequest = HttpWebRequest.Create("http:\xxxx.com")
        Using TheseCalls.WillBeIgnored()
            l_obj_NXCommunicator.ResponseReceive(l_http_HttpWebRequest, "20100820101155859")
        End Using
        Dim l_xml_XmlObject = New XmlDocument
        l_xml_XmlObject.Load("Blogic\TestData\ReceiveBusinessNexas02.xml")
        Dim l_http_HttpWebResponse As HttpWebResponse = l_http_HttpWebRequest.GetResponse()
        Using TheseCalls.WillBeIgnored
            fake.GetResponse(l_http_HttpWebResponse, "20100820101155859")
        End Using

        Dim l_lst_ErrorResultList = New List(Of String)
        l_lst_ErrorResultList.Add("AccessError")
        Using TheseCalls.WillReturn(l_lst_ErrorResultList)
            fake.ResponseAnalysis(l_xml_XmlObject, "20100820101155859")
        End Using
        Dim l_obj_GWBLogicParam As New GWBLogicParam(New XmlDocument, "Param005", "20100820101155859")

        Dim l_obj_ActualResult As GWBLogicResult = fake.ReceiveBusinessNexas(l_obj_GWBLogicParam, l_http_HttpWebRequest, "1")

        Assert.AreEqual(False, l_obj_ActualResult.IsSuccess)
        Assert.AreEqual("999", l_obj_ActualResult.ErrorCd)

Using TheseCalls.WillBeIgnored()
    l_obj_NXCommunicator.ResponseReceive(Nothing, Nothing)
End Using

By default the parameters are ignored by the Isolator anyway.

Using TheseCalls.WillReturn(5)
    fake.SomeMethod(String.Empty)
End Using

Using TheseCalls.WillReturn(5)
    fake.SomeMethod("abc")
End Using

'Production code
Public Class A
    Public Function Method(ByRef b As B) As Int32
        Return 1
    End Function
End Class

Public Class B
    Public x As Int32
End Class

'Test code
Dim fake As A = FakeInstance(Of A)()
'Isolator API for non public
NonPublicWillReturn(fake, "Method", 5)
Assert.AreEqual(5, fake.Method(Nothing))

'Production code 
Public Class A
        Public Function Method(ByRef b As Integer) As Int32
            Return 1
        End Function
        Public Function MyTest() As Integer
            Dim a As Integer = 23
            Dim b As Integer = 4
            a = Method(b)
            Return a
        End Function

' Test Code

        Dim fake As A = FakeInstance(Of A)(Members.CallOriginal)
        'Isolator API for non public 
        NonPublicWillReturn(fake, "Method", 5)
        Dim actualResult= fake.MyTest()
        Assert.AreEqual(5, actualResult)

' Production Code
Public Class A
   Private Function Method(ByRef b As Net.HttpWebRequest) As B
        Dim test = New B
        test.x = 1
        Return test
    End Function
    Private Function MyTest() As B
        Dim test = New B
        test.x = 23
        Dim l_httpWebRequest As Net.HttpWebRequest = Nothing
        test = Method(l_httpWebRequest)
        Return test
    End Function
End Class


Public Class B
    Public x As Int32

End Class


' Test Code
        Dim fake As A_Accessor = FakeInstance(Of A_Accessor)(Members.CallOriginal)
        'Isolator API for non public 
        Dim test = New B
        test.x = 5
        NonPublicWillReturn(fake, "Method", test)
        Dim actualResult = fake.MyTest()
        Assert.AreEqual(5, actualResult.x)