Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Rename the snappy benchmark to speedy

--HG--
rename : tests/Snappy.hs => tests/Speedy.hs
  • Loading branch information...
commit c8298d30ded045e49819154618397de47400f31d 1 parent 3bd8a0c
Bryan O'Sullivan authored March 26, 2011
2  .hgignore
... ...
@@ -1,6 +1,6 @@
1 1
 ^(?:dist|\.DS_Store)$
2 2
 .*\.(?:aux|dSYM|h[ip]|o|orig|out|pdf|prof|ps|rej)$
3  
-^tests/(?:qc|snappy)$
  3
+^tests/(?:qc|speedy)$
4 4
 
5 5
 syntax: glob
6 6
 *~
6  tests/Makefile
... ...
@@ -1,13 +1,13 @@
1 1
 ghc := ghc
2 2
 ghcflags := -threaded -O
3 3
 
4  
-all: qc snappy
  4
+all: qc speedy
5 5
 
6 6
 qc: Properties.hs
7 7
 	$(ghc) $(ghcflags) --make -o $@ $^
8 8
 
9  
-snappy: Snappy.hs
  9
+speedy: Speedy.hs
10 10
 	$(ghc) $(ghcflags) -O --make -o $@ $^
11 11
 
12 12
 clean:
13  
-	-rm -f qc snappy *.o *.hi
  13
+	-rm -f qc speedy *.o *.hi
3  tests/Properties.hs
@@ -27,9 +27,8 @@ instance Arbitrary (Compressed B.ByteString) where
27 27
     arbitrary = (Compressed . B.compress) <$> arbitrary
28 28
 
29 29
 compress_eq n bs = L.fromChunks [B.compress bs] == L.compress (rechunk n bs)
30  
-decompress_eq n bs0 =
  30
+decompress_eq n (Compressed bs) =
31 31
     L.fromChunks [B.decompress bs] == L.decompress (rechunk n bs)
32  
-  where bs = B.compress bs0
33 32
 
34 33
 rechunk :: Int -> B.ByteString -> L.ByteString
35 34
 rechunk n = L.fromChunks . go
0  tests/Snappy.hs → tests/Speedy.hs
File renamed without changes

0 notes on commit c8298d3

Please sign in to comment.
Something went wrong with that request. Please try again.