@@ -150,6 +150,9 @@ main = hspec $ do
150 ((t 4 <|> t 8) <> (t 1 <|> t 2))
150 ((t 4 <|> t 8) <> (t 1 <|> t 2))
151 <|> ((t 4 <|> t 8) <> (t 1 <|> t 2)))
151 <|> ((t 4 <|> t 8) <> (t 1 <|> t 2)))
152 `shouldReturn` ([4,4,8,8,1,1,2,2])
152 `shouldReturn` ([4,4,8,8,1,1,2,2])
153+ -- FIXME: These two keep failing intermittently on Mac OS X
154+ -- Need to examine and fix the tests.
153 it "Nest <|>, <=>, <|> (1)" $
156 it "Nest <|>, <=>, <|> (1)" $
154 let t = timed
157 let t = timed
155 in toList (
158 in toList (
@@ -162,6 +165,7 @@ main = hspec $ do
162 ((t 4 <|> t 8) <=> (t 1 <|> t 2))
165 ((t 4 <|> t 8) <=> (t 1 <|> t 2))
163 <|> ((t 4 <|> t 9) <=> (t 1 <|> t 2)))
166 <|> ((t 4 <|> t 9) <=> (t 1 <|> t 2)))
164 `shouldReturn` ([4,4,1,1,8,2,9,2])
167 `shouldReturn` ([4,4,1,1,8,2,9,2])
165 it "Nest <|>, <|>, <|>" $
169 it "Nest <|>, <|>, <|>" $
166 let t = timed
170 let t = timed
167 in toList (
171 in toList (