Guest User

Untitled

a guest
Aug 5th, 2012
37
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.76 KB | None | 0 0
  1. (ns clj-selenium-test.core
  2. (:use [clj-webdriver.taxi]))
  3.  
  4. (defn auto-login []
  5. "http://www.walk-21.com に自動ログインする。REPL にて
  6. user=> (use 'clj-selenium-test.core)
  7. user=> (auto-login)
  8. "
  9. ;; top 画面を表示
  10. (set-driver! {:browser :firefox} "http://www.walk-21.com/")
  11.  
  12. (click (find-element {:tag :img, :name "Image8"})) ; ここで画面遷移
  13.  
  14. ;; login 画面
  15. (input-text (find-element {:tag :input, :name "LOGIN_ID"}) "<login id>")
  16. (input-text (find-element {:tag :input, :name "PASSWORD"}) "<password>")
  17. (click (find-element {:tag :img, :src "img/btn_login.gif"})) ; ここで画面遷移
  18.  
  19. ;; ログイン直後の状態となる。
  20. ;; (take-screenshot :file "/Users/Masao/Desktop/a.png") ; スクリーンショットを取る
  21. )
Advertisement
Add Comment
Please, Sign In to add comment