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 = + + [] + let ``Initialize doesn't call getCurrentModel`` () = + let binding = + BindingData.OneWay.id + |> 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>) =