[project @ 2005-08-10 10:07:39 by simonmar]

test queryFdOption

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

@@ -9,3 +9,5 @@ test('signals002',  compose(only_compiler_types(['ghc']), conf),
 test('fileexist01', conf, compile_and_run, ['-package unix'])
 test('forkprocess01', compose(only_compiler_types(['ghc']), conf),
 	compile_and_run, ['-package unix'])
+test('queryfdoption01', compose(only_compiler_types(['ghc']), conf),
+	compile_and_run, ['-package unix'])

testsuite/tests/ghc-regress/lib/Posix/queryfdoption01.hs

+import System.Posix.IO
+import System.IO
+
+showNBR = do
+	v <- System.Posix.IO.queryFdOption 0 System.Posix.IO.NonBlockingRead
+	putStr $ "NonBlockingRead = " ++ (show v) ++ "\n"
+
+main = do
+	showNBR
+	System.Posix.IO.setFdOption 0 System.Posix.IO.NonBlockingRead True
+	showNBR