PageRenderTime 14ms CodeModel.GetById 9ms app.highlight 2ms RepoModel.GetById 1ms app.codeStats 0ms

/Source Code/UnitTests/AdhocItemTest.vb

#
Visual Basic | 24 lines | 12 code | 5 blank | 7 comment | 0 complexity | 9c9f9fa91674d62a55987fc9fb853e90 MD5 | raw file
 1Imports Microsoft.VisualStudio.TestTools.UnitTesting
 2Imports PowerSong.SongDatabase.Items
 3
 4'''<summary>
 5'''This is a test class for AdhocItemTest and is intended
 6'''to contain all AdhocItemTest Unit Tests
 7'''</summary>
 8<TestClass()> _
 9Public Class AdhocItemTest
10
11    '''<summary>
12    '''A test for AdhocItem Constructor
13    '''</summary>
14    <TestMethod()> _
15    Public Sub AdhocItemConstructorTest()
16
17        Dim Item As New AdhocItem
18        Assert.AreEqual("", Item.Title, "Invalid title.")
19        Assert.AreEqual("", Item.CopyrightLine, "Invalid copyright line.")
20        Assert.AreEqual(0, Item.Parts.Count, "Invalid parts.")
21
22    End Sub
23
24End Class