| Subject: | fileno test fails silently on debian stable and testing |
An IO-All-0.30 test fails on perl 5.6.1 on debian stable and testing:
% make test
[...]
t/error1.............ok
t/file_spec..........ok
t/file_subclass......ok
t/fileno.............ok 3/7# Looks like you planned 7 tests but only ran 3.
# Looks like your test died just after 3.
t/fileno.............dubious
Test returned status 255 (wstat 65280, 0xff00)
DIED. FAILED tests 4-7
Failed 4/7 tests, 42.86% okay
[...]
% perl t/fileno
1..7
ok 1
ok 2
ok 3
# Looks like you planned 7 tests but only ran 3.
# Looks like your test died just after 3.
% perl -d t/fileno.t
[...]
1..7
main::(t/fileno.t:8): is(io('-')->mode('<')->open->fileno, 0);
DB<1> n
ok 1
main::(t/fileno.t:9): is(io('-')->mode('>')->open->fileno, 1);
DB<1>
ok 2
main::(t/fileno.t:10): is(io('=')->fileno, 2);
DB<1>
ok 3
main::(t/fileno.t:12): is(io->stdin->fileno, 0);
DB<1> s
Spiffy::CODE(0x83bdee0)(/usr/local/share/perl/5.6.1/Spiffy.pm:218):
218: my $package = caller;
DB<1>
Spiffy::CODE(0x83bdee0)(/usr/local/share/perl/5.6.1/Spiffy.pm:219):
219: my $class = $class_map->{$package}{$name}
220: or die "No class for ${package}::$name";
DB<1>
Spiffy::CODE(0x83bdee0)(/usr/local/share/perl/5.6.1/Spiffy.pm:221):
221: my $defaults = $options_map->{$package}{$name};
DB<1>
Spiffy::CODE(0x83bdee0)(/usr/local/share/perl/5.6.1/Spiffy.pm:222):
222: $class->new(@$defaults, @_);
DB<1>
IO::All::new(lib/IO/All.pm:143): sub new {my $self = shift;
DB<1> c error_check
IO::All::error_check(lib/IO/All.pm:510):
510: sub error_check {my $self = shift;
DB<2> s
IO::All::error_check(lib/IO/All.pm:511):
511: return unless $self->io_handle->can('error');
DB<3> n
IO::All::error_check(lib/IO/All.pm:512):
512: return unless $self->io_handle->error;
DB<3>
IO::All::error_check(lib/IO/All.pm:513):
513: $self->throw($!);
DB<3> x $!
0 'Invalid argument'
---
Let me know if I can provide any other info.