feat: add testing function to fake the init

src/ElmComponent.ts

@@ -1,6 +1,7 @@
 import { InitFunction, Nullable, UpdateFunction } from "./Types";
 import { Message, Services } from "./Init";
 import { Cmd } from "./Cmd";
+import { getFakeInitResultOnce } from "./Testing/fakeInitResult";
 import React from "react";
 
 /**
@@ -31,7 +32,7 @@ abstract class ElmComponent<TModel, TMsg extends Message, TProps> extends React.
     public constructor (props: TProps, init: InitFunction<TProps, TModel, TMsg>, name: string) {
         super(props);
 
-        const [model, cmd] = init(this.props);
+        const [model, cmd] = getFakeInitResultOnce<TModel, TMsg>() ?? init(this.props);
 
         this.componentName = name;
         this.currentModel = model;

src/Testing/fakeInitResult.ts

@@ -0,0 +1,22 @@
+import { InitResult, MessageBase, Nullable } from "../Types";
+
+type FakeInitResult = Nullable<[unknown, unknown?]>;
+
+let initResult: FakeInitResult;
+
+function setFakeInitResult (model: FakeInitResult): void {
+    initResult = model;
+}
+
+function getFakeInitResultOnce<TModel, TMessage extends MessageBase> (): Nullable<InitResult<TModel, TMessage>> {
+    const temp = initResult as Nullable<InitResult<TModel, TMessage>>;
+
+    initResult = null;
+
+    return temp;
+}
+
+export {
+    setFakeInitResult,
+    getFakeInitResultOnce,
+};

src/Testing/index.ts

@@ -1,6 +1,8 @@
-import { MessageBase, Nullable, UpdateMap, UpdateReturnType } from "../Types";
+import { InitResult, MessageBase, Nullable, UpdateMap, UpdateReturnType } from "../Types";
 import { callUpdateMap } from "../useElmish";
 import { Cmd } from "../Cmd";
+import React from "react";
+import { setFakeInitResult } from "./fakeInitResult";
 
 /**
  * Extracts the messages out of a command.
@@ -86,6 +88,12 @@ function createUpdateArgsFactory <TProps, TModel, TMessage extends MessageBase>
     };
 }
 
+function renderWithFakeInit<TModel, TMessage extends MessageBase> (initResult: InitResult<TModel, TMessage>, render: () => React.ReactNode): void {
+    setFakeInitResult(initResult);
+    render();
+    setFakeInitResult(null);
+}
+
 export type {
     UpdateArgsFactory,
 };
@@ -95,4 +103,5 @@ export {
     execCmd,
     getUpdateFn,
     createUpdateArgsFactory,
+    renderWithFakeInit,
 };

src/useElmish.ts

@@ -2,6 +2,7 @@
 import { Cmd, Dispatch } from "./Cmd";
 import { InitFunction, MessageBase, Nullable, UpdateFunction, UpdateMap, UpdateReturnType } from "./Types";
 import { useCallback, useEffect, useRef, useState } from "react";
+import { getFakeInitResultOnce } from "./Testing/fakeInitResult";
 import { Services } from "./Init";
 
 type SubscriptionResult<TMessage> = [Cmd<TMessage>, (() => void)?];
@@ -102,7 +103,7 @@ function useElmish<TProps, TModel, TMessage extends MessageBase> ({ name, props,
     }, []);
 
     if (!initializedModel) {
-        const [initModel, initCmd] = init(props);
+        const [initModel, initCmd] = getFakeInitResultOnce<TModel, TMessage>() ?? init(props);
 
         initializedModel = initModel;
         setModel(initializedModel);