1 files changed, 15 insertions, 0 deletions
diff --git a/tests/misc/seq b/tests/misc/seq
index f68d74cf5..8e76f42da 100755
--- a/tests/misc/seq
+++ b/tests/misc/seq
@@ -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.