Tests for contentEditable

Author: easafe

src/Flame/HTML/Attribute/Event.js

@@ -1,5 +1,5 @@
 exports.nodeValue_ = function (event) {
-	if (event.target.contentEditable)
+	if (event.target.contentEditable === true || event.target.contentEditable === "true" || event.target.contentEditable === "")
 		return event.target.innerText;
 
 	return event.target.value;

test/Basic/ContentEditable.purs

@@ -0,0 +1,39 @@
+module Test.Basic.ContentEditable (mount) where
+
+import Prelude
+
+import Effect (Effect)
+import Flame (QuerySelector(..), Html)
+import Flame.Application.NoEffects as FAN
+import Flame.HTML.Attribute as HA
+import Flame.HTML.Element as HE
+
+type Model = String
+
+data Message = SetModel String
+
+init :: Model
+init = "start"
+
+update :: Model -> Message -> Model
+update _ = case _ of
+        SetModel newModel -> newModel
+
+view :: Model -> Html Message
+view model = HE.main_ [
+        HE.span "text-output" model,
+        HE.select [HA.id "content-select", HA.createAttribute "contentEditable" "inherit", HA.onInput SetModel] [
+                HE.option [HA.value "1"] "1",
+                HE.option [HA.selected true, HA.value "2"] "2"
+        ],
+        HE.div [HA.id "content-div", HA.contentEditable true, HA.onInput SetModel] [
+                HE.text "content"
+        ]
+]
+
+mount :: Effect Unit
+mount = FAN.mount_ (QuerySelector "#mount-point") {
+                init,
+                update,
+                view
+        }

test/Main.purs

@@ -15,6 +15,7 @@ import Effect.Class (liftEffect)
 import Flame.Application.DOM as FAD
 import Flame.Application.Effectful as FAE
 import Flame.HTML.Attribute as HA
+import Test.Basic.ContentEditable as TBC
 import Flame.HTML.Element as HE
 import Flame.Renderer.String as FRS
 import Partial.Unsafe (unsafePartial)
@@ -309,6 +310,25 @@ main =
                                 TUA.equal false currentNewChecked
                                 TUA.equal false currentNewDisabled
 
+                        test "contentEditable" do
+                                --contentEditable is not supported by jsdom
+                                liftEffect do
+                                        unsafeCreateEnviroment
+                                        TBC.mount
+                                childrenLength <- childrenNodeLength
+                                TUA.equal 3 childrenLength
+
+                                initialOutput <- textContent "#text-output"
+                                TUA.equal "start" initialOutput
+
+                                dispatchEvent inputEvent "#content-div"
+                                currentOutput <- textContent "#text-output"
+                                TUA.equal "" currentOutput
+
+                                dispatchEvent inputEvent "#content-select"
+                                currentOutput2 <- textContent "#text-output"
+                                TUA.equal "2" currentOutput2
+
                 suite "Effectful specific" do
                         test "slower effects" do
                                 liftEffect do