
Untitled
By: a guest on
Aug 5th, 2012 | syntax:
None | size: 0.76 KB | hits: 20 | expires: Never
(ns clj-selenium-test.core
(:use [clj-webdriver.taxi]))
(defn auto-login []
"http://www.walk-21.com に自動ログインする。REPL にて
user=> (use 'clj-selenium-test.core)
user=> (auto-login)
"
;; top 画面を表示
(set-driver! {:browser :firefox} "http://www.walk-21.com/")
(click (find-element {:tag :img, :name "Image8"})) ; ここで画面遷移
;; login 画面
(input-text (find-element {:tag :input, :name "LOGIN_ID"}) "<login id>")
(input-text (find-element {:tag :input, :name "PASSWORD"}) "<password>")
(click (find-element {:tag :img, :src "img/btn_login.gif"})) ; ここで画面遷移
;; ログイン直後の状態となる。
;; (take-screenshot :file "/Users/Masao/Desktop/a.png") ; スクリーンショットを取る
)