diff options
| author | Peter Prymmer <PPrymmer@factset.com> | 2001-06-19 10:18:06 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-23 03:36:04 +0000 |
| commit | 12ebcc11efb030b92d1709cef31a629cdc6aa1f2 (patch) | |
| tree | fd21f386f7af29402fb6740a8815b262556d461f /t | |
| parent | 493ba88a837f5a6b31674dce8a7f80c8b594af17 (diff) | |
| download | perl-12ebcc11efb030b92d1709cef31a629cdc6aa1f2.tar.gz | |
RFC: what are applicable standards for exponent sizes?
Message-ID: <Pine.OSF.4.10.10106191712070.361736-100000@aspara.forte.com>
p4raw-id: //depot/perl@10851
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/sprintf.t | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/t/op/sprintf.t b/t/op/sprintf.t index a2dd6a5e1a..515996af53 100755 --- a/t/op/sprintf.t +++ b/t/op/sprintf.t @@ -31,6 +31,12 @@ $SIG{__WARN__} = sub { for ($i = 1; @tests; $i++) { ($template, $data, $result, $comment) = @{shift @tests}; + if ($^O eq 'os390') { + $data =~ s/([eE])96$/${1}63/; # smaller exponents + $result =~ s/([eE]\+)102$/${1}69/; # " " + $data =~ s/([eE])\-101$/${1}-56/; # larger exponents + $result =~ s/([eE])\-102$/${1}-57/; # " " + } $evalData = eval $data; $w = undef; $x = sprintf(">$template<", @@ -96,6 +102,12 @@ for ($i = 1; @tests; $i++) { >%.0f< >-0.1< >-0< >C library bug: no minus on VMS, HP-UX< >%.0f< >1.5< >2< >Standard vague: no rounding rules< >%.0f< >2.5< >2< >Standard vague: no rounding rules< +>%G< >1234567e96< >1.23457E+102< >exponent too big for OS/390< +>%G< >.1234567e-101< >1.23457E-102< >exponent too small for OS/390< +>%e< >1234567E96< >1.234567e+102< >exponent too big for OS/390< +>%e< >.1234567E-101< >1.234567e-102< >exponent too small for OS/390< +>%g< >.1234567E-101< >1.23457e-102< >exponent too small for OS/390< +>%g< >1234567E96< >1.23457e+102< >exponent too big for OS/390< =end problematic |