@@ -34,10 +34,17 @@ main = do
3434 let s1 = U.toString u1
3535 b1 = U.toByteString u1
3636 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"
3744 defaultMain [
3845 bgroup "null" [
39− bench "null" $ whnf U.null u1,
40− bench "null nil" $ whnf U.null U.nil
46+ bench "null" $ B U.null u1,
47+ bench "null nil" $ B U.null U.nil
4148 ],
4249 bgroup "conversion" [
4350 bench "toString" $ nf U.toString u1,