/Source Code/UnitTests/BibleSupportTest.vb

Imports System.Collections.Generic

Imports Microsoft.VisualStudio.TestTools.UnitTesting

Imports PowerSong.SongDatabase.Bibles



'''<summary>

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

'''to contain all BibleSupportTest Unit Tests

'''</summary>

<TestClass()> _

Public Class BibleSupportTest



    '''<summary>

    '''A test for BookNames

    '''</summary>

    <TestMethod()> _

    Public Sub BookNamesTest()



        Assert.AreEqual("Amos", BibleSupport.BookNames(BibleSupport.BibleBook.Amos))

        Assert.AreEqual("Ecclesiastes", BibleSupport.BookNames(BibleSupport.BibleBook.Ecclesiastes))

        Assert.AreEqual("Hebrews", BibleSupport.BookNames(BibleSupport.BibleBook.Hebrews))

        Assert.AreEqual("Song of Solomon", BibleSupport.BookNames(BibleSupport.BibleBook.SongOfSolomon))

        Assert.AreEqual("Titus", BibleSupport.BookNames(BibleSupport.BibleBook.Titus))

        Assert.AreEqual("2 Samuel", BibleSupport.BookNames(BibleSupport.BibleBook.TwoSamuel))



    End Sub



    ''' <summary>

    ''' A test for DetermineSingleReference

    ''' </summary>

    <TestMethod()> _

    Public Sub DetermineSingleReferenceTest()



        Dim Check1 As SongDatabase.Bibles.BibleReference = BibleSupport.DetermineSingleReference("GE1")

        Dim Check2 As SongDatabase.Bibles.BibleReference = BibleSupport.DetermineSingleReference("EX5")

        Dim Check3 As SongDatabase.Bibles.BibleReference = BibleSupport.DetermineSingleReference("RV2")

        Dim Check4 As SongDatabase.Bibles.BibleReference = BibleSupport.DetermineSingleReference("DA15")

        Dim Check5 As SongDatabase.Bibles.BibleReference = BibleSupport.DetermineSingleReference("Revelation 12")

        Dim Check6 As SongDatabase.Bibles.BibleReference = BibleSupport.DetermineSingleReference("1Jn3:5")

        Dim Check7 As SongDatabase.Bibles.BibleReference = BibleSupport.DetermineSingleReference("2 John 1:15")

        Dim Check8 As SongDatabase.Bibles.BibleReference = BibleSupport.DetermineSingleReference("MATTHEW6V9")



        Assert.AreEqual("Genesis 1", Check1.ToString)

        Assert.AreEqual("Exodus 5", Check2.ToString)

        Assert.AreEqual("Revelation 2", Check3.ToString)

        Assert.AreEqual("Daniel 15", Check4.ToString)

        Assert.AreEqual("Revelation 12", Check5.ToString)

        Assert.AreEqual("1 John 3:5", Check6.ToString)

        Assert.AreEqual("2 John 1:15", Check7.ToString)

        Assert.AreEqual("Matthew 6:9", Check8.ToString)



    End Sub



End Class