gistfile1.clj

(ns webdriver.expectations.arab-slideshow
  (:require [clj-webdriver.taxi :refer :all]
            [expectations.scenarios :refer [expect scenario]]))

(scenario
 (set-driver! {:browser :firefox} "http://dv.arablounge.com/login/logout"))

(scenario
 (to "http://dv.arablounge.com/login")
 (expect "Arab Dating" (text ".footer p a"))
 (input-text "#signin-username" "adamlangley")
 (input-text "#signin-password" "langley")
 (click "a[id='btnLogin']")
 (to "http://dv.arablounge.com/search/slideshow")
 (expect present? ".column-1st")
 (expect "Are you interested?" (text ".column-1st h1"))
 (expect "libbyfields" (text ".block-photo-full p a"))
 (click "a[id='btnInterestNo']")
 (expect "No More Profiles" (text ".wrap h1"))
 (expect #"there are no more new profiles that match" (text ".wrap p"))
 (quit))

(scenario
 (quit))