git.iko.soy/streamly
on master help sign in
Fix enumerateFromToFractional in unfold tests
cf2ae21adithyaov
test/Streamly/Test/Data/Unfold.hs+4−1
compare with master
unifiedsplit
@@ -208,7 +208,10 @@ enumerateFromToFractional =
208 property
208 property
209 $ \f t ->
209 $ \f t ->
210 let unf = UF.enumerateFromToFractional (t :: Double)
210 let unf = UF.enumerateFromToFractional (t :: Double)
211+ list =
212+ Prelude.takeWhile (<= t + 0.5)
213+ $ List.unfoldr (\x -> Just (x, x + 1)) f
211− in testUnfold unf (f :: Double) [f .. t]
214+ in testUnfold unf (f :: Double) list
212
215
213enumerateFromStepIntegral :: Property
216enumerateFromStepIntegral :: Property
214enumerateFromStepIntegral =
217enumerateFromStepIntegral =