Merge branch 'master' of https://github.com/wallymathieu/FSharpx.Extras into v2

Author: forki

src/FSharpx.Extras/Enum.fs

@@ -0,0 +1,15 @@
+namespace FSharpx
+open System.Linq
+
+module Enum=
+    let tryParse s :'a option when 'a:enum<'b> =
+        match System.Enum.TryParse (s) with
+        | true, v -> Some v
+        | _ -> None
+        
+    let parse s : 'a =
+        System.Enum.Parse(typeof<'a>, s) :?> 'a
+
+    let getValues<'t> ()= 
+        let values = System.Enum.GetValues (typeof<'t>) 
+        Enumerable.Cast<'t> values //Array.unbox

src/FSharpx.Extras/FSharpx.Extras.fsproj

@@ -77,6 +77,7 @@
     <Content Include="app.config" />
     <Compile Include="Net.fs" />
     <Compile Include="Conneg.fs" />
+    <Compile Include="Enum.fs" />
   </ItemGroup>
   <ItemGroup>
     <Reference Include="mscorlib" />

tests/FSharpx.Tests/EnumTest.fs

@@ -0,0 +1,26 @@
+module FSharpx.Http.Tests.EnumTests
+open NUnit.Framework
+open FSharpx
+
+type LanguageOptions=
+    | FSharp = 0
+    | CSharp = 1
+    | VB = 2
+    
+[<Test>] 
+let ``tryParse can parse value and return Some value`` ()=
+    Assert.AreEqual(Some LanguageOptions.CSharp, (Enum.tryParse("CSharp") : LanguageOptions option))
+
+[<Test>] 
+let ``tryParse returns None if it fails to parse`` ()=
+    Assert.AreEqual(None, (Enum.tryParse("English") : LanguageOptions option))
+
+[<Test>] 
+let ``parse returns parsed value`` ()=
+    Assert.AreEqual(LanguageOptions.CSharp ,(Enum.parse("CSharp") : LanguageOptions))
+
+let ``parse throws an exception when it fails to parse`` ()=
+    let parseEnglish ()=
+        let x = Enum.parse("English") : LanguageOptions
+        ()
+    Assert.Throws<System.Exception>( TestDelegate( parseEnglish ) )  

tests/FSharpx.Tests/FSharpx.Tests.fsproj

@@ -89,6 +89,7 @@
     <Compile Include="ControlTests.fs" />
     <Compile Include="AsyncStreamReaderTest.fs" />
     <Compile Include="ConnegTests.fs" />
+    <Compile Include="EnumTest.fs" />
   </ItemGroup>
   <ItemGroup>
     <Reference Include="mscorlib" />