1 files changed, 13 insertions, 0 deletions
diff --git a/tests/libposix/posix014.hs b/tests/libposix/posix014.hs
new file mode 100644
index 0000000..9d844b2
--- /dev/null
+++ b/tests/libposix/posix014.hs
@@ -0,0 +1,13 @@
+-- !! Basic pipe usage
+module Main (main) where
+
+import System.Posix
+
+main = do
+  (rd, wd) <- createPipe
+  pid <- forkProcess $ do (str, _) <- fdRead rd 32
+                          putStrLn str
+  fdWrite wd "Hi, there - forked child calling"
+  getProcessStatus True False pid
+  return ()
+