Tests

jet · Feb 22, 2024 · 00f95da · 00f95da
1 parent a4fe3f1
commit 00f95da
Show file tree

Hide file tree

Showing 3 changed files with 12 additions and 1 deletion.
diff --git a/CHANGELOG.md b/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 (that is a `TypeSafeEnum`) [#115](https://github.com/jet/FsCodec/pull/115)
 
 ### Changed
 ### Removed

diff --git a/tests/FsCodec.Tests/FsCodec.Tests.fsproj b/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>

diff --git a/tests/FsCodec.Tests/TypeSafeEnumTests.fs b/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<_>