[perl5db] Extract $obj->_handle_dash_command.

[perl5.git] / t / io / read.t

diff --git a/t/io/read.t b/t/io/read.t
old mode 100755 (executable)
new mode 100644 (file)
index 16d32b1..8cc1640
--- a/t/io/read.t
+++ b/t/io/read.t
@@ -1,22 +1,37 @@
 #!./perl
 
-# $RCSfile$
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = '../lib';
+    require './test.pl';
+    eval 'use Errno';
+    die $@ if $@ and !is_miniperl();
+}
+
+use strict;
+
+plan tests => 2;
 
-print "1..1\n";
+my $tmpfile = tempfile();
 
-open(A,"+>a");
+open(A,"+>$tmpfile");
 print A "_";
 seek(A,0,0);
 
-$b = "abcd"; 
+my $b = "abcd"; 
 $b = "";
 
 read(A,$b,1,4);
 
 close(A);
 
-if ($b eq "\000\000\000\000_") {
-       print "ok 1\n";
-} else { # Probably "\000bcd_"
-       print "not ok 1\n";
+is($b,"\000\000\000\000_"); # otherwise probably "\000bcd_"
+
+SKIP: {
+    skip "no EBADF", 1 if (!exists &Errno::EBADF);
+
+    $! = 0;
+    no warnings 'unopened';
+    read(B,$b,1);
+    ok($! == &Errno::EBADF);
 }