Tests

Author: bartelink

CHANGELOG.md

@@ -12,7 +12,7 @@ The `Unreleased` section name is replaced by the expected version of next releas
 
 ### Added
 
-- `TypeeSafeEnum.caseValues<'t>`: Yields all values of a Union
+- `TypeSafeEnum.caseValues<'t>`: Yields all values of a Union [#115](https://github.com/jet/FsCodec/pull/115)
 
 ### Changed
 ### Removed

tests/FsCodec.Tests/FsCodec.Tests.fsproj

@@ -8,6 +8,7 @@
   <ItemGroup>
     <Compile Include="StreamNameTests.fs" />
     <Compile Include="CompressionTests.fs" />
+    <Compile Include="TypeSafeEnumTests.fs" />
   </ItemGroup>
 
   <ItemGroup>

tests/FsCodec.Tests/TypeSafeEnumTests.fs

@@ -0,0 +1,10 @@
+module FsCodec.Tests.TypeSafeEnumTests
+
+open FsCodec
+open Swensen.Unquote
+open Xunit
+
+type Outcome = Joy | Pain | Misery
+
+let [<Fact>] caseNames () =
+    [| Joy; Pain; Misery |] =! TypeSafeEnum.caseValues<_>