Add a couple more tests
commit2b739af6e71f633d83afed99257b86d7578b57aa
authorRyan Trinkle <ryan.trinkle@gmail.com>
dateThu 4 Aug 2016, 20:02 (10 years ago)
parent17c881c
test/Reflex/Test/Micro.hs+7
@@ -50,6 +50,13 @@ testCases =
5050 pushAlways (const $ hold "z" es) e
5151 return (join b)
5252
53+ , testE "id" $ do
54+ events2
55+
56+ , testE "fmap-id" $ do
57+ e <- events2
58+ return $ fmap id e
59+
5360 , testE "tag-1" $ do
5461 b1 <- behavior1
5562 e <- events2