From 92d2c9b2a5de80a6785e511a7a84da19a1731865 Mon Sep 17 00:00:00 2001
From: Patrick Stevens <3138005+Smaug123@users.noreply.github.com>
Date: Wed, 5 Jun 2024 13:44:37 +0100
Subject: [PATCH] Fix behaviour on Null testcasedata (#21)

---
 Consumer/TestCaseData.fs | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/Consumer/TestCaseData.fs b/Consumer/TestCaseData.fs
index c267be7..9dfaa8d 100644
--- a/Consumer/TestCaseData.fs
+++ b/Consumer/TestCaseData.fs
@@ -21,3 +21,8 @@ module TestCaseData =
     [<TestCaseSource(nameof dataSource)>]
     let ``Consume test data`` (i : int, s : string, arr : float[]) =
         lock testCasesSeen (fun () -> testCasesSeen.Add (i, s, arr))
+
+    let optional = [ Some "hi" ; None ] |> List.map TestCaseData
+
+    [<TestCaseSource(nameof optional)>]
+    let ``Consume options`` (s : string option) : unit = s |> shouldEqual s