From 767adac696fa6823b1c0a67c5886f0f460bed409 Mon Sep 17 00:00:00 2001 From: Serhiy Kalinets Date: Thu, 6 Jun 2013 13:37:20 +0300 Subject: [PATCH 1/2] changes test to reproduce issue with text-area --- demotests/Program.fs | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/demotests/Program.fs b/demotests/Program.fs index f65f998d..d4e905c5 100644 --- 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 () From 76cea18f5066831ba663d04d6a889e32ef68dcf5 Mon Sep 17 00:00:00 2001 From: Serhiy Kalinets Date: Thu, 6 Jun 2013 13:41:02 +0300 Subject: [PATCH 2/2] fixes issue with textarea assert --- canopy/canopy.fs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/canopy/canopy.fs b/canopy/canopy.fs index bc23ea77..0860bc3f 100644 --- 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")))