Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Improved comments

  • Loading branch information...
commit 878e2354cc56c907afc072068e467965827bc93c 1 parent c9e17e3
Paulo Tanimoto authored March 19, 2011

Showing 1 changed file with 3 additions and 4 deletions. Show diff stats Hide diff stats

  1. 7  test.hs
7  test.hs
@@ -48,7 +48,6 @@ import Test.QuickCheck.Monadic
48 48
 import qualified Test.QuickCheck.Monadic as Q
49 49
 
50 50
 import System.IO (IOMode (..), openFile, hClose)
51  
-import System.IO.Unsafe (unsafePerformIO)
52 51
 
53 52
 import Test.Framework (Test, defaultMain, testGroup)
54 53
 import Test.Framework.Providers.QuickCheck2 (testProperty)
@@ -231,7 +230,7 @@ prop_decompress_compare win xs = monadicIO $ do
231 230
   assert $ enum == chks
232 231
 
233 232
 -- | Check: bs == decompress (compress bs)
234  
--- (That is, in separate Enumeratees)
  233
+-- (That is, with separate Enumeratees)
235 234
 prop_compress_decompress :: WindowBits -> [ByteString] -> Property
236 235
 prop_compress_decompress win xs = monadicIO $ do
237 236
   cs <- Q.run $ compress win xs
@@ -239,7 +238,7 @@ prop_compress_decompress win xs = monadicIO $ do
239 238
   assert (B.concat xs == ys)
240 239
 
241 240
 -- | Check: bs == compressDecompress bs
242  
--- (That is, in a single Enumeratee)
  241
+-- (That is, with a single Enumeratee)
243 242
 prop_compress_decompress' :: WindowBits -> [ByteString] -> Property
244 243
 prop_compress_decompress' win xs = monadicIO $ do
245 244
   ys <- Q.run $ compressDecompress win xs
@@ -269,7 +268,7 @@ prop_many win n xs = monadicIO $ do
269 268
   ys <- Q.run $ compressDecompressMany win n xs
270 269
   assert (B.concat xs == ys)
271 270
 
272  
--- | Check compressing and decompresssing a file
  271
+-- | Check compressing and decompressing a file
273 272
 prop_files_map_id :: FilePath -> WindowBits -> [ByteString] -> Property
274 273
 prop_files_map_id file win xs = monadicIO $ do
275 274
   Q.run $ compressFileWith enum win file xs

0 notes on commit 878e235

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