@@ -42,9 +42,12 @@ main = do
4242 0x98, 0xf4, 0x08, 0x44, 0x7d, 0xdd, 0x5d, 0xc0]
4343 u3 = fromJust $ U.fromString "dea6f619-1038-438b-b4af-f1cdec1e6e23"
4444 defaultMain [
45− bgroup "null" [
46− bench "null" $ B U.null u1,
47− bench "null nil" $ B U.null U.nil
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
4851 ],
4952 bgroup "conversion" [
5053 bench "toString" $ nf U.toString u1,
@@ -124,4 +127,4 @@ whnf f arg = B f arg
124127
125128#if !(MIN_VERSION_criterion(0,4,1))
126129nfIO act = rnf `fmap` act
127−#endif
130+#endif