diff options
Diffstat (limited to 'testsuite/tests/lib/IOExts/hPutBuf001.hs')
| -rw-r--r-- | testsuite/tests/lib/IOExts/hPutBuf001.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/testsuite/tests/lib/IOExts/hPutBuf001.hs b/testsuite/tests/lib/IOExts/hPutBuf001.hs new file mode 100644 index 0000000000..fa7e076d41 --- /dev/null +++ b/testsuite/tests/lib/IOExts/hPutBuf001.hs @@ -0,0 +1,7 @@ +import System.IO +import Foreign +import Foreign.C + +main = do + hSetBinaryMode stdout True + withCStringLen "hello world\n" $ \(ptr,len) -> hPutBuf stdout ptr len |