/Source Code/UnitTests/BibleReferenceTest.vb

Imports Microsoft.VisualStudio.TestTools.UnitTesting

Imports PowerSong.SongDatabase.Bibles



'''<summary>

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

'''to contain all BibleReferenceTest Unit Tests

'''</summary>

<TestClass()> _

Public Class BibleReferenceTest



    '''<summary>

    '''A test for ToString

    '''</summary>

    <TestMethod()> _

    Public Sub ToStringTest()



        Dim Ref1 As New BibleReference(BibleSupport.BibleBook.Acts, 1, 1)

        Dim Ref2 As New BibleReference(BibleSupport.BibleBook.Deuteronomy, 2, 31)

        Dim Ref3 As New BibleReference(BibleSupport.BibleBook.Joshua, 14, 2)

        Dim Ref4 As New BibleReference(BibleSupport.BibleBook.Titus, 12, 8)

        Dim Ref5 As New BibleReference(BibleSupport.BibleBook.Zechariah, 9, 10)



        Assert.AreEqual("Acts 1:1", Ref1.ToString)

        Assert.AreEqual("Deuteronomy 2:31", Ref2.ToString)

        Assert.AreEqual("Joshua 14:2", Ref3.ToString)

        Assert.AreEqual("Titus 12:8", Ref4.ToString)

        Assert.AreEqual("Zechariah 9:10", Ref5.ToString)



    End Sub



    '''<summary>

    '''A test for BibleReference Constructor

    '''</summary>

    <TestMethod()> _

    Public Sub BibleReferenceConstructorTest()



        Dim Ref1 As New BibleReference(BibleSupport.BibleBook.Acts, 1, 1)

        Dim Ref2 As New BibleReference(BibleSupport.BibleBook.Deuteronomy, 2, 31)

        Dim Ref3 As New BibleReference(BibleSupport.BibleBook.Joshua, 14, 2)

        Dim Ref4 As New BibleReference(BibleSupport.BibleBook.Titus, 12, 8)

        Dim Ref5 As New BibleReference(BibleSupport.BibleBook.Zechariah, 9, 10)



        Assert.AreEqual(BibleSupport.BibleBook.Acts, Ref1.Book)

        Assert.AreEqual(BibleSupport.BibleBook.Deuteronomy, Ref2.Book)

        Assert.AreEqual(BibleSupport.BibleBook.Joshua, Ref3.Book)

        Assert.AreEqual(BibleSupport.BibleBook.Titus, Ref4.Book)

        Assert.AreEqual(BibleSupport.BibleBook.Zechariah, Ref5.Book)



        Assert.AreEqual(1, Ref1.Chapter)

        Assert.AreEqual(2, Ref2.Chapter)

        Assert.AreEqual(14, Ref3.Chapter)

        Assert.AreEqual(12, Ref4.Chapter)

        Assert.AreEqual(9, Ref5.Chapter)



        Assert.AreEqual(1, Ref1.Verse)

        Assert.AreEqual(31, Ref2.Verse)

        Assert.AreEqual(2, Ref3.Verse)

        Assert.AreEqual(8, Ref4.Verse)

        Assert.AreEqual(10, Ref5.Verse)



    End Sub



End Class