git.iko.soy/patch
on develop help sign in
Add a couple more tests
2b739afRyan Trinkle
test/Reflex/Test/Micro.hs+7
compare with develop
unifiedsplit
@@ -50,6 +50,13 @@ testCases =
50 pushAlways (const $ hold "z" es) e
50 pushAlways (const $ hold "z" es) e
51 return (join b)
51 return (join b)
52
52
53+ , testE "id" $ do
54+ events2
55+
56+ , testE "fmap-id" $ do
57+ e <- events2
58+ return $ fmap id e
59+
53 , testE "tag-1" $ do
60 , testE "tag-1" $ do
54 b1 <- behavior1
61 b1 <- behavior1
55 e <- events2
62 e <- events2