git.iko.soy/reflex-dom
on develop help sign in
Fix set checked test
6fa489cTom Smalley
reflex-dom-core/test/hydration.hs+2−10
compare with develop
unifiedsplit
@@ -258,15 +258,8 @@ main = hspec $ parallel $ do
258 readIORef checkedRef >>= flip shouldBe False
258 readIORef checkedRef >>= flip shouldBe False
259 testWidget (pure ()) checkValue $ do
259 testWidget (pure ()) checkValue $ do
260 (setChecked, triggerSetChecked) <- newTriggerEvent
260 (setChecked, triggerSetChecked) <- newTriggerEvent
261− liftIO $ triggerSetChecked False
262− liftIO $ forkIO $ forever $ do
261+ prerender (pure ()) $ liftIO $ void $ forkIO $ forever $ do
263− liftIO $ putStrLn "before"
264 triggerSetChecked =<< readChan setCheckedChan
262 triggerSetChecked =<< readChan setCheckedChan
265− liftIO $ putStrLn "after"
266− performEvent_ $ ffor setChecked $ \c -> do
267− liftIO $ do
268− putStrLn "---------------setChecked"
269− print c
270 e <- inputElement $ def
263 e <- inputElement $ def
271 & initialAttributes .~ "type" =: "checkbox"
264 & initialAttributes .~ "type" =: "checkbox"
272 & inputElementConfig_setChecked .~ setChecked
265 & inputElementConfig_setChecked .~ setChecked
@@ -296,7 +289,6 @@ main = hspec $ parallel $ do
296 it "works inside other element" $ do
289 it "works inside other element" $ do
297 testWidget (checkTextInTag "div" "One") (checkTextInTag "div" "Two") $ do
290 testWidget (checkTextInTag "div" "One") (checkTextInTag "div" "Two") $ do
298 el "div" $ prerender (text "One") (text "Two")
291 el "div" $ prerender (text "One") (text "Two")
299−
300 it "places fences and removes them" $ do
292 it "places fences and removes them" $ do
301 testWidget'
293 testWidget'
302 (do
294 (do
@@ -335,7 +327,7 @@ checkTextInId i expected = do
335divId :: DomBuilder t m => Text -> m a -> m a
327divId :: DomBuilder t m => Text -> m a -> m a
336divId i = elAttr "div" ("id" =: i)
328divId i = elAttr "div" ("id" =: i)
337
329
338−type TestWidget js t m = (DomBuilder t m, PostBuild t m, Prerender js m, PerformEvent t m, TriggerEvent t m, MonadIO (Performable m), MonadFix m, MonadIO m)
330+type TestWidget js t m = (DomBuilder t m, MonadHold t m, PostBuild t m, Prerender js m, PerformEvent t m, TriggerEvent t m, MonadIO (Performable m), MonadFix m, MonadIO m)
339
331
340testWidgetStatic
332testWidgetStatic
341 :: WD b
333 :: WD b