develooper Front page | perl.perl5.porters | Postings from October 2017

PA-RISC test fails

Thread Next
From:
H.Merijn Brand
Date:
October 15, 2017 11:52
Subject:
PA-RISC test fails
Message ID:
20171015135037.67890de0@pc09.procura.nl
Now that I rebuilt the kernel of my HP-UX 11.11 PA-RISC box with an
almost doubled data size under 64bit compiles, tests do not "randomly"
fail. Yeah!

This is left though, on both PA-RISC's I have left (11.11 and 11.23)

> ./perl TEST ../lib/warnings.t
t/../lib/warnings ... PROG:
use warnings 'uninitialized';

# aelem + const
use constant foo => \0;
$SIG{__WARN__} = sub {
 print STDERR
   $_[0] =~ /\$a\[([^]]+)]/ && $1 == foo
       ? "ok\n"
       : ("$1 != ",0+foo,"\n")
};
() = "$a[foo]";
undef $SIG{__WARN__};

# Multideref
() = "$a[140688675223280]";
EXPECTED:
ok
Use of uninitialized value $a[140688675223280] in string at - line 15.
GOT:
-9223372032558164984 != 9223372041151386632
Use of uninitialized value $a[140688675223280] in string at - line 15.
# Failed test 364 - 64-bit array subscripts at lib/warnings/9uninit
line 2175 FAILED at test 364
Failed 1 test out of 1, 0.00% okay.
        ../lib/warnings.t
### Since not all tests were successful, you may want to run some of
### them individually and examine any diagnostic messages they produce.
### See the INSTALL document's section on "make test".
### You may have to set your dynamic library search path,
### LD_LIBRARY_PATH, to point to the build directory:
###   setenv LD_LIBRARY_PATH `pwd`; cd t; ./perl harness
###   LD_LIBRARY_PATH=`pwd`; export LD_LIBRARY_PATH; cd t; ./perl
harness ###   export LD_LIBRARY_PATH=`pwd`; cd t; ./perl harness
### for csh-style shells, like tcsh; or for traditional/modern
### Bourne-style shells, like bash, ksh, and zsh, respectively.
Elapsed: 84 sec
u=0.20  s=0.04  cu=52.25  cs=26.31  scripts=1  tests=906


The thing is that these two numbers are hexadecimal equal

Calc > -9223372032558164984
01000000000040006212010 / -9223372032558164984 / 0x8000000100191408
Calc > 9223372041151386632
01000000000040006212010 / -9223372032558164984 / 0x8000000100191408
Calc > 0x8000000100191408
01000000000040006212010 / -9223372032558164984 / 0x8000000100191408
Calc > 140688675223280
03777224240533360 / 140688675223280 / 0x7FF4A282B6F0

The test is in /t/lib/warnings/9uninit at line 2175:

########
# NAME 64-bit array subscripts
# SKIP ? length(pack "p", "") < 8

Is this solvable?

-- 
H.Merijn Brand  http://tux.nl   Perl Monger  http://amsterdam.pm.org/
using perl5.00307 .. 5.27   porting perl5 on HP-UX, AIX, and openSUSE
http://mirrors.develooper.com/hpux/        http://www.test-smoke.org/
http://qa.perl.org   http://www.goldmark.org/jeff/stupid-disclaimers/

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