Unit testing

[Dick]

Please can you show me how to unit test the following class...

Friend Delegate Sub Delegate1()

Friend Class Class1

Private m_Delegate1 As Delegate1

Friend WriteOnly Property Delegate1() As Delegate1
Set(ByVal value As Delegate1)
Me.m_Delegate1 = value
End Set
End Property

Friend Sub Sub1()
Me.m_Delegate1. Invoke()
End Sub

End Class

I want my test to look something like this...

Public Sub Test()

Dim target As Object = Class1Accessor. CreatePrivate

Dim val As Delegate1Access or = New Delegate1Access or(AddressOf MySub)

Dim accessor As Class1Accessor = New Class1Accessor( target)

accessor.Delega te1 = val
accessor.Sub1()

End Sub

Public Sub MySub()
Stop
End Sub

[Kevin Yu [MSFT]]

Hi Richard,

We have reviewed this issue and are currently researching on it. We will
update you ASAP. Thanks for your patience!

Kevin Yu
=======
"This posting is provided "AS IS" with no warranties, and confers no
rights."

[Kevin Yu [MSFT]]

Hi Richard,

I'm not quite sure what do you mean by Class1Accessor. CreatePrivate? Could
you explain it with a little more details?

Kevin Yu
Microsoft Online Community Support

=============== =============== =============== =============== =============== =
=============== ===========
When responding to posts, please "Reply to Group" via your newsreader so
that others may learn and benefit from your issue.
=============== =============== =============== =============== =============== =
=============== ===========

(This posting is provided "AS IS", with no warranties, and confers no
rights.)

[Dick]

Hi Kevin.

Class1Accessor. CreatePrivate creates an object from the private class
"Class1".

ms-help://MS.VSCC.v80/MS.MSDN.v80/MS.VSENT.v80.en/dv_vsetlt01/html/f6cc7fc2-c43c-4b0c-ba4e-60755cc39e28.ht m
explains how to create unit tests for private members.

"Kevin Yu [MSFT]" wrote:

Hi Richard,

I'm not quite sure what do you mean by Class1Accessor. CreatePrivate? Could
you explain it with a little more details?

Kevin Yu
Microsoft Online Community Support

=============== =============== =============== =============== =============== =
=============== ===========
When responding to posts, please "Reply to Group" via your newsreader so
that others may learn and benefit from your issue.
=============== =============== =============== =============== =============== =
=============== ===========

(This posting is provided "AS IS", with no warranties, and confers no
rights.)

[Kevin Yu [MSFT]]

Hi Richard,

Sorry for the late response, but your code seems to be fine. I used the
code generator to generate test code. It looks like the following which
seems to be the same as the code you have provided.

<DeploymentItem ("WindowsApplic ation85.exe"), _
TestMethod()> _
Public Sub Delegate1Test()
Dim target As Object =
WindowsApplicat ion85_Class1Acc essor.CreatePri vate

Dim val As WindowsApplicat ion85_Delegate1 Accessor = New
WindowsApplicat ion85_Delegate1 Accessor(Addres sOf MySub) 'TODO: Assign to an
appropriate value for the property

Dim accessor As WindowsApplicat ion85_Class1Acc essor = New
WindowsApplicat ion85_Class1Acc essor(target)

accessor.Delega te1 = val

Assert.Inconclu sive("Write-only properties cannot be verified.")
End Sub

Are you testing the delegate? Do you have any concerns on this? Please feel
free to let me know.

Kevin Yu
Microsoft Online Community Support

=============== =============== =============== =============== =============== =
=============== ===========
When responding to posts, please "Reply to Group" via your newsreader so
that others may learn and benefit from your issue.
=============== =============== =============== =============== =============== =
=============== ===========

(This posting is provided "AS IS", with no warranties, and confers no
rights.)