Change 18500: Integrate #18447 from maint-5.8 :

[Rafael Garcia-Suarez]

Change 18500 by rgs@rgs-home on 2003/01/16 21:17:14

        Integrate #18447 from maint-5.8 :
        test.pl-ise t/op/fh.t.

Affected files ...

... //depot/perl/t/op/fh.t#5 integrate

Differences ...

==== //depot/perl/t/op/fh.t#5 (xtext) ====
Index: perl/t/op/fh.t
--- perl/t/op/fh.t#4~2915~      Sun Feb 14 02:48:01 1999
+++ perl/t/op/fh.t      Thu Jan 16 13:17:14 2003
@@ -1,26 +1,29 @@
 #!./perl
 
-print "1..5\n";
+BEGIN {
+    chdir 't';
+    @INC = '../lib';
+    require './test.pl';
+}
 
-my $test = 0;
+plan tests => 8;
 
 # symbolic filehandles should only result in glob entries with FH constructors
 
 $|=1;
 my $a = "SYM000";
-print "not " if defined(fileno($a)) or defined *{$a};
-++$test; print "ok $test\n";
+ok(!defined(fileno($a)));
+ok(!defined *{$a});
 
 select select $a;
-print "not " unless defined *{$a};
-++$test; print "ok $test\n";
+ok(defined *{$a});
 
 $a++;
-print "not " if close $a or defined *{$a};
-++$test; print "ok $test\n";
+ok(!close $a);
+ok(!defined *{$a});
 
-print "not " unless open($a, ">&STDOUT") and defined *{$a};
-++$test; print $a "ok $test\n";
+ok(open($a, ">&STDOUT"));
+ok(defined *{$a});
+
+ok(close $a);
 
-print "not " unless close $a;
-++$test; print $a "not "; print "ok $test\n";
End of Patch.