Skip to content
Browse files

Improved comments

  • Loading branch information...
1 parent c9e17e3 commit 878e2354cc56c907afc072068e467965827bc93c @tanimoto tanimoto committed Mar 19, 2011
Showing with 3 additions and 4 deletions.
  1. +3 −4 test.hs
View
7 test.hs
@@ -48,7 +48,6 @@ import Test.QuickCheck.Monadic
import qualified Test.QuickCheck.Monadic as Q
import System.IO (IOMode (..), openFile, hClose)
-import System.IO.Unsafe (unsafePerformIO)
import Test.Framework (Test, defaultMain, testGroup)
import Test.Framework.Providers.QuickCheck2 (testProperty)
@@ -231,15 +230,15 @@ prop_decompress_compare win xs = monadicIO $ do
assert $ enum == chks
-- | Check: bs == decompress (compress bs)
--- (That is, in separate Enumeratees)
+-- (That is, with separate Enumeratees)
prop_compress_decompress :: WindowBits -> [ByteString] -> Property
prop_compress_decompress win xs = monadicIO $ do
cs <- Q.run $ compress win xs
ys <- Q.run $ decompress win [cs]
assert (B.concat xs == ys)
-- | Check: bs == compressDecompress bs
--- (That is, in a single Enumeratee)
+-- (That is, with a single Enumeratee)
prop_compress_decompress' :: WindowBits -> [ByteString] -> Property
prop_compress_decompress' win xs = monadicIO $ do
ys <- Q.run $ compressDecompress win xs
@@ -269,7 +268,7 @@ prop_many win n xs = monadicIO $ do
ys <- Q.run $ compressDecompressMany win n xs
assert (B.concat xs == ys)
--- | Check compressing and decompresssing a file
+-- | Check compressing and decompressing a file
prop_files_map_id :: FilePath -> WindowBits -> [ByteString] -> Property
prop_files_map_id file win xs = monadicIO $ do
Q.run $ compressFileWith enum win file xs

0 comments on commit 878e235

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