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

[perl #129954] dist/Carp/t/arg_string.t: Test fails in blead

Thread Next
From:
James E Keenan via RT
Date:
October 25, 2016 01:01
Subject:
[perl #129954] dist/Carp/t/arg_string.t: Test fails in blead
Message ID:
rt-4.0.24-14593-1477357281-719.129954-15-0@perl.org
On Mon Oct 24 06:13:24 2016, dcollinsn@gmail.com wrote:
> Hello!
> 
> Starting somewhere between v5.25.6-35-ge7619cc and v5.25.6-47-g69c5d0e, I
> began seeing the following test failures on linux with -Dusequadmath (
> http://perl.develop-help.com/raw/?id=196087
> http://perl.develop-help.com/raw/?id=196097) and on Windows with all
> configurations (http://perl5.test-smoke.org/report/50770)
> 
> The Windows issue is the following test:
> 
>     like lm(-3.5e30), qr/main::lm\(-3\.5[eE]\+?30\)/;
> 
> The test expects numbers to be printed like "-3.5e30" or "-3.5e+30". Both
> reasonable choices. Windows and quadruple precision floats are here to make
> your life more interesting.
> 
> On Windows, I get "030" for the exponent, instead of "30". I can include a
> log of this when I get home, I just can't see it from here.
> 
> The Linux issue is the same test:
> 
>     like lm(-3.5e30), qr/main::lm\(-3\.5[eE]\+?30\)/;
> 
> Under Quadmath, we get the following output:
> 
>     main::lm(-3500000000000000000000000000000)
> 
> Not sure if the behavior is wrong or if the test is, but I remember Jarkko
> fighting to get the same sort of thing - printf number formats - to test
> cleanly while he was working on the hexfp stuff a few months ago.
> 
> I'll bisect the Linux issue.

Confirmation of test failure:

#####
 $ cd t; ./perl harness -v ../dist/Carp/t/arg_string.t; cd -

ok 1
ok 2
ok 3
ok 4

not ok 5
#   Failed test at t/arg_string.t line 25.
#                   'x at t/arg_string.t line 9.
# 	main::lm(-3500000000000000000000000000000) called at t/arg_string.t line 25
# '
#     doesn't match '(?^:main::lm\(-3\.5[eE]\+?30\))'
#####

#####
$ ./perl -Ilib -V
Summary of my perl5 (revision 5 version 25 subversion 7) configuration:
  Commit id: a1b60c8dae6ad00c164e20cf9151bae68e85ab2d
  Platform:
    osname=linux
    osvers=4.4.0-45-generic
    archname=x86_64-linux-quadmath
    uname='linux zareason 4.4.0-45-generic #66-ubuntu smp wed oct 19 14:12:37 utc 2016 x86_64 x86_64 x86_64 gnulinux '
    config_args='-des -Dusedevel -DDEBUGGING -Dusequadmath'
    hint=recommended
    useposix=true
    d_sigaction=define
    useithreads=undef
    usemultiplicity=undef
    use64bitint=define
    use64bitall=define
    uselongdouble=undef
    usemymalloc=n
    bincompat5005=undef
  Compiler:
    cc='cc'
    ccflags ='-fwrapv -DDEBUGGING -fno-strict-aliasing -pipe -fstack-protector-strong -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64'
    optimize='-O2 -g'
    cppflags='-fwrapv -DDEBUGGING -fno-strict-aliasing -pipe -fstack-protector-strong -I/usr/local/include'
    ccversion=''
    gccversion='5.4.0 20160609'
    gccosandvers=''
    intsize=4
    longsize=8
    ptrsize=8
    doublesize=8
    byteorder=12345678
    doublekind=3
    d_longlong=define
    longlongsize=8
    d_longdbl=define
    longdblsize=16
    longdblkind=3
    ivtype='long'
    ivsize=8
    nvtype='__float128'
    nvsize=16
    Off_t='off_t'
    lseeksize=8
    alignbytes=16
    prototype=define
  Linker and Libraries:
    ld='cc'
    ldflags =' -fstack-protector-strong -L/usr/local/lib'
    libpth=/usr/local/lib /usr/lib/gcc/x86_64-linux-gnu/5/include-fixed /usr/include/x86_64-linux-gnu /usr/lib /lib/x86_64-linux-gnu /lib/../lib /usr/lib/x86_64-linux-gnu /usr/lib/../lib /lib /lib64 /usr/lib64
    libs=-lpthread -lnsl -ldb -ldl -lm -lcrypt -lutil -lc -lquadmath
    perllibs=-lpthread -lnsl -ldl -lm -lcrypt -lutil -lc -lquadmath
    libc=libc-2.23.so
    so=so
    useshrplib=false
    libperl=libperl.a
    gnulibc_version='2.23'
  Dynamic Linking:
    dlsrc=dl_dlopen.xs
    dlext=so
    d_dlsymun=undef
    ccdlflags='-Wl,-E'
    cccdlflags='-fPIC'
    lddlflags='-shared -O2 -g -L/usr/local/lib -fstack-protector-strong'


Characteristics of this binary (from libperl): 
  Compile-time options:
    DEBUGGING
    HAS_TIMES
    PERLIO_LAYERS
    PERL_COPY_ON_WRITE
    PERL_DONT_CREATE_GVSV
    PERL_HASH_FUNC_ONE_AT_A_TIME_HARD
    PERL_MALLOC_WRAP
    PERL_OP_PARENT
    PERL_PRESERVE_IVUV
    PERL_USE_DEVEL
    USE_64_BIT_ALL
    USE_64_BIT_INT
    USE_LARGE_FILES
    USE_LOCALE
    USE_LOCALE_COLLATE
    USE_LOCALE_CTYPE
    USE_LOCALE_NUMERIC
    USE_LOCALE_TIME
    USE_PERLIO
    USE_PERL_ATOF
    USE_QUADMATH
  Built under linux
#####
-- 
James E Keenan (jkeenan@cpan.org)

---
via perlbug:  queue: perl5 status: new
https://rt.perl.org/Ticket/Display.html?id=129954

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