develooper Front page | perl.perl5.porters | Postings from July 2018

[perl #133377] lib/File/Copy.t fails mtime test in perl-5.28 builtwith quadmath

Thread Previous
From:
James E Keenan
Date:
July 15, 2018 21:15
Subject:
[perl #133377] lib/File/Copy.t fails mtime test in perl-5.28 builtwith quadmath
Message ID:
rt-4.0.24-5244-1531689329-807.133377-75-0@perl.org
# New Ticket Created by  James E Keenan 
# Please include the string:  [perl #133377]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=133377 >


When perl is compiled with -Dusequadmath, we are prone to an error in 
lib/File/Copy.t -- though the error may be more one of rounding than 
anything else.  This error appears to have emerged between 5.26 and 5.28.

#####
$ git show | head -1
commit d94e901a397f05e1d0030c5cfd535ef97a6808b6

$ ./perl -Ilib -V | grep config_args
     config_args='-des -Dusedevel -Dusequadmath'

$ cd t;./perl harness -v ../lib/File/Copy.t; cd -
#   Failed test 'mtime preserved by copy() while testing cross-partition'
#   at ../lib/File/Copy.t line 128.
#          got: '1000000000.123449998'
#     expected: '1000000000.123449999'
# Looks like you failed 1 test of 466.
../lib/File/Copy.t ..
# Testing Time::HiRes::utime support
1..466
ok 1 - 'copy()' is a usage error
ok 2 - 'copy('arg')' is a usage error
ok 3 - 'copy('arg', 'arg', 'arg', 'arg')' is a usage error
...
ok 52 - contents preserved
not ok 53 - mtime preserved by copy() while testing cross-partition
ok 54 - copy(fn, dir): same contents
...
Dubious, test returned 1 (wstat 256, 0x100)
Failed 1/466 subtests

Test Summary Report
-------------------
../lib/File/Copy.t (Wstat: 256 Tests: 466 Failed: 1)
   Failed test:  53
   Non-zero exit status: 1
Files=1, Tests=466,  0 wallclock secs ( 0.04 usr  0.00 sys +  0.13 cusr 
0.02 csys =  0.19 CPU)
Result: FAIL
#####

Per suggestion from khw on #p5p, I created a branch in which I reverted 
the most recent commit to blead (that above), reconfigured, rebuilt and 
re-tested -- with the same result.

I next checked out tag v5.26.0 and re-configured with '-Dusequadmath'. 
But here lib/File/Copy.t PASSed.

I next checked out tag v5.28.0 and re-configured with '-Dusequadmath'. 
Here the FAIL in lib/File/Copy.t was manifest:

#####
/home/jkeenan/gitwork/perl2/lib/File/Copy.t ..
# Testing Time::HiRes::utime support
1..466
ok 1 - 'copy()' is a usage error
ok 2 - 'copy('arg')' is a usage error
ok 3 - 'copy('arg', 'arg', 'arg', 'arg')' is a usage error
...
ok 52 - contents preserved
not ok 53 - mtime preserved by copy() while testing cross-partition
#   Failed test 'mtime preserved by copy() while testing cross-partition'
#   at /home/jkeenan/gitwork/perl2/lib/File/Copy.t line 128.
#          got: '1000000000.123449998'
#     expected: '1000000000.123449999'
ok 54 - copy(fn, dir): same contents
...
ok 466 - copy with buffer above normal size
# Looks like you failed 1 test of 466.
Dubious, test returned 1 (wstat 256, 0x100)
Failed 1/466 subtests

Test Summary Report
-------------------
/home/jkeenan/gitwork/perl2/lib/File/Copy.t (Wstat: 256 Tests: 466 
Failed: 1)
   Failed test:  53
   Non-zero exit status: 1
Files=1, Tests=466,  1 wallclock secs ( 0.07 usr  0.00 sys +  0.17 cusr 
0.02 csys =  0.26 CPU)
Result: FAIL
#####

Thank you very much.
Jim Keenan

Thread Previous


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