/Source Code/UnitTests/AdhocItemTest.vb

Imports Microsoft.VisualStudio.TestTools.UnitTesting

Imports PowerSong.SongDatabase.Items



'''<summary>

'''This is a test class for AdhocItemTest and is intended

'''to contain all AdhocItemTest Unit Tests

'''</summary>

<TestClass()> _

Public Class AdhocItemTest



    '''<summary>

    '''A test for AdhocItem Constructor

    '''</summary>

    <TestMethod()> _

    Public Sub AdhocItemConstructorTest()



        Dim Item As New AdhocItem

        Assert.AreEqual("", Item.Title, "Invalid title.")

        Assert.AreEqual("", Item.CopyrightLine, "Invalid copyright line.")

        Assert.AreEqual(0, Item.Parts.Count, "Invalid parts.")



    End Sub



End Class