From cc0bb26a7ac69cf0ba749720a590653ce811b50a Mon Sep 17 00:00:00 2001
From: Joshua Marner <biz@jmarner.com>
Date: Sat, 15 Oct 2022 19:45:49 -0500
Subject: [PATCH] Add test to verify that this is true

---
 src/Elmish.WPF.Tests/BindingVmHelpersTests.fs | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/src/Elmish.WPF.Tests/BindingVmHelpersTests.fs b/src/Elmish.WPF.Tests/BindingVmHelpersTests.fs
index 6ba809b2..f59d9814 100644
--- a/src/Elmish.WPF.Tests/BindingVmHelpersTests.fs
+++ b/src/Elmish.WPF.Tests/BindingVmHelpersTests.fs
@@ -15,6 +15,20 @@ let name = "name"
 let noGetSelectedItemCall _ = failwith "Should not call get selected item"
 
 
+module Initialize =
+
+  [<Fact>]
+  let ``Initialize doesn't call getCurrentModel`` () =
+    let binding =
+      BindingData.OneWay.id<string, string>
+      |> BindingData.addValidation List.singleton
+
+    let vmBinding =
+      Initialize(LoggingViewModelArgs.none, name, noGetSelectedItemCall)
+        .Recursive("", ignore, (fun _ -> failwith "Should not call getCurrentModel on initialize"), binding)
+
+    test <@ vmBinding.IsSome @>
+
 module Get =
 
   let check<'a when 'a : equality> (g: Gen<'a>) =