Change 11754 by ams@ams-lustre on 2001/08/26 14:38:52
Subject: [PATCH] t/io/binmode.t
From: Nicholas Clark <[EMAIL PROTECTED]>
Date: Sun, 26 Aug 2001 12:03:05 +0100
Message-Id: <[EMAIL PROTECTED]>
(Also a nitpick in #11752 to t/op/universal.t)
Affected files ...
... //depot/perl/t/io/binmode.t#2 edit
... //depot/perl/t/op/universal.t#16 edit
Differences ...
==== //depot/perl/t/io/binmode.t#2 (text) ====
Index: perl/t/io/binmode.t
--- perl/t/io/binmode.t.~1~ Sun Aug 26 08:45:06 2001
+++ perl/t/io/binmode.t Sun Aug 26 08:45:06 2001
@@ -5,16 +5,24 @@
@INC = '../lib';
}
-
use Test::More tests => 8;
+use Config;
ok( binmode(STDERR), 'STDERR made binary' );
-ok( binmode(STDERR, ":unix"), ' with unix discipline' );
+if ($Config{useperlio}) {
+ ok( binmode(STDERR, ":unix"), ' with unix discipline' );
+} else {
+ ok(1, ' skip unix discipline for -Uuseperlio' );
+}
ok( binmode(STDERR, ":raw"), ' raw' );
ok( binmode(STDERR, ":crlf"), ' and crlf' );
# If this one fails, we're in trouble. So we just bail out.
ok( binmode(STDOUT), 'STDOUT made binary' ) || exit(1);
-ok( binmode(STDOUT, ":unix"), ' with unix discipline' );
-ok( binmode(STDERR, ":raw"), ' raw' );
-ok( binmode(STDERR, ":crlf"), ' and crlf' );
+if ($Config{useperlio}) {
+ ok( binmode(STDOUT, ":unix"), ' with unix discipline' );
+} else {
+ ok(1, ' skip unix discipline for -Uuseperlio' );
+}
+ok( binmode(STDOUT, ":raw"), ' raw' );
+ok( binmode(STDOUT, ":crlf"), ' and crlf' );
==== //depot/perl/t/op/universal.t#16 (xtext) ====
Index: perl/t/op/universal.t
--- perl/t/op/universal.t.~1~ Sun Aug 26 08:45:06 2001
+++ perl/t/op/universal.t Sun Aug 26 08:45:06 2001
@@ -68,7 +68,7 @@
test my $ref = $a->can("drink"); # returns a coderef
test $a->$ref("tea") eq "drinking tea"; # ... which works
test $ref = $a->can("sing");
-eval { $a->sing };
+eval { $a->$ref() };
test $@; # ... but not if no actual subroutine
test (!Cedric->isa('Programmer'));
End of Patch.
