git.iko.soy/reflex
on develop help sign in
Test case for `now`.
614d773Adriaan Leijnse
test/Reflex/Test/Micro.hs+3−2
compare with develop
unifiedsplit
@@ -322,8 +322,9 @@ testCases =
322 let e = never <$ switch b
322 let e = never <$ switch b
323 return $ void e
323 return $ void e
324 lazyHold
324 lazyHold
325−
325+ , testE "now" $ do
326−
326+ e1 <- events1
327+ switchHoldPromptly never . pushAlways (\a -> fmap (a <$) now) $ e1
327 ] where
328 ] where
328
329
329 events1, events2, events3 :: TestPlan t m => m (Event t String)
330 events1, events2, events3 :: TestPlan t m => m (Event t String)