[Pkg-haskell-commits] [SCM] haskell-testpack branch, master, updated. debian/1.0.2-1-4-gb0d6b36

[John Goerzen]

The following commit has been merged in the master branch:
commit ffe3454776adf734f5cee13ac06f583318ea7dfc
Author: John Goerzen <jgoerzen at complete.org>
Date:   Sun Dec 5 02:18:00 2004 +0100

    Checkpointing
    
    Keywords:
    
    
    (jgoerzen at complete.org--projects/missingh--head--0.7--patch-47)

diff --git a/ChangeLog b/ChangeLog
index 368b1bb..3ae3d20 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,19 @@
 # arch-tag: automatic-ChangeLog--jgoerzen at complete.org--projects/missingh--head--0.7
 #
 
+2004-12-04 19:18:00 GMT	John Goerzen <jgoerzen at complete.org>	patch-47
+
+    Summary:
+      Checkpointing
+    Revision:
+      missingh--head--0.7--patch-47
+
+
+    modified files:
+     ChangeLog libsrc/MissingH/FileArchive/GZip.hs
+     testsrc/GZiptest.hs
+
+
 2004-12-04 19:07:11 GMT	John Goerzen <jgoerzen at complete.org>	patch-46
 
     Summary:
diff --git a/libsrc/MissingH/FileArchive/GZip.hs b/libsrc/MissingH/FileArchive/GZip.hs
index 4afb0e0..d48cd44 100644
--- a/libsrc/MissingH/FileArchive/GZip.hs
+++ b/libsrc/MissingH/FileArchive/GZip.hs
@@ -35,8 +35,10 @@ The GZip format is described in RFC1952.
 module MissingH.FileArchive.GZip (
                                   -- * GZip Files
                                   -- $gzipfiles
+
                                   -- * Types
-                                  Header(..), Section, GZipError(..), Footer(..),
+                                  Header(..), Section, GZipError(..),
+                                  Footer(..),
                                   -- * Whole-File Processing
                                   decompress,
                                   read_sections,
diff --git a/testsrc/GZiptest.hs b/testsrc/GZiptest.hs
index 32855d8..f7801bb 100644
--- a/testsrc/GZiptest.hs
+++ b/testsrc/GZiptest.hs
@@ -55,7 +55,8 @@ test_inflate =
         ,f "empty.gz" "" inflate_string
         --,f "zeros.gz" 10485760 (length . inflate_string)
         -- BAD BAD ,f "zeros.gz" (replicate (10 * 1048576) '\0') inflate_string
-        ,f "zeros.gz" True (\x -> (replicate 10485760 '\0') == inflate_string x)
+        -- This line tests Igloo's code:
+        --,f "zeros.gz" True (\x -> (replicate 10485760 '\0') == inflate_string x)
         ]
 
 test_header =
@@ -78,9 +79,12 @@ test_gunzip =
          f "t1.gz" ("Test 1", Nothing)
         ,f "t1bad.gz" ("Test 1", Just CRCError)
         ,f "t2.gz" ("Test 1Test 2", Nothing)
+        -- The following tests my code
+         {-
         ,mf "zeros.gz" True (\x -> case decompress x of
                              (y, _) -> y == replicate 10485760 '\0'
                             )
+         -}
         ]
 
 tests = TestList [TestLabel "inflate" (TestList test_inflate),

-- 
haskell-testpack