[project @ 2001-08-28 11:12:09 by simonmar]

Add some tests for hGetBuf & hPutBuf

testsuite/tests/ghc-regress/lib/IOExts/all.T

@@ -11,3 +11,6 @@ test "hTell001"		{ myvtr("","","") }
 test "hTell002"		{ myvtr("","","") }
 test "performGC001"	{ myvtr("","","") }
 test "trace001"		{ myvtr("","","") }
+test "hGetBuf001"       { myvtr("","","") }
+test "hPutBuf001"       { myvtr("","","") }
+test "hPutBuf002"       { myvtr("","","") }

testsuite/tests/ghc-regress/lib/IOExts/hGetBuf001.hs

+import IO
+import IOExts
+import Foreign
+import CForeign
+
+main = do
+  h <- openFile "hGetBuf001.hs" ReadMode
+
+  let sz = 42
+      loop = do
+  	 b <- allocaBytes sz $ \ptr -> do
+                r <- hGetBuf h ptr sz
+         	if (r == 0)
+		   then return True
+		   else do s <- peekCStringLen (ptr,r)
+			   putStr s
+			   return False
+	 if b then return () else loop -- tail call
+
+  loop
+

testsuite/tests/ghc-regress/lib/IOExts/hGetBuf001.stdout

+import IO
+import IOExts
+import Foreign
+import CForeign
+
+main = do
+  h <- openFile "hGetBuf001.hs" ReadMode
+
+  let sz = 42
+      loop = do
+  	 b <- allocaBytes sz $ \ptr -> do
+                r <- hGetBuf h ptr sz
+         	if (r == 0)
+		   then return True
+		   else do s <- peekCStringLen (ptr,r)
+			   putStr s
+			   return False
+	 if b then return () else loop -- tail call
+
+  loop
+

testsuite/tests/ghc-regress/lib/IOExts/hPutBuf001.hs

+import IO
+import IOExts
+import Foreign
+import CForeign
+
+main = withCStringLen "hello world\n" $ \(ptr,len) -> hPutBuf stdout ptr len

testsuite/tests/ghc-regress/lib/IOExts/hPutBuf001.stdout

+hello world

testsuite/tests/ghc-regress/lib/IOExts/hPutBuf002.hs

+import IO
+import IOExts
+import Foreign
+import CForeign
+
+-- !!! this test failed to write anything in GHC 5.00.2
+main = do
+  h <- openFile "hPutBuf002.out" ReadWriteMode
+  withCStringLen "hello world\n" $ \(ptr,len) -> hPutBuf h ptr len
+  hFileSize h >>= print

testsuite/tests/ghc-regress/lib/IOExts/hPutBuf002.stdout

+12