Test case for `now`.
commit614d7730e09e7750a3e8a12626b18766aecc9c8e
authorAdriaan Leijnse <parenthetical@users.noreply.github.com>
dateFri 1 May 2020, 22:59 (6 years ago)
parent375c84e
test/Reflex/Test/Micro.hs+3−2
@@ -322,8 +322,9 @@ testCases =
322322 let e = never <$ switch b
323323 return $ void e
324324 lazyHold
325−
326−
325+ , testE "now" $ do
326+ e1 <- events1
327+ switchHoldPromptly never . pushAlways (\a -> fmap (a <$) now) $ e1
327328 ] where
328329
329330 events1, events2, events3 :: TestPlan t m => m (Event t String)