[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 9dce13a15629223e00e5a3e1614bfb58a9bd59cd
Author: John Goerzen <jgoerzen at complete.org>
Date:   Tue Dec 21 05:57:46 2004 +0100

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

diff --git a/ChangeLog b/ChangeLog
index 9510641..f97384b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,18 @@
 # arch-tag: automatic-ChangeLog--jgoerzen at complete.org--projects/missingh--head--0.7
 #
 
+2004-12-20 22:57:46 GMT	John Goerzen <jgoerzen at complete.org>	patch-117
+
+    Summary:
+      Checkpointing
+    Revision:
+      missingh--head--0.7--patch-117
+
+
+    modified files:
+     ChangeLog TODO testsrc/HVFStest.hs
+
+
 2004-12-20 22:38:42 GMT	John Goerzen <jgoerzen at complete.org>	patch-116
 
     Summary:
diff --git a/TODO b/TODO
index 2582131..91d0b89 100644
--- a/TODO
+++ b/TODO
@@ -4,3 +4,8 @@ Printf:
  make %H work 
 
 tests for new Parsec stuff
+
+HVFStest:
+  test all sorts of exceptions
+  test .. et al
+
diff --git a/testsrc/HVFStest.hs b/testsrc/HVFStest.hs
index 16a3f5d..f942b63 100644
--- a/testsrc/HVFStest.hs
+++ b/testsrc/HVFStest.hs
@@ -42,7 +42,7 @@ testTree = [("test.txt", MemoryFile "line1\nline2\n"),
            ]
 
 test_content = 
-    let f exp fp = TestLabel exp $ TestCase $
+    let f exp fp = TestLabel fp $ TestCase $
                      do x <- newMemoryVFS testTree
                         h <- vOpen x fp ReadMode
                         case h of
@@ -50,7 +50,9 @@ test_content =
         in
         [
          f "line1\nline2\n" "test.txt",
-         f "line1\nline2\n" "/test.txt"
+         f "line1\nline2\n" "/test.txt",
+         f "line5\n" "dir1/file3.txt",
+         f "subdir test" "/dir1/test.txt"
         ]
 
 test_structure =

-- 
haskell-testpack