@@ -322,9 +322,14 @@ testCases =
322322 let e = never <$ switch b
323323 return $ void e
324324 lazyHold
325− , testE "now" $ do
325+ , testE "now-1" $ do
326326 e1 <- events1
327327 switchHoldPromptly never . pushAlways (\a -> fmap (a <$) now) $ e1
328+ , testE "now-2" $ do
329+ e1 <- events1
330+ let e = pushAlways (\a -> if a == "a" then now else return never) e1
331+ x <- accumDyn (<>) never e
332+ return . coincidence $ updated x
328333 ] where
329334
330335 events1, events2, events3 :: TestPlan t m => m (Event t String)