Rename the snappy benchmark to speedy

--HG-- rename : tests/Snappy.hs => tests/Speedy.hs
bos · Mar 27, 2011 · c8298d3 · c8298d3
1 parent 3bd8a0c
commit c8298d3
Show file tree

Hide file tree

Showing 4 changed files with 5 additions and 6 deletions.
diff --git a/.hgignore b/.hgignore
@@ -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
 *~

diff --git a/tests/Makefile b/tests/Makefile
@@ -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
diff --git a/tests/Properties.hs b/tests/Properties.hs
@@ -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

diff --git a/tests/Snappy.hs → tests/Speedy.hs b/tests/Snappy.hs → tests/Speedy.hs