Test case for http://stackoverflow.com/questions/6556077/distinct-in-linq-with-anonymous-types-in-vb-net

StackOverflowQuestion6556077Test.vb

<TestFixture()>
Public Class StackOverflowQuestion6556077Test
    Private _originalList As Record()

    Private Class Record
        Public Country As String
        Public CountryID As Integer
    End Class

    <SetUp>
    Public Sub SetUp()
        _originalList = {New Record With {.Country = "Spain", .CountryID = 1},
                         New Record With {.Country = "Spain", .CountryID = 1}}
    End Sub

    <Test()>
    Public Sub TestWithExplicitAnonymousType()
        Dim query = From c In _originalList Select New With {.Country = c.Country, .CountryID = c.CountryID}

        Assert.AreEqual(query.Distinct.Count(), 1)
    End Sub

    <Test()>
    Public Sub TestWithAnonymousTypeFromQuery()
        Dim query = From c In _originalList Select c.Country, c.CountryID 'No explicit New here!

        Assert.AreEqual(query.Distinct.Count(), 1)
    End Sub

End Class