Fix for issue lefthandedgoat#170

Rakefile.rb

@@ -2,7 +2,7 @@
 task :default => [:build, :ui]
 
 task :build do
- sh 'C:\Windows\Microsoft.NET\Framework\v4.0.30319\msbuild.exe canopy.sln'
+ sh 'C:\Windows\Microsoft.NET\Framework\v4.0.30319\msbuild.exe canopy.sln /p:VisualStudioVersion=12.0' 
 end
 
 task :ui do

src/canopy/canopy.fs

@@ -295,17 +295,15 @@ let last cssSelector = (List.rev (elements cssSelector)).Head
 
 //read/write
 let private writeToSelect (elem:IWebElement) (text:string) =
- let options =
- let optionsByText = unreliableElementsWithin (sprintf "option[text()='%s']" text) elem
- if writeToSelectWithOptionValue then 
- let optionsByValue = unreliableElementsWithin (sprintf "option[value='%s']" text) elem
- optionsByText @ optionsByValue
+ let options = 
+ if writeToSelectWithOptionValue then 
+ unreliableElementsWithin (sprintf """option[text()="%s"] | option[@value="%s"]""" text text) elem 
  else //to preserve previous behaviour
- optionsByText
+ unreliableElementsWithin (sprintf """option[text()="%s"]""" text) elem
 
  match options with
  | [] -> raise (CanopyOptionNotFoundException(sprintf "element %s does not contain value %s" (elem.ToString()) text))
- | head::tail -> head.Click()
+ | head::_ -> head.Click()
 
 let private writeToElement (e : IWebElement) (text:string) =
  if e.TagName = "select" then

tests/basictests/Program.fs

@@ -485,6 +485,14 @@ context "other tests"
  url "http://lefthandedgoat.github.io/canopy/testpages/iframe2"
  first "body" |> elementWithin "#states" |> elementWithin "1" |> read |> is "Alabama" 
 
+"selecting option in iframe works by text and value" &&& fun _ ->
+ url "http://lefthandedgoat.github.io/canopy/testpages/iframe1" 
+
+ "#item_list" << "Item 2"
+ "#item_list" == "Item 2"
+ "#item_list" << "3" 
+ "#item_list" == "Item 3"
+
 context "hints tests"
 "css hint" &&& fun _ ->
  url testpage