diff --git a/.hgignore b/.hgignore
index 0721568..3198a4c 100644
--- 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
index e05511a..b43805d 100644
--- 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
index ce4626c..182828e 100644
--- 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 b/tests/Speedy.hs
similarity index 100%
rename from tests/Snappy.hs
rename to tests/Speedy.hs