Testing Private Types

[Dick]

I have some simple (private) types...

Friend Enum Types
Value1
Value2
End Enum

Friend Structure Detail
Dim Type As Types
End Structure

Friend Class Parser
Friend Function GetDetail() As Detail
Dim _Detail As New Detail
_Detail.Type = Types.Value2
Return _Detail
End Function
End Class

I hope to test the Parser.GetDetai l method with the following test but I
can't see how to set the _ExpectedDetail .Type...

<TestClass()> Public Class ParserTest

<TestMethod() > Public Sub GetDetailTest()

Dim _Parser As ClassLibrary1_P arserAccessor = New
ClassLibrary1_P arserAccessor(C lassLibrary1_Pa rserAccessor.Cr eatePrivate)

Dim _ExpectedDetail As ClassLibrary1_D etailAccessor = New
ClassLibrary1_D etailAccessor(C lassLibrary1_De tailAccessor.Cr eatePrivate)

'_ExpectedDetai l.Type = ClassLibrary1_T ypesAccessor.Va lue2
'_ExpectedDetai l.Type = New
ClassLibrary1_T ypesAccessor(Cl assLibrary1_Typ esAccessor.Valu e2)
'_ExpectedDetai l.Type = ???

Dim _ActualDetail As ClassLibrary1_D etailAccessor = _Parser.GetDeta il

Assert.AreEqual (_ExpectedDetai l.Type, _ActualDetail.T ype)

End Sub

End Class

[Cowboy \(Gregory A. Beamer\)]

You can test the friends by embedding your test stubs, although this is not
a "best practice". You can also test with reflection, which is what Team
System does. I do not have the details (i.e. code samples), but I might be
able to find the bandwidth to reverse engineer a Team System test on a
method not publicly exposed.

--
Gregory A. Beamer

*************** *************** *************** ****
Think Outside the Box!
*************** *************** *************** ****
"Dick" <Ri***********@ nospam.nospam> wrote in message
news:3D******** *************** ***********@mic rosoft.com...

I have some simple (private) types...

Friend Enum Types
Value1
Value2
End Enum

Friend Structure Detail
Dim Type As Types
End Structure

Friend Class Parser
Friend Function GetDetail() As Detail
Dim _Detail As New Detail
_Detail.Type = Types.Value2
Return _Detail
End Function
End Class

I hope to test the Parser.GetDetai l method with the following test but I
can't see how to set the _ExpectedDetail .Type...

<TestClass()> Public Class ParserTest

<TestMethod() > Public Sub GetDetailTest()

Dim _Parser As ClassLibrary1_P arserAccessor = New
ClassLibrary1_P arserAccessor(C lassLibrary1_Pa rserAccessor.Cr eatePrivate)

Dim _ExpectedDetail As ClassLibrary1_D etailAccessor = New
ClassLibrary1_D etailAccessor(C lassLibrary1_De tailAccessor.Cr eatePrivate)

'_ExpectedDetai l.Type = ClassLibrary1_T ypesAccessor.Va lue2
'_ExpectedDetai l.Type = New
ClassLibrary1_T ypesAccessor(Cl assLibrary1_Typ esAccessor.Valu e2)
'_ExpectedDetai l.Type = ???

Dim _ActualDetail As ClassLibrary1_D etailAccessor =
_Parser.GetDeta il

Assert.AreEqual (_ExpectedDetai l.Type, _ActualDetail.T ype)

End Sub

End Class

[Dick]

Thanks Gregory.

Visual Studio neatly creates the necessary classes to test my private
members. The lines in my example "Dim _Parser As..." and "Dim _ExpectedDetail
As..." construct special accessor objects that VS defines. These allow access
to my private objects and allow me to test most of their members.

However, I can't see how to test (i.e. set) a property on one of these
accessor objects when the property itself is typed using another private
type. The two commented lines in my example "ExpectedDetail .Type = ..." show
a couple of attempts that I had at this, but both fail with exceptions!

"Cowboy (Gregory A. Beamer)" wrote:

You can test the friends by embedding your test stubs, although this is not
a "best practice". You can also test with reflection, which is what Team
System does. I do not have the details (i.e. code samples), but I might be
able to find the bandwidth to reverse engineer a Team System test on a
method not publicly exposed.

--
Gregory A. Beamer

*************** *************** *************** ****
Think Outside the Box!
*************** *************** *************** ****
"Dick" <Ri***********@ nospam.nospam> wrote in message
news:3D******** *************** ***********@mic rosoft.com...

I have some simple (private) types...

Friend Enum Types
Value1
Value2
End Enum

Friend Structure Detail
Dim Type As Types
End Structure

Friend Class Parser
Friend Function GetDetail() As Detail
Dim _Detail As New Detail
_Detail.Type = Types.Value2
Return _Detail
End Function
End Class

I hope to test the Parser.GetDetai l method with the following test but I
can't see how to set the _ExpectedDetail .Type...

<TestClass()> Public Class ParserTest

<TestMethod() > Public Sub GetDetailTest()

Dim _Parser As ClassLibrary1_P arserAccessor = New
ClassLibrary1_P arserAccessor(C lassLibrary1_Pa rserAccessor.Cr eatePrivate)

Dim _ExpectedDetail As ClassLibrary1_D etailAccessor = New
ClassLibrary1_D etailAccessor(C lassLibrary1_De tailAccessor.Cr eatePrivate)

'_ExpectedDetai l.Type = ClassLibrary1_T ypesAccessor.Va lue2
'_ExpectedDetai l.Type = New
ClassLibrary1_T ypesAccessor(Cl assLibrary1_Typ esAccessor.Valu e2)
'_ExpectedDetai l.Type = ???

Dim _ActualDetail As ClassLibrary1_D etailAccessor =
_Parser.GetDeta il

Assert.AreEqual (_ExpectedDetai l.Type, _ActualDetail.T ype)

End Sub

End Class

[Luke Zhang [MSFT]]

Hello,

I think you may set the expected value directly with the enum values, for
example:

Assert.AreEqual (ClassLibrary1_ TypesAccessor.V alue2, _ActualDetail.T ype)

Can this help on the issue?

Luke Zhang
Microsoft Online Community Lead

=============== =============== =============== =====
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 Luke

Although this works it doesn't quite do what I want.

I want to test the detail object as a whole, not test each property
separately, i.e. I want to do...

Assert.AreEqual (_ExpectedDetai l, _ActualDetail)

....not...

(Pseudo code)
For Each Property in _ExpectedDetail .Properties
Assert.AreEqual (Property, ActualDetail.Co rrespondingProp erty)
Next Property

This doesn't matter so much in my example because the Detail type only has
one member but in my real problem it has many members.

Do you have any other suggestions?

"Luke Zhang [MSFT]" wrote:

Hello,

I think you may set the expected value directly with the enum values, for
example:

Assert.AreEqual (ClassLibrary1_ TypesAccessor.V alue2, _ActualDetail.T ype)

Can this help on the issue?

Luke Zhang
Microsoft Online Community Lead

=============== =============== =============== =====
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.)

[Luke Zhang [MSFT]]

Or you may add a method in the structure/class to set internal fields, like:

Friend Structure Detail
Dim Type As Types

Friend Sub SetType(ByVal value As Types)

Type = value
End Sub

End Structure

In the Unit Test code:

_ExpectedDetail .SetType(ClassL ibrary1_TypesAc cessor.Value2)

Regards,

Luke Zhang
Microsoft Online Community Lead

=============== =============== =============== =====
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]

OK that works although it isn't ideal because I have to change the primary
class to facilitate the test class.

Can you explain why setting the Type member directly (i.e.
_ExpectedDetail .Type = ClassLibrary1_T ypesAccessor.Va lue2) doesn't work?

"Luke Zhang [MSFT]" wrote:

Or you may add a method in the structure/class to set internal fields, like:

Friend Structure Detail
Dim Type As Types

Friend Sub SetType(ByVal value As Types)

Type = value
End Sub

End Structure

In the Unit Test code:

_ExpectedDetail .SetType(ClassL ibrary1_TypesAc cessor.Value2)

Regards,

Luke Zhang
Microsoft Online Community Lead

=============== =============== =============== =====
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.)

[Luke Zhang [MSFT]]

Hello,

Thank you for the confirmation. Regarding the question
"_ExpectedDetai l.Type" is defined as ClassLibrary1_T ypesAccessor, but
ClassLibrary1_T ypesAccessor.Va lue2 is actually ClassLibrary1.T ypes (got
from Microsoft.Visua lStudio.TestToo ls.UnitTesting. PrivateObject with
reflection). So, it cannot be assigned the value directly.

Luke Zhang
Microsoft Online Community Lead

=============== =============== =============== =====
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.)