@@ -42,9 +42,12 @@ main = do
42 0x98, 0xf4, 0x08, 0x44, 0x7d, 0xdd, 0x5d, 0xc0]
42 0x98, 0xf4, 0x08, 0x44, 0x7d, 0xdd, 0x5d, 0xc0]
43 u3 = fromJust $ U.fromString "dea6f619-1038-438b-b4af-f1cdec1e6e23"
43 u3 = fromJust $ U.fromString "dea6f619-1038-438b-b4af-f1cdec1e6e23"
44 defaultMain [
44 defaultMain [
45− bgroup "null" [
45+ bgroup "testing" [
46− bench "null" $ B U.null u1,
46+ bench "null non-nil" $ B U.null u1,
47− bench "null nil" $ B U.null U.nil
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
49 bgroup "conversion" [
52 bgroup "conversion" [
50 bench "toString" $ nf U.toString u1,
53 bench "toString" $ nf U.toString u1,
@@ -124,4 +127,4 @@ whnf f arg = B f arg
125#if !(MIN_VERSION_criterion(0,4,1))
128#if !(MIN_VERSION_criterion(0,4,1))
126nfIO act = rnf `fmap` act
129nfIO act = rnf `fmap` act