Measure toUpper.

--HG-- extra : convert_revision : a59da3bb394b1a5ce3de3a5a5b69597a18946477
haskell · Dec 2, 2009 · 1f4ce2a · 1f4ce2a
1 parent cc1b015
commit 1f4ce2a
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/tests/Benchmarks.hs b/tests/Benchmarks.hs
@@ -223,6 +223,13 @@ main = do
       , bench "bl" $ nf BL.tail bla
       , bench "l" $ nf L.tail la
       ],
+      bgroup "toUpper" [
+        bench "ts" $ nf TS.toUpper tsa
+      , bench "tl" $ nf TL.toUpper tla
+      , bench "bs" $ nf (BS.map toUpper) bsa
+      , bench "bl" $ nf (BL.map toUpper) bla
+      , bench "l" $ nf (L.map toUpper) la
+      ],
       bgroup "words" [
         bench "ts" $ nf TS.words tsa
       , bench "tl" $ nf TL.words tla
@@ -333,6 +340,13 @@ main = do
         , bench "bl" $ nf (BL.length . BL.tail) bla
         , bench "l" $ nf (L.length . L.tail) la
         ],
+        bgroup "toUpper" [
+          bench "ts" $ nf (TS.length . TS.toUpper) tsa
+        , bench "tl" $ nf (TL.length . TL.toUpper) tla
+        , bench "bs" $ nf (BS.length . BS.map toUpper) bsa
+        , bench "bl" $ nf (BL.length . BL.map toUpper) bla
+        , bench "l" $ nf (L.length . L.map toUpper) la
+        ],
         bgroup "words" [
           bench "ts" $ nf (L.length . TS.words) tsa
         , bench "tl" $ nf (L.length . TL.words) tla