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

1 files changed, 44 insertions, 0 deletions

diff --git a/testsuite/tests/lib/IOExts/hGetBuf002.stdout b/testsuite/tests/lib/IOExts/hGetBuf002.stdout
new file mode 100644
index 0000000000..9cbe498c5c
--- /dev/null
+++ b/testsuite/tests/lib/IOExts/hGetBuf002.stdout
@@ -0,0 +1,44 @@
+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
+
+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
+