From c407884f51a28bc807bdd853ed189db292286a52 Mon Sep 17 00:00:00 2001 From: Nick Ing-Simmons Date: Sat, 17 May 2003 15:37:45 +0000 Subject: [PATCH] Enache Adrian test for Win32 sysread/O_TEXT issue. p4raw-id: //depot/perlio@19544 --- t/op/sysio.t | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) 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('..'); -- 2.7.4