[project @ 1999-11-02 11:25:42 by sof]

updated with expected-output files

ghc/tests/lib/should_run/io001.hs

@@ -64,6 +64,7 @@ main = do
 
   hClose h
   putStrLn "\nUsing hSeek/SeekFromEnd: "
+  putStrLn "(Don't worry if you're seeing differing numbers here, it might be down to '\\n' vs '\\r\\n')"
   h  <- openFile "io001.hs" ReadMode
   recordDoAndRepos3 h $
    recordDoAndRepos3 h $

ghc/tests/lib/should_run/io001.stdout

+At position: 0, found: '-'
+At position: 1, found: '-'
+At position: 2, found: ' '
+At position: 3, found: '!'
+At position: 4, found: '!'
+
+At position: 4, found: '!'
+At position: 3, found: '!'
+At position: 2, found: ' '
+At position: 1, found: '-'
+At position: 0, found: '-'
+
+At position: 0, found: '-'
+At position: 1, found: '-'
+At position: 2, found: ' '
+At position: 3, found: '!'
+At position: 4, found: '!'
+
+At position: 4, found: '!'
+At position: 3, found: '!'
+At position: 2, found: ' '
+At position: 1, found: '-'
+At position: 0, found: '-'
+
+Using hSeek/AbsoluteSeek: 
+At position: 0, found: '-'
+At position: 1, found: '-'
+At position: 2, found: ' '
+At position: 3, found: '!'
+At position: 4, found: '!'
+
+At position: 4, found: '!'
+At position: 3, found: '!'
+At position: 2, found: ' '
+At position: 1, found: '-'
+At position: 0, found: '-'
+
+Using hSeek/SeekFromEnd: 
+(Don't worry if you're seeing differing numbers here, it might be down to '\n' vs '\r\n')
+At position: 0, found: '-'
+At position: 1, found: '-'
+At position: 2, found: ' '
+At position: 3, found: '!'
+At position: 4, found: '!'
+
+At position: 1740, found: ' '
+At position: 1741, found: '"'
+At position: 1742, found: '"'
+At position: 1743, found: '\n'
+At position: 1743, found: '\n'

ghc/tests/lib/should_run/io002.hs

@@ -8,17 +8,18 @@ import Directory
 main :: IO ()
 main = do
   h <- openFile "tst-seek" WriteMode
-  hPutStrLn h "test string1"
+  hPutStr h "test string1"
    -- seek to EOF should be cool..
   hSeek h SeekFromEnd 0
   hPutStr h "test string2"
-   -- seek past EOF should now be cool..
+   -- seek past EOF should now also be cool..
   hSeek h SeekFromEnd 3
   hPutStr h "test string3"
   hSeek h AbsoluteSeek 13
   hPutStr h "test string4"
   x <- hTell h
   print x
+  hPutStr h "filler"
   hClose h
   ls <- readFile "tst-seek"
   putStrLn ls

ghc/tests/lib/should_run/io002.stdout

+25
+test string1ttest string4filler string3

ghc/tests/lib/should_run/ioexts001.hs

@@ -7,6 +7,6 @@ import IOExts
 loop r 0 = return ()
 loop r c = loop r (c-1) >> writeIORef r 42
 
-main = newIORef 0 >>= \r -> loop r 1000000
+main = newIORef 0 >>= \r -> loop r 1000000 >> putStrLn "done"
 
 

ghc/tests/lib/should_run/ioexts001.stdout

+done