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

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

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

        Dim Colors As String  = "#FF0000|#FF9900|#CC0000|#CC9900|#990000|#999900|#660000|#669900|#330000|#339900"

        SelectAndValidateColorsInColorPicker(t, Colors.Split("|"))

        Page.ControlOfType("Named colors","htmlspanelementclass").Click(true)

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

Private Function SelectAndValidateColorsInColorPicker(t As InCisif.net.Library.Test , colors() As String) As Boolean

    Dim Color           As String
    Dim ErrorCounter    As Integer = 0

    For Each Color In Colors

    If SelectAndValidateAColorInColorPicker(t, Color) Then ErrorCounter = ErrorCounter + 1
    Next
    SelectAndValidateColorsInColorPicker = CBool(ErrorCounter=0)
End Function

Private Function SelectAndValidateAColorInColorPicker(t As InCisif.net.Library.Test ,color As String) As Boolean

    Page.ControlOfType("select_arrow.gif","htmlimgclass").Click(true) ''  htmlimgclass

    Page.ControlOfType(color,"htmldivelementclass").Click(true)        
    t.ASSERT(Page.Control("rgb") , color)
End Function