git.iko.soy/typeable/uuid
on 9d78650 help sign in
typeable/uuid/tests/BenchUUID.hs
130 lines 5.2 kB history raw
1import Control.Monad (replicateM)
2import Control.Parallel.Strategies
3import Criterion.Main
4import Data.Char (ord)
5import Data.Maybe (fromJust)
6import Data.Word
7import qualified Data.Set as Set
8import qualified Data.ByteString.Lazy as BL
9import qualified Data.ByteString.Lazy.Internal as BL
10import qualified Data.UUID as U
11import qualified Data.UUID.Internal as U
12import qualified Data.UUID.V1 as U
13import qualified Data.UUID.V5 as U
14import System.Random
17instance NFData BL.ByteString where
18 rnf BL.Empty = ()
19 rnf (BL.Chunk _ ts) = rnf ts
21instance NFData U.UUID where
22 rnf (U.UUID tl tm th ch cl node) =
23 rnf tl `seq` rnf tm `seq` rnf th `seq` rnf ch `seq` rnf cl `seq` rnf node
25instance NFData U.Node where
26 rnf (U.Node w1 w2 w3 w4 w5 w6) =
27 rnf w1 `seq` rnf w2 `seq` rnf w3 `seq` rnf w4 `seq` rnf w5 `seq` rnf w6
31main :: IO ()
32main = do
33 u1 <- randomIO
34 let s1 = U.toString u1
35 b1 = U.toByteString u1
36 n1 = (map (fromIntegral . ord) "http://www.haskell.org/") :: [Word8]
37 nil2 = fromJust $
38 U.fromString "00000000-0000-0000-0000-000000000000"
39 u2a = fromJust $ U.fromString "169a5a43-c051-4a16-98f4-08447ddd5dc0"
40 u2b = fromJust $ U.fromByteString $
41 BL.pack [0x16, 0x9a, 0x5a, 0x43, 0xc0, 0x51, 0x4a, 0x16,
42 0x98, 0xf4, 0x08, 0x44, 0x7d, 0xdd, 0x5d, 0xc0]
43 u3 = fromJust $ U.fromString "dea6f619-1038-438b-b4af-f1cdec1e6e23"
44 defaultMain [
45 bgroup "testing" [
46 bench "null non-nil" $ B U.null u1,
47 bench "null nil" $ B U.null U.nil,
48 bench "null nil2" $ B U.null nil2,
49 bench "eq same" $ B (==u2a) u2b,
50 bench "eq differ" $ B (==u2a) u3
51 ],
52 bgroup "conversion" [
53 bench "toString" $ nf U.toString u1,
54 bench "fromString" $ nf U.fromString s1,
55 bench "toByteString" $ nf U.toByteString u1,
56 bench "fromByteString" $ nf U.fromByteString b1
57 ],
58 bgroup "generation" [
59 bench "V1" $ nfIO U.nextUUID,
60 bench "V4" $ nfIO (randomIO :: IO U.UUID),
61 bench "V5" $ nf (U.generateNamed U.namespaceURL) n1
62 ],
63 bench "set making" $ nf Set.fromList uuids
64 ]
66-- 50 uuids, so tests can be repeatable
67uuids :: [U.UUID]
68uuids
69 = map (fromJust . U.fromString)
70 [
71 "35d42593-1fca-4465-b588-a2e78cb996ba",
72 "1e97e407-eca7-4c5d-a947-6fbe9dc168b6",
73 "a41fd7ce-a053-4c0a-a742-77c95b85da2a",
74 "f7e3913a-0fd7-4355-a92f-d73f9b046efa",
75 "8961a35d-55c2-42f3-8680-08fce3986647",
76 "96246c58-d0b4-4e56-a543-356bd59686a9",
77 "72c46194-648c-4b1e-a9fb-2eba060ab43b",
78 "0fc252d4-a37b-4eca-9309-e3d2a59a3a22",
79 "a8aceb5a-6a8e-43f3-85bb-9653a3c1ebcd",
80 "b23d1118-6bc8-4add-9d56-99634d78949f",
81 "5f8c7896-9c4f-4d7e-a4d2-961bda298012",
82 "219a4137-7bc5-42b1-ac95-490948a978e1",
83 "5af5024f-fbe9-45ab-991d-49b655994437",
84 "569dfb33-185d-4a3c-99c4-bc2b83250a7c",
85 "43a58442-aa51-4a5d-8e00-b8a83b5fc5b0",
86 "2865ced1-b54d-4725-8f01-b408f4617424",
87 "b8cfaff0-4dee-4f32-af2f-0469b3e535fc",
88 "63f45bc0-f303-4f1a-b0d6-76f876be626d",
89 "d171eaf3-f20d-45d6-9268-0cc22dfbe887",
90 "7c28f457-ad27-494a-8642-6e47e7f3efb8",
91 "f8de9193-66ff-49e8-9826-fc50858d7855",
92 "2af85f28-cace-4740-b8bb-2b5860f5fdb3",
93 "b12a7a22-edb3-4694-b8f4-0532eaad6112",
94 "5e052a08-8e49-4668-bbe7-77cdbc4679a3",
95 "42d5a68d-3f08-4e39-9b8c-71cc17c538ed",
96 "ba2b1487-b3a4-4a19-98cc-59530f36613f",
97 "e4a5c569-b8ac-4851-8ad2-fbdb89986be2",
98 "35b4a1b6-b5ca-4646-803b-c337ee730d9a",
99 "f0df1206-05d9-49d6-a726-d49fb253e645",
100 "9656a0f0-89b2-4cec-bb1c-fdf5633e1cd7",
101 "d13382f5-04a1-422d-94d6-e47219425816",
102 "b8d0c762-4c6b-4bd0-ad0b-f68988a87166",
103 "06360e85-f18a-44f6-aa72-45f1e60b6b77",
104 "347491ca-62b3-48e8-ac94-6ffebe1318ed",
105 "014339d0-7b2d-4dda-914b-14ee5cb4391b",
106 "dc57931b-4744-41be-b3c4-e24dbeeb606a",
107 "2c9fdcf0-e1d6-4a2d-951d-4766b99032cb",
108 "b6bde422-eea8-4231-bf1c-ee0e56699511",
109 "921073c5-f7c1-4583-ac03-aeb7aef8662b",
110 "eff6a517-aeb1-453e-9810-1b4b324c5a1e",
111 "eadaae8c-cbf8-4e0b-ab80-e34284b07dad",
112 "4d307c36-70d9-453f-8455-ec7e2ba405ed",
113 "53ddef9a-2413-4f7f-8363-cff56ee17c6c",
114 "4dd4c27a-b300-4a00-ab87-eef505275492",
115 "4a5d7001-f0c1-4e2f-8362-8833bda2114b",
116 "0c46f438-9365-406a-b04e-34436806ec25",
117 "b35469cf-05f8-40ff-a38b-117604347957",
118 "f1c54df0-5f59-4891-b3c6-82bac0d814ca",
119 "8091837c-6456-42c3-a686-f4731a41d4f9",
120 "2a0e2efb-a11c-4a44-81ee-3efc37379b48"
121 ]
123#if !(MIN_VERSION_criterion(0,4,0))
124nf f arg = B ( rnf . f) arg
125whnf f arg = B f arg
126#endif
128#if !(MIN_VERSION_criterion(0,4,1))
129nfIO act = rnf `fmap` act
130#endif