Fix for issue #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