Merge pull request #80 from skalinets/master

Fix to #78
lefthandedgoat · Jun 8, 2013 · 7ab1aa0 · 7ab1aa0
2 parents 0716423 + 76cea18
commit 7ab1aa0
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 1 deletion.
diff --git a/canopy/canopy.fs b/canopy/canopy.fs
@@ -270,6 +270,8 @@ let private textOf (element : IWebElement) =
     match element.TagName  with
     | "input" ->
         element.GetAttribute("value")
+    | "textarea" ->
+        element.GetAttribute("value")
     | "select" ->
         let value = element.GetAttribute("value")
         let options = Seq.toList (element.FindElements(By.TagName("option")))

diff --git a/demotests/Program.fs b/demotests/Program.fs
@@ -5,7 +5,7 @@ open runner
 
 start firefox
 
-let page = "http://lefthandedgoat.github.com/canopy/demo/amir.html"
+let page = "http://skalinets.github.io/canopy/demo/amir.html"
 
 context "demo tests"
 before (fun _ -> url page
@@ -26,6 +26,11 @@ test(fun _ ->
 
     click ".optin input"
     click ".agree input"
+
+    "#address" == "The Big Screen"
+    "#city" == "Holywood"
+    "#state" == "CA"
+    "#zip" == "91601"
 )
 
 run ()