@@ -693,22 +693,25 @@ main = hspec $ beforeAll startSeleniumServer $ do
693693 Node.appendChild div text
694694 pure div
695695 describe "placeRawElement" $ do
696+ let checkOrder = do
697+ shouldContainText "two" <=< WD.findElem $ WD.ByTag "div"
698+ shouldContainText "one\ntwo\nthree" <=< WD.findElem $ WD.ByTag "body"
696699 it "is placed correctly in the DOM at switchover" $ do
697− let check = do
698− shouldContainText "two" <=< WD.findElem $ WD.ByTag "div"
699− shouldContainText "one\ntwo\nthree" <=< WD.findElem $ WD.ByTag "body"
700− testWidget (pure ()) check $ do
700+ testWidget (pure ()) checkOrder $ do
701701 text "one"
702702 prerender (pure ()) $ placeRawElement =<< createRawElement
703703 text "three"
704704 it "is placed correctly in the DOM in immediate mode" $ do
705− let check = do
706− shouldContainText "two" <=< WD.findElem $ WD.ByTag "div"
707− shouldContainText "one\ntwo\nthree" <=< WD.findElem $ WD.ByTag "body"
708− testWidget (pure ()) check $ prerender (pure ()) $ do
705+ testWidget (pure ()) checkOrder $ prerender (pure ()) $ do
709706 text "one"
710707 placeRawElement =<< createRawElement
711708 text "three"
709+ it "is placed correctly in the DOM in hydration mode" $ do
710+ testWidget (pure ()) checkOrder $ do
711+ text "one"
712+ mElement <- prerender (pure Nothing) $ Just <$> createRawElement
713+ traverse_ placeRawElement mElement
714+ text "three"
712715 it "can be clicked" $ do
713716 clickedRef <- newIORef False
714717 let check = WD.click <=< WD.findElem $ WD.ByTag "div"