Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Not OK: perl 5.00561 on i686-linux 2.0.36 #510

Closed
p5pRT opened this issue Sep 11, 1999 · 1 comment
Closed

Not OK: perl 5.00561 on i686-linux 2.0.36 #510

p5pRT opened this issue Sep 11, 1999 · 1 comment

Comments

@p5pRT
Copy link
Collaborator

@p5pRT p5pRT commented Sep 11, 1999

Migrated from rt.perl.org#1356 (status was 'resolved')

Searchable as RT1356$

@p5pRT
Copy link
Collaborator Author

@p5pRT p5pRT commented Sep 11, 1999

From tchrist@jhereg.perl.com


[Please enter your report here]

IS this of some concern? I see the glibc disclaimer, but wonder
whether there's more wrong than that.

Here's the short story​:

io/dup.t 0 11 7 6 85.71% 2-7
lib/getopt.t 0 11 ?? ?? % ??
lib/io_dup.t 0 11 6 5 83.33% 2-6
lib/io_xs.t 0 11 ?? ?? % ??
pragma/strict.t 77 2 2.60% 66-67
pragma/warning. 291 15 5.15% 70-75, 100, 190-191, 196, 203,
  206, 208-209, 211

And here's the long one​:

% cd /usr/src/perl5.005_61
% ./perl -Ilib utils/perlbug -nok &

(which is what's running now)

% cd t
% ./perl harness
base/rs.............ok, 4/14 skipped​: on non-VMS system
io/dup..............dubious
  Test returned status 0 (wstat 11, 0xb)
DIED. FAILED tests 2-7
  Failed 6/7 tests, 14.29% okay
op/64bit............skipped test on this platform
op/lfs..............skipped test on this platform
op/magic............ok, 4/35 skipped​: unknown reason
op/regexp...........ok, 3/741 skipped​: unknown reason
op/regexp_noamp.....ok, 7/741 skipped​: unknown reason
op/taint............ok, 6/149 skipped​: various reasons
pragma/strict.......ok 65/77PROG​:
use strict 'vars' ;
require "./abc";
EXPECTED​:

GOT​:
Use of EQ is deprecated at ./abc line 2.
pragma/strict.......NOK 66PROG​:
require "./abc";
$joe = 1 ;
EXPECTED​:

GOT​:
Can't locate ./abc at - line 1.
pragma/strict.......ok 77/77FAILED tests 66-67
  Failed 2/77 tests, 97.40% okay
pragma/warning......ok 69/291PROG​: -W

# lint​: check compile time $^W is zapped
BEGIN { $^W = 0 ;}
$a = $b = 1 ;
$a = 1 if $a EQ $b ;
close STDIN ; print STDIN "abc" ;
EXPECTED​:
Use of EQ is deprecated at - line 5.
print on closed filehandle main​::STDIN at - line 6.
GOT​:
Use of EQ is deprecated at - line 5.
pragma/warning......NOK 70PROG​: -W

# lint​: check runtime $^W is zapped
$^W = 0 ;
close STDIN ; print STDIN "abc" ;
EXPECTED​:
print on closed filehandle main​::STDIN at - line 4.
GOT​:

pragma/warning......NOK 71PROG​: -W

# lint​: check runtime $^W is zapped
{
  $^W = 0 ;
  close STDIN ; print STDIN "abc" ;
}
EXPECTED​:
print on closed filehandle main​::STDIN at - line 5.
GOT​:

pragma/warning......NOK 72PROG​: -W

# lint​: check "no warning" is zapped
no warning ;
$a = $b = 1 ;
$a = 1 if $a EQ $b ;
close STDIN ; print STDIN "abc" ;
EXPECTED​:
Use of EQ is deprecated at - line 5.
print on closed filehandle main​::STDIN at - line 6.
GOT​:
Use of EQ is deprecated at - line 5.
pragma/warning......NOK 73PROG​: -W

# lint​: check "no warning" is zapped
{
  no warning ;
  close STDIN ; print STDIN "abc" ;
}
EXPECTED​:
print on closed filehandle main​::STDIN at - line 5.
GOT​:

pragma/warning......NOK 74PROG​: -Ww

# lint​: check combination of -w and -W
{
  $^W = 0 ;
  close STDIN ; print STDIN "abc" ;
}
EXPECTED​:
print on closed filehandle main​::STDIN at - line 5.
GOT​:

pragma/warning......ok 99/291PROG​:
# doio.c
use warning 'io' ;
close STDIN ;
tell(STDIN);
$a = seek(STDIN,1,1);
$a = sysseek(STDIN,1,1);
-x STDIN ;
no warning 'io' ;
close STDIN ;
tell(STDIN);
$a = seek(STDIN,1,1);
$a = sysseek(STDIN,1,1);
-x STDIN ;
EXPECTED​:
tell() on unopened file at - line 4.
seek() on unopened file at - line 5.
sysseek() on unopened file at - line 6.
Stat on unopened file <STDIN> at - line 7.
GOT​:

pragma/warning......ok 189/291PROG​:
# pp_hot.c
use warning 'io' ;
print STDIN "anc";
print <STDOUT>;
print <STDERR>;
open(FOO, ">&STDOUT") and print <FOO>;
print getc(STDERR);
print getc(FOO);
read(FOO,$_,1);
no warning 'io' ;
print STDIN "anc";
####################################################################
# N O T E #
# This test is known to fail on Linux and *BSD systems with glibc. #
# The glibc development team is aware of the problem, and has #
# determined a fix for the next release of that library. #
####################################################################
EXPECTED​:
Filehandle main​::STDIN opened only for input at - line 3.
Filehandle main​::STDOUT opened only for output at - line 4.
Filehandle main​::STDERR opened only for output at - line 5.
Filehandle main​::FOO opened only for output at - line 6.
Filehandle main​::STDERR opened only for output at - line 7.
Filehandle main​::FOO opened only for output at - line 8.
Filehandle main​::FOO opened only for output at - line 9.
GOT​:
Filehandle main​::STDIN opened only for input at - line 3.
Filehandle main​::STDOUT opened only for output at - line 4.
Filehandle main​::STDERR opened only for output at - line 5.
Filehandle main​::FOO opened only for output at - line 6.
Filehandle main​::STDERR opened only for output at - line 7.
Filehandle main​::FOO opened only for output at - line 8.
pragma/warning......NOK 190PROG​:
# pp_hot.c
use warning 'closed' ;
close STDIN ;
print STDIN "anc";
no warning 'closed' ;
print STDIN "anc";
EXPECTED​:
print on closed filehandle main​::STDIN at - line 4.
GOT​:

pragma/warning......ok 195/291PROG​:
# pp_hot.c
use warning 'closed' ;
close STDIN ; $a = <STDIN> ;
no warning 'closed' ;
$a = <STDIN> ;
EXPECTED​:
Read on closed filehandle main​::STDIN at - line 3.
GOT​:

pragma/warning......ok 202/291PROG​:
# pp_sys.c
use warning 'closed' ;
format STDIN =

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Projects
None yet
Linked pull requests

Successfully merging a pull request may close this issue.

None yet
1 participant
You can’t perform that action at this time.