New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
PATCH: Test comp/use.t fails on Tru64 #7474
Comments
From Nikola.Milutinovic@ev.co.yuHi. I have run into a minor bug in tests. OS: Tru64 UNIX 5.1B + SP4 Failed test was 3/28 of "t/comp/use.t" suite. The error output looks Typhoon:/usr/users/root/work/perl-5.8.5/t# ./perl comp/use.t.orig not ok 3 I have traced this bug to the following: eval sprintf "use %.5f;", $]; The problem is that "$]" evaluates to "5.008005000..." and "%.5f" rounds Nix. |
From Nikola.Milutinovic@ev.co.yuperl-5.8.5_test_use.diff*** t/comp/use.t.orig Mon Aug 23 11:54:38 2004
--- t/comp/use.t Mon Aug 23 12:16:24 2004
***************
*** 22,28 ****
}
print "ok ",$i++,"\n";
! eval sprintf "use %.5f;", $];
if ($@) {
print STDERR $@,"\n";
print "not ";
--- 22,28 ----
}
print "ok ",$i++,"\n";
! eval sprintf "use %.6f;", $];
if ($@) {
print STDERR $@,"\n";
print "not ";
***************
*** 30,36 ****
print "ok ",$i++,"\n";
! eval sprintf "use %.5f;", $] - 0.000001;
if ($@) {
print STDERR $@,"\n";
print "not ";
--- 30,36 ----
print "ok ",$i++,"\n";
! eval sprintf "use %.6f;", $] - 0.000001;
if ($@) {
print STDERR $@,"\n";
print "not ";
***************
*** 37,49 ****
}
print "ok ",$i++,"\n";
! eval sprintf("use %.5f;", $] + 1);
unless ($@) {
print "not ";
}
print "ok ",$i++,"\n";
! eval sprintf "use %.5f;", $] + 0.00001;
unless ($@) {
print "not ";
}
--- 37,49 ----
}
print "ok ",$i++,"\n";
! eval sprintf("use %.6f;", $] + 1);
unless ($@) {
print "not ";
}
print "ok ",$i++,"\n";
! eval sprintf "use %.6f;", $] + 0.00001;
unless ($@) {
print "not ";
}
|
From @rgsNikola Milutinovic (via RT) wrote:
Thanks, I applied it to bleadperl as change #23235. |
The RT System itself - Status changed from 'new' to 'open' |
@rgs - Status changed from 'open' to 'resolved' |
Migrated from rt.perl.org#31295 (status was 'resolved')
Searchable as RT31295$
The text was updated successfully, but these errors were encountered: