blob: 6294ed79b60f3d71c95c6dd14062668fb4423542 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
#!./perl
# vim: ts=4 sts=4 sw=4:
# $! may not be set if EOF was reached without any error.
# http://rt.perl.org/rt3/Ticket/Display.html?id=39060
use strict;
require './test.pl';
plan( tests => 16 );
my $test_prog = 'while(<>){print}; print $!';
my $saved_perlio;
BEGIN {
$saved_perlio = $ENV{PERLIO};
}
END {
delete $ENV{PERLIO};
$ENV{PERLIO} = $saved_perlio if defined $saved_perlio;
}
for my $perlio ('perlio', 'stdio') {
$ENV{PERLIO} = $perlio;
SKIP:
for my $test_in ("test\n", "test") {
skip("Guaranteed newline at EOF on VMS", 4) if $^O eq 'VMS' && $test_in eq 'test';
my $test_in_esc = $test_in;
$test_in_esc =~ s/\n/\\n/g;
for my $rs_code ('', '$/=undef', '$/=\2', '$/=\1024') {
is( runperl( prog => "$rs_code; $test_prog",
stdin => $test_in, stderr => 1),
$test_in,
"Wrong errno, PERLIO=$ENV{PERLIO} stdin='$test_in_esc', $rs_code");
}
}
}
|