Add test for atomWithEffectsFromRecoilValue

test/Recoil__test.res

@@ -480,6 +480,56 @@ testWithReact("Recoil.atomWithEffects can run effects", container => {
   isTrue(value->Option.isSome)
 })
 
+module UseRecoilAtomWithEffectFromRecoilValueConfig = {
+  // The callback value is later set to a React.useState setter.
+  let callback = ref(None)
+
+  let atom = Recoil.atom({key: "Atom", default: 0})
+  let atomWithEffect = Recoil.atomWithEffectsFromRecoilValue({
+    key: "AtomWithEffectFromRecoilValue",
+    default: atom,
+    effects_UNSTABLE: [
+      ({onSet}) => {
+        onSet((~newValue, ~oldValue as _, ~isReset as _) => {
+          callback.contents->Belt.Option.map(cb => cb(newValue))->ignore
+        })
+        None
+      },
+    ],
+  })
+
+  @react.component
+  let make = () => {
+    let (atomWithEffectValue, setAtomWithEffectValue) = React.useState(_ => 0)
+    let setAtomWithEffect = Recoil.useSetRecoilState(atomWithEffect)
+
+    React.useEffect1(() => {
+      callback.contents = Some(newValue => setAtomWithEffectValue(_ => newValue))
+      None
+    }, [setAtomWithEffectValue])
+
+    React.useEffect1(() => {
+      setAtomWithEffect(_ => 1)
+      None
+    }, [setAtomWithEffect])
+
+    <strong> {(atomWithEffectValue == 1 ? "OK" : "NOK")->React.string} </strong>
+  }
+}
+
+testWithReact("Recoil.atomWithEffectsFromRecoilValueConfig", container => {
+  act(() =>
+    ReactDOM.render(
+      <Recoil.RecoilRoot> <UseRecoilAtomWithEffectFromRecoilValueConfig /> </Recoil.RecoilRoot>,
+      container,
+    )
+  )
+
+  let value = container->DOM.findBySelectorAndTextContent("strong", "OK")
+
+  isTrue(value->Option.isSome)
+})
+
 @module("recoil") @new
 external makeDefaultValue: unit => 'a = "DefaultValue"