In line XML in VB - perhaps it's only redeeming quality

gistfile1.vb

Imports Xunit
Imports System.Linq
Imports System.Dynamic
Imports Simple.Data.Mocking

Public Class Mockz
    <Fact()>
    Public Sub MockMockMock()
        Dim mockAdapter As New XmlMockAdapter(<Root>
                                                  <Cats Age="System.Int32">
                                                      <Cat Name="Jewelz" Age="1"/>
                                                      <Cat Name="Barfly" Age="2"/>
                                                  </Cats>
                                              </Root>)
        MockHelper.UseMockAdapter(mockAdapter)

        Dim Cats = Database.Default.Cats.All().ToList()

        Assert.Equal(2, Cats.Count())

        Assert.Equal("Jewelz", Database.Default.Cats.FindByName("Jewelz").Name)
        Assert.Equal(2, Database.Default.Cats.FindByAge(2).Age)
    End Sub
End Class

Oh dear. o_O