[Pkg-haskell-commits] [SCM] haskell-testpack branch, master, updated. debian/1.0.2-1-4-gb0d6b36
John Goerzen
jgoerzen at complete.org
Fri Apr 23 14:50:19 UTC 2010
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
More information about the Pkg-haskell-commits
mailing list