a594227 · typeable/uuid

git.iko.soy/typeable/uuid

Update benchmarks to include `V4.nextRandom`.

commita594227714fa8a8af6ab4cf62e1e2a08b39ea056 authorAntoine Latter <aslatter@gmail.com> dateSat 2 Apr 2016, 14:13 (11 years ago) parentb29d833

1 file changed+3−1

unifiedsplit

uuid/tests/BenchUUID.hs+3−1

@@ -6,6 +6,7 @@ import Data.IORef

66import Data.Word

77import qualified Data.UUID as U

88import qualified Data.UUID.V1 as U

9+import qualified Data.UUID.V4 as U

910import qualified Data.UUID.V3 as U3

1011import qualified Data.UUID.V5 as U5

1112import System.Random

@@ -27,7 +28,8 @@ main = do

2728 defaultMain [

2829 bgroup "generation" [

2930 bench "V1" $ nfIO U.nextUUID,

30− bench "V4" $ nfIO (randomUUID :: IO U.UUID),

31+ bench "V4-stock" $ nfIO (U.nextRandom :: IO U.UUID),

32+ bench "V4-mersenne" $ nfIO (randomUUID :: IO U.UUID),

3133 bench "V3" $ nf (U3.generateNamed U3.namespaceURL) n1,

3234 bench "V5" $ nf (U5.generateNamed U5.namespaceURL) n1

3335 ]