Browse files

Add test for new quick-fill-submit

  • Loading branch information...
1 parent 416e102 commit 308e2f690cdcdcaed88e0e62fa58d90417984468 @semperos semperos committed Jan 6, 2012
Showing with 13 additions and 0 deletions.
  1. +13 −0 test/clj_webdriver/test/core.clj
View
13 test/clj_webdriver/test/core.clj
@@ -309,6 +309,19 @@
(is (selected?
(find-it dr {:tag :option, :value "france"}))))
+(deftest quick-fill-submit-should-always-return-nil
+ (to dr (str test-base-url "example-form"))
+ (is (nil?
+ (quick-fill-submit dr
+ [{"first_name" clear}
+ {"first_name" "Richard"}
+ {{:id "last_name"} clear}
+ {{:id "last_name"} "Hickey"}
+ {{:name "bio"} clear}
+ {{:name "bio"} #(input-text % "Creator of Clojure")}
+ {{:tag "input", :type "radio", :value "female"} click}
+ {{:css "select#countries"} #(select-by-value % "france")}]))))
+
(deftest should-be-able-to-toggle-between-open-windows
(is (= 1
(count (window-handles dr))))

0 comments on commit 308e2f6

Please sign in to comment.