Add test cases for seq off-by-one problem.

diff --git a/ChangeLog b/ChangeLog
index 257abd2d7a7a4d01d7fa19e5e3f0a1b36e0b6847..d2cfd361b5785d4845131c1a0fd532cbaa9be099 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2007-06-22  Pádraig Brady  <P@draigBrady.com>  (trivial change)
+
+       * tests/seq/basic: Add test cases for seq off-by-one problem.
+
 2007-06-22  Jim Meyering  <jim@meyering.net>
 
        * src/stat.c (long_options): Add a FIXME comment to help ensure

diff --git a/tests/seq/basic b/tests/seq/basic
index 70706526879e0372f7cfa938d11abf2132e9420a..a710e19d34c50f8e57b5cd2ab2ab29a223925174 100755 (executable)
--- a/tests/seq/basic
+++ b/tests/seq/basic
@@ -2,7 +2,7 @@
 # -*- perl -*-
 # Test "seq".
 
-# Copyright (C) 1999, 2000, 2003, 2005, 2006 Free Software Foundation, Inc.
+# Copyright (C) 1999, 2000, 2003, 2005-2007 Free Software Foundation, Inc.
 
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -49,6 +49,13 @@ my @Tests =
    ['neg-3',   qw(1 -1 0),     {OUT => [qw(1 0)]}],
    ['neg-4',   qw(1 -1 -1),    {OUT => [qw(1 0 -1)]}],
 
+   ['float-1', qw(0.8 0.1 0.9),        {OUT => [qw(0.8 0.9)]}],
+   ['float-2', qw(0.1 0.99 1.99),      {OUT => [qw(0.10 1.09)]}],
+   ['float-3', qw(10.8 0.1 10.95),     {OUT => [qw(10.8 10.9)]}],
+   ['float-4', qw(0.1 -0.1 -0.2),      {OUT => [qw(0.1 0.0 -0.1 -0.2)]}],
+   ['float-5', qw(0.8 1e-1 0.9),       {OUT => [qw(0.8 0.9)]}],
+   ['float-6', qw(0.8 0.1 0.90000000000000000000),     {OUT => [qw(0.8 0.9)]}],
+
    ['eq-wid-1',        qw(-w 1 -1 -1), {OUT => [qw(01 00 -1)]}],
 
    # Prior to 2.0g, this test would fail on e.g., HPUX systems