CC-tea/coreutils
1
0
Fork 0
mirror of git://git.sv.gnu.org/coreutils.git synced 2026-04-21 03:12:48 +02:00
Code Issues Projects Releases Wiki Activity

seq -0.1 0.1 2: print final number when locale's decimal point is ","

Browse Source 
* src/seq.c (print_numbers): Use strtold, not c_strtold to convert
from just-formatted-using-asprintf string back to double, since
asprintf may have used something other than "." as the decimal point.
Reported by lsof@nodata.co.uk as <http://bugzilla.redhat.com/463556>.
Thanks to Ondřej Vašík for discovering that the bug was locale-related.

    $ LC_ALL=cs_CZ.UTF-8 seq -0.1 0.1 2|grep 2.0
    [Exit 1]
    $ seq -0.1 0.1 2|grep 2.0
    2.0

* tests/check.mk (TESTS_ENVIRONMENT): Add LOCALE_FR_UTF8, for...
* tests/misc/seq [locale-dec-pt]: New test for the above.
* NEWS (bug fix): Mention it.
This commit is contained in:
Jim Meyering
2008-09-25 20:01:24 +02:00
parent 2a4dcb627e
commit e13188e7ef
4 changed files with 20 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
tests/misc/seq
View File

@@ -26,6 +26,10 @@ use strict;
my $prog = 'seq';
my $try_help = "Try `$prog --help' for more information.\n";
my $locale = $ENV{LOCALE_FR_UTF8};
! defined $locale || $locale eq 'none'
and $locale = 'C';
my @Tests =
(
['onearg-1', qw(10), {OUT => [(1..10)]}],
@@ -88,6 +92,17 @@ my @Tests =
{ERR => "seq: no % directive in format string `'\n" . $try_help }],
['fmt-e', qw(-f %g%g 1), {EXIT => 1},
{ERR => "seq: too many % directives in format string `%g%g'\n"}],
# With coreutils-6.12 and earlier, with a UTF8 numeric locale that uses
# something other than "." as the decimal point, this use of seq would
# fail to print the "2,0" endpoint.
['locale-dec-pt', qw(-0.1 0.1 2),
{OUT => [qw(-0.1 0.0 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1.0
1.1 1.2 1.3 1.4 1.5 1.6 1.7 1.8 1.9 2.0)]},
{ENV => "LC_ALL=$locale"},
{OUT_SUBST => 's/,/./g'},
],
);
# Append a newline to each entry in the OUT array.