(module selenium-test mzscheme
  
  (require (planet "test.ss" ("schematics" "schemeunit.plt" 2)))
  (require "selenium.ss")
  
  (provide selenium-tests)
  
  (define selenium-tests
    (test-suite
     "All tests for selenium"

     (test-case
      "Start and stop work"
      (with-selenium
       (selenium-server "localhost" 4444 "*firefox" "http://www.google.com/")
       (void)))
     
     (test-case
      "Google search returns expected page"
      (with-selenium
       (selenium-server "localhost" 4444 "*firefox" "http://www.google.com/")
       (open "http://www.google.com/webhp")
       (type "q" "Untyped")
       (click "btnG")
       (wait-for-page-to-load 500)
       (check string=?
              (get-title)
              "Untyped - Google Search")))
     ))
  )