VB2008でプロパティと遊ぶ

HogeHoge.vb

Public Class HogeHoge
    Public Property Hoge() as integer
        Get
            Return Hoge
        End Get

        Set(ByVal value as integer)
            Hoge = value
        End Set
    End Property
End Class

HogeHogeTest.vb

<TestFixture()> _
Public Class HogeHogeTest

    <Test()> _
    Public Sub 見せてもらおう自動実装とやらを()
        
        Dim fuga as New HogeHoge()
        
        fuga.Hoge = 100

        Assert.AreEqual(fuga.Hoge,100)
    End Sub
End Class