Fix bug in boolean conversion and add tests

src/Providers/Helpers.fs

@@ -226,7 +226,7 @@ module Conversions =
           | StringEquals "#N/A" -> Some Double.NaN
           | _ -> Double.TryParse(s, NumberStyles.Any, culture) |> asOption)
           text
-    static member ConvertBoolean = Option.bind (fun (s:string) ->
+    static member ConvertBoolean b = b |> Option.bind (fun (s:string) ->
         match s.Trim() with
         | StringEquals "true" | StringEquals "yes" -> Some true
         | StringEquals "false" | StringEquals "no" -> Some false

tests/CsvProvider.Tests.fs

@@ -0,0 +1,32 @@
+// --------------------------------------------------------------------------------------
+// Tests for the CSV parsing code
+// --------------------------------------------------------------------------------------
+
+namespace FSharp.Data.Tests
+
+open NUnit.Framework
+open System.IO
+open FSharp.Data
+
+module CsvSimple =
+
+  let [<Literal>] simpleCsv = """
+    Column1,Column2,Column3
+    TRUE,no,3
+    "yes", "false", 1.92 """
+
+  type SimpleCsv = CsvProvider<simpleCsv>
+
+  [<Test>]
+  let ``Bool column correctly infered and accessed`` () = 
+    let csv = SimpleCsv.Parse(simpleCsv)
+    let first = csv.Data |> Seq.head
+    let actual:bool = first.Column1
+    Assert.AreEqual(true, actual)
+
+  [<Test>]
+  let ``Decimal column correctly infered and accessed`` () = 
+    let csv = SimpleCsv.Parse(simpleCsv)
+    let first = csv.Data |> Seq.head
+    let actual:decimal = first.Column3
+    Assert.AreEqual(3.0M, actual)

tests/FSharp.Data.Tests.fsproj

@@ -37,6 +37,7 @@
   <Import Project="$(MSBuildExtensionsPath32)\..\Microsoft SDKs\F#\3.0\Framework\v4.0\Microsoft.FSharp.Targets" Condition=" Exists('$(MSBuildExtensionsPath32)\..\Microsoft SDKs\F#\3.0\Framework\v4.0\Microsoft.FSharp.Targets')" />
   <ItemGroup>
     <Compile Include="CsvProvider.Parsing.fs" />
+    <Compile Include="CsvProvider.Tests.fs" />
     <Compile Include="JsonProvider.Tests.fs" />
     <Compile Include="Providers.NameUtils.fs" />
     <Compile Include="Providers.Inference.fs" />