From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Sat, 17 May 2003 15:37:45 +0000 (+0000)
Subject: Enache Adrian <enache@rdslink.ro> test for Win32 sysread/O_TEXT issue.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c407884f51a28bc807bdd853ed189db292286a52;p=p5sagit%2Fp5-mst-13.2.git

Enache Adrian <enache@rdslink.ro> test for Win32 sysread/O_TEXT issue.

p4raw-id: //depot/perlio@19544
---

diff --git a/t/op/sysio.t b/t/op/sysio.t
index 473a3f0..61a5c0a 100755
--- a/t/op/sysio.t
+++ b/t/op/sysio.t
@@ -1,6 +1,6 @@
 #!./perl
 
-print "1..39\n";
+print "1..40\n";
 
 chdir('op') || chdir('t/op') || die "sysio.t: cannot look for myself: $!";
 
@@ -211,6 +211,18 @@ print "ok 39\n";
 
 close(I);
 
+{
+    use Fcntl qw(O_RDONLY O_TEXT);
+    open I, ">$outfile";
+    print I "a\nb\nc";
+    close I;
+    sysopen I, $outfile, O_RDONLY|O_TEXT; 
+    sysread I, $buf, 7;
+    print "not " if $buf ne "a\nb\nc";
+    print "ok 40 - sysopen with O_TEXT\n";
+    close I;
+}
+
 unlink $outfile;
 
 chdir('..');