summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ChangeLog4
-rwxr-xr-xtests/seq/basic9
2 files changed, 12 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index 257abd2d7..d2cfd361b 100644
--- 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 707065268..a710e19d3 100755
--- 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