composewell/streamly
1
1
Fork 0
mirror of https://github.com/composewell/streamly.git synced 2024-10-26 19:50:19 +03:00
Code Issues Packages Projects Releases Wiki Activity

Add tests for sort and mergeBy

Browse Source
This commit is contained in:
Ranjeet Kumar Ranjan 2021-10-01 12:20:52 +05:30 committed by Harendra Kumar
parent a8a9ae872a
commit 732a916fdc
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
test/Streamly/Test/Prelude/Serial.hs
View File

@ -14,7 +14,7 @@ import Control.Monad ( when, forM_ )
import Data.Function ( (&) )
import Data.IORef ( newIORef, readIORef, writeIORef, modifyIORef' )
import Data.Int (Int64)
import Data.List (group, intercalate)
import Data.List (sort, group, intercalate)
import Data.Maybe ( isJust, fromJust )
import Foreign.Storable (Storable)
#if __GLASGOW_HASKELL__ < 808
@ -502,6 +502,12 @@ foldIterateM =
Nothing -> assert $ s1 == 0
Just s2 -> assert $ s1 == s2
sortBy :: Property
sortBy = forAll (listOf (chooseInt (0, max_length))) $ \lst -> monadicIO $ do
let s1 = sort lst
s2 <- S.toList $ IS.sortBy compare $ S.fromList lst
assert $ s1 == s2
moduleName :: String
moduleName = "Prelude.Serial"
@ -693,3 +699,4 @@ main = hspec
describe "Nesting" $ do
prop "foldIterateM" foldIterateM
prop "sortBy" sortBy