[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 49cd49f2a7ff3f7168b6863101658c250b5c3456
Author: John Goerzen <jgoerzen at complete.org>
Date:   Tue Dec 21 00:29:47 2004 +0100

    Completed MemoryBuffer tests
    
    Keywords:
    
    
    (jgoerzen at complete.org--projects/missingh--head--0.7--patch-101)

diff --git a/ChangeLog b/ChangeLog
index 71e88c6..cc1028b 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 17:29:47 GMT	John Goerzen <jgoerzen at complete.org>	patch-101
+
+    Summary:
+      Completed MemoryBuffer tests
+    Revision:
+      missingh--head--0.7--patch-101
+
+
+    modified files:
+     ChangeLog testsrc/HVIOtest.hs
+
+
 2004-12-20 17:26:10 GMT	John Goerzen <jgoerzen at complete.org>	patch-100
 
     Summary:
diff --git a/testsrc/HVIOtest.hs b/testsrc/HVIOtest.hs
index 31ffd59..33be098 100644
--- a/testsrc/HVIOtest.hs
+++ b/testsrc/HVIOtest.hs
@@ -40,9 +40,18 @@ test_MemoryBuffer =
                         vRewind x
                         "Line1" `ioeq` vGetLine x
                         "Line2" `ioeq` vGetLine x
+                        12 `ioeq` vTell x
+                        vSeek x AbsoluteSeek 1
+                        "ine1" `ioeq` vGetLine x
+                        vSeek x RelativeSeek (-3)
+                        "e1" `ioeq` vGetLine x
+                        vSeek x SeekFromEnd (-3)
+                        "e2" `ioeq` vGetLine x
+                        vSeek x SeekFromEnd 0
+                        vPutChar x 'c'
                         assertRaises "eof error" (IOException $ mkIOError eofErrorType "" Nothing Nothing) (vGetLine x)
                         vRewind x
-                        "Line1\nLine2\n" `ioeq` vGetContents x
+                        "Line1\nLine2\nc" `ioeq` vGetContents x
               )
         ]
 

-- 
haskell-testpack