<InCisif.net.Library.Test("",1,TestPriority.High)> _
Public Sub CaldendarDatesOnlyInput1Test()

    Dim t As New InCisif.net.Library.Test(Language.VBNET, Me)
    Try

        Page.URL = "http://www.dhtmlgoodies.com/scripts/js_calendar/js_calendar.html"
        Page.WaitForPage("/js_calendar.html")

        t.ASSERT(Page.Control("theDate") , "2004/02/02")            '' Verifiy the start date

        Page.ControlOfType("Cal","htmlinputelementclass").Click()
        Page.WaitForPage("/blank.html")

        Page.Control("monthSelect").Click(true)                     '' Open the month selector
        Page.Control("monthDiv_11").Click(true)                     '' Select December
        Page.ControlOfType("11","htmltablecellclass").Click(true)   '' Select the 11
        t.ASSERT(Page.Control("theDate") , "2004/12/11")            '' verify the selection
        t.Passed = True    			
    Finally
        t.Dispose()
    End Try
End Sub


<InCisif.net.Library.Test("",1,TestPriority.High)> _
Public Sub CaldendarDatesOnlyInput4Test()

    Dim t As New InCisif.net.Library.Test(Language.VBNET, Me)
    Try
        Page.URL = "http://www.dhtmlgoodies.com/scripts/js_calendar/js_calendar.html"
        Page.WaitForPage("/js_calendar.html")

        t.ASSERT(Page.Control("year") , "2007")                     '' Verify the date
        t.ASSERT(Page.Control("month") , "09")
        t.ASSERT(Page.Control("day") , "11")

        Page.ControlOfType("Cal","htmlinputelementclass",4).Click(true)
        Page.Control("calendar_year_txt").Click(true)               '' Open the year selector
        Page.Control("yearDiv2002").Click(true)                     '' Select 2002 
        Page.Control("monthSelect").Click(true)                     '' Open the month selector
        Page.Control("monthDiv_11").Click(true)                     '' Select December
        Page.ControlOfType("10","htmltablecellclass").Click(true)   '' Select the 10

        t.ASSERT(Page.Control("year") , "2002")                     '' Verify the date
        t.ASSERT(Page.Control("month") , "12")
        t.ASSERT(Page.Control("day") , "10")

        t.Passed = True    			
    Finally
        t.Dispose()
    End Try
End Sub



<InCisif.net.Library.Test("",1,TestPriority.High)> _
Public Sub CaldendarDateAndTimeInput5Test()

    Dim t As New InCisif.net.Library.Test(Language.VBNET, Me)
    Try
        Page.URL = "http://www.dhtmlgoodies.com/scripts/js_calendar/js_calendar.html"
        Page.WaitForPage("/js_calendar.html")

        t.ASSERT(Page.Control("theDate3") , "2006/06/02 02:55")

        Page.ControlOfType("Cal","htmlinputelementclass",5).Click()
        Page.WaitForPage("/blank.html")

        Page.Control("calendar_year_txt").Click(true) ''  htmlspanelementclass
        Page.Control("yearDiv2002").Click(true)

        Page.Control("calendar_hour_txt").Click(true) ''  htmlspanelementclass
        Page.Control("hourDiv7").Click(true)

        Page.Control("calendar_minute_txt").Click(true) ''  htmlspanelementclass
        Page.Control("minuteDiv_00").Click(true)

        Page.Control("monthSelect").Click(true)         '' Open the month selector
        Page.Control("monthDiv_11").Click(true)         '' Select December

        Page.ControlOfType("11","htmltablecellclass").Click(true)

        t.ASSERT(Page.Control("theDate3") , "2002/12/11 05:00")

        t.Passed = True    			
    Finally
        t.Dispose()
    End Try
End Sub