develooper Front page | perl.perl5.porters | Postings from June 2012

\nok != ok? newline problem? in make test (5.16.0)

Thread Next
From:
Linda W
Date:
June 27, 2012 18:48
Subject:
\nok != ok? newline problem? in make test (5.16.0)
Message ID:
4FEBB7D0.30700@tlinx.org

I am trying to get through the perl test suite on 5.16.0 and have
7/9 fails related to dbm tests....

Failed 9 tests out of 2270, 99.60% okay.
        ../cpan/Memoize/t/errors.t
        ../cpan/Memoize/t/tie_gdbm.t
        ../cpan/Memoize/t/tie_ndbm.t
        ../ext/GDBM_File/t/gdbm.t
        ../ext/NDBM_File/t/ndbm.t
        ../ext/ODBM_File/t/odbm.t
        ../lib/AnyDBM_File.t
        op/coreamp.t
        op/dbm.t


The first these with op/dbm.t looks like it failed due to an
extra line feed before "ok"...?  Is that what that means?

Does that have any significance?

If not, I'll go back to looking for more ghosts in the machine...


thanks,
-linda




op/dbm.t .......................................................... # 
Failed test 1 - explicit require at ./test.pl line 864
#      got "Can\'t open tmp26407B because of \nok"
# expected "ok"
# PROG:
# require AnyDBM_File;
# package Foo;
# $filename = 'tmp26407B';
# sub new {
#         my $proto = shift;
#         my $class = ref($proto) || $proto;
#         my $self  = {};
#         bless($self,$class);
#         my %LT;
#         dbmopen(%LT, $filename, 0666) ||
#           die "Can't open $filename because of $!\n";
#         $self->{'LT'} = \%LT;
#         return $self;
# }
# sub DESTROY {
#         my $self = shift;
#       dbmclose(%{$self->{'LT'}});
#       1 while unlink $filename;
#       1 while unlink glob "$filename.*";
#       print "ok\n";
# }
# package main;
# $test = Foo->new(); # must be package var
# STATUS: 65280
op/dbm.t .......................................................... 1/5 
# Failed test 2 - implicit require at ./test.pl line 864
#      got "Can\'t open tmp26407B because of \nok"
# expected "ok"
# PROG:
# package Foo;
# $filename = 'tmp26407B';
# sub new {
#         my $proto = shift;
#         my $class = ref($proto) || $proto;
#         my $self  = {};
#         bless($self,$class);
#         my %LT;
#         dbmopen(%LT, $filename, 0666) ||
#           die "Can't open $filename because of $!\n";
#         $self->{'LT'} = \%LT;
#         return $self;
# }
# sub DESTROY {
#         my $self = shift;
#       dbmclose(%{$self->{'LT'}});
#       1 while unlink $filename;
#       1 while unlink glob "$filename.*";
#       print "ok\n";
# }
# package main;
# $test = Foo->new(); # must be package var
# STATUS: 65280
op/dbm.t .......................................................... 
Failed 2/5 subtests

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About