Move tests from tests/ghc-regress/* to just tests/*

1 files changed, 22 insertions, 0 deletions

diff --git a/testsuite/tests/lib/IOExts/hGetBuf002.hs b/testsuite/tests/lib/IOExts/hGetBuf002.hs
new file mode 100644
index 0000000000..525eeb8e36
--- /dev/null
+++ b/testsuite/tests/lib/IOExts/hGetBuf002.hs
@@ -0,0 +1,22 @@
+import System.IO
+import Foreign
+import Foreign.C
+
+main = do test True; test False
+
+test blocking = do
+  h <- openBinaryFile "hGetBuf002.hs" ReadMode
+
+  let sz = 42
+      loop = do
+  	 b <- allocaBytes sz $ \ptr -> do
+                r <- (if blocking then hGetBuf else hGetBufNonBlocking) 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
+