Fix enumerateFromToFractional in unfold tests
commitcf2ae21e78013ec733db23e0b1809c731d986380
authoradithyaov <adithya@composewell.com>
dateTue 20 Oct 2020, 06:34 (6 years ago)
parent8f0b863
test/Streamly/Test/Data/Unfold.hs+4−1
@@ -208,7 +208,10 @@ enumerateFromToFractional =
208208 property
209209 $ \f t ->
210210 let unf = UF.enumerateFromToFractional (t :: Double)
211− in testUnfold unf (f :: Double) [f .. t]
211+ list =
212+ Prelude.takeWhile (<= t + 0.5)
213+ $ List.unfoldr (\x -> Just (x, x + 1)) f
214+ in testUnfold unf (f :: Double) list
212215
213216enumerateFromStepIntegral :: Property
214217enumerateFromStepIntegral =