+ Test

fsprojects · Oct 13, 2023 · d3ccce7 · d3ccce7
1 parent 06fcfcd
commit d3ccce7
Showing 1 changed file with 13 additions and 1 deletion.
diff --git a/tests/FSharpPlus.Tests/Monoid.fs b/tests/FSharpPlus.Tests/Monoid.fs
@@ -74,4 +74,16 @@ module Monoid =
             let! y = struct ("Ten", 10)
             return y - x }
         Assert.AreEqual (str, "FourTen")
-        Assert.AreEqual (num, 6)
+        Assert.AreEqual (num, 6)
+
+    #if NET6_0_OR_GREATER
+    [<Test>]
+    let testDateAndTimes =
+        let d1 = DateOnly(2020, 1, 1)
+        let d2 = d1 ++ zero ++ one
+        Assert.AreEqual (DateOnly(2020, 1, 2), d2)
+
+        let t1 = TimeOnly (2, 10, 30)
+        let t2 = t1 ++ zero
+        Assert.AreEqual (t1, t2)
+    #endif