Permalink
Browse files

Rename the snappy benchmark to speedy

--HG--
rename : tests/Snappy.hs => tests/Speedy.hs
  • Loading branch information...
1 parent 3bd8a0c commit c8298d30ded045e49819154618397de47400f31d @bos committed Mar 27, 2011
Showing with 5 additions and 6 deletions.
  1. +1 −1 .hgignore
  2. +3 −3 tests/Makefile
  3. +1 −2 tests/Properties.hs
  4. 0 tests/{Snappy.hs → Speedy.hs}
View
@@ -1,6 +1,6 @@
^(?:dist|\.DS_Store)$
.*\.(?:aux|dSYM|h[ip]|o|orig|out|pdf|prof|ps|rej)$
-^tests/(?:qc|snappy)$
+^tests/(?:qc|speedy)$
syntax: glob
*~
View
@@ -1,13 +1,13 @@
ghc := ghc
ghcflags := -threaded -O
-all: qc snappy
+all: qc speedy
qc: Properties.hs
$(ghc) $(ghcflags) --make -o $@ $^
-snappy: Snappy.hs
+speedy: Speedy.hs
$(ghc) $(ghcflags) -O --make -o $@ $^
clean:
- -rm -f qc snappy *.o *.hi
+ -rm -f qc speedy *.o *.hi
View
@@ -27,9 +27,8 @@ instance Arbitrary (Compressed B.ByteString) where
arbitrary = (Compressed . B.compress) <$> arbitrary
compress_eq n bs = L.fromChunks [B.compress bs] == L.compress (rechunk n bs)
-decompress_eq n bs0 =
+decompress_eq n (Compressed bs) =
L.fromChunks [B.decompress bs] == L.decompress (rechunk n bs)
- where bs = B.compress bs0
rechunk :: Int -> B.ByteString -> L.ByteString
rechunk n = L.fromChunks . go
File renamed without changes.

0 comments on commit c8298d3

Please sign in to comment.