selenium-procs.tcl

Does not contain a contract.

Location:

/packages/acs-automated-testing/tcl/selenium-procs.tcl

Related Files

• packages/acs-automated-testing/tcl/selenium-procs.tcl

[ hide source ] | [ make this the default ]

File Contents

# selenium-procs.tcl

namespace eval ::acs::test::selenium {}

d_proc -public -deprecated Se {
    cmd
    args
} {
    Deprecated: polluting the root namespace.

    @see ::acs::test::selenium::Se
} {
    ::acs::test::selenium::Se $cmd $args
}


d_proc -public ::acs::test::selenium::Se {
    cmd
    args
} {

    Driver to control the test web tool Selenium.

    This code implements a driver to control Selenium, an open source
    test tool for web applications, see http://selenium.openqa.org/

    This code is modeled after the Python and Ruby drivers.  It differs
    by not implementing each supported command separately, but instead
    using a default dispatch to pass commands to the Selenium server with
    very little modification.  This is why the commands are not called
    get_title, wait_for_page_to_load, etc. but with the same "camelCase"
    names used by Selenium itself, i.e. getTitle, waitForPageToLoad, etc.

    All commands known to return a list are singled out and their return
    string is converted before returning the result.  Since everything is
    a string in Tcl, no special handling is needed for numbers and booleans
    (boolean results will be the same as in Selenium, i.e. "true"/"false").

    Note: This code requires a new HTTP/1.1 aware version of geturl - the
          current http 2.4 package in Tcl doesn't know how to keep a 1.1
          connection alive and will slow down because *each* Selenium request
          will time out.

    Example use:

       ::acs::test::selenium::Se init localhost 4444 *firefox http://www.google.com/webhp
       ::acs::test::selenium::Se start

       ::acs::test::selenium::Se open http://www.google.com/webhp
       ::acs::test::selenium::Se type q "hello world"
       ::acs::test::selenium::Se clickAndWait btnG
       ::acs::test::selenium::Se assertTitle "hello world - Google Search"

       ::acs::test::selenium::Se stop

    @author Jean-Claude Wippler
    @creation-date 2007-02-24

} {
    global selenium
    switch -- $cmd {

        init {
            lassign $args selenium(host) selenium(port) selenium(browserStartCommand) selenium(browserURL)
            set selenium(sessionId) ""
        }

        start {
            set selenium(sessionId) [::acs::test::selenium::Se getNewBrowserSession \
                                                                $selenium(browserStartCommand) \
                                                                $selenium(browserURL)]
        }

        stop {
            ::acs::test::selenium::Se testComplete
            set selenium(sessionId) ""
        }

        default {
            set query [list http::formatQuery cmd $cmd]
            set i 0
            foreach arg $args {
                lappend query [incr i] $arg
            }
            if {$selenium(sessionId) ne ""} {
                lappend query sessionId $selenium(sessionId)
            }
            set url "http://$selenium(host):$selenium(port)"
            append url /selenium-server/driver/? [eval $query]
            #puts "url $url"
            set token [http::geturl $url]
            #puts " status [http::status $token] code [http::code $token]"
            set data [http::data $token]
            #puts " result: $data"
            http::cleanup $token
            if {[string range $data 0 1] ne "OK"} {
                error $data
            }
            switch -- $cmd {
                getSelectedLabels -
                getSelectedValues -
                getSelectedIndexes -
                getSelectedIds -
                getSelectOptions -
                getAllButtons -
                getAllLinks -
                getAllFields -
                getAttributeFromAllWindows -
                getAllWindowIds -
                getAllWindowNames -
                getAllWindowTitles {
                    set token ""
                    set tokens {}
                    set escape 0
                    foreach letter [split $data ""] {
                        if {$escape} {
                            append token $letter
                            set escape 0
                        } else {
                            switch -- $letter {
                                \\      { set escape 1 }
                                ,       { lappend tokens $token; set token "" }
                                default { append token $letter }
                            }
                        }
                    }
                    lappend tokens $token
                    return [lrange $tokens 1 end]       ;# drop the "OK" element
                }
                default {
                    return [string range $data 3 end]   ;# drop the "OK," prefix
                }
            }
        }
    }
}

# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End: