From 01616c9404b1c66bb395a0438ce28b9e2cb559b7 Mon Sep 17 00:00:00 2001 From: Pádraig Brady Date: Fri, 22 Jun 2007 20:39:56 +0200 Subject: Add test cases for seq off-by-one problem. --- ChangeLog | 4 ++++ tests/seq/basic | 9 ++++++++- 2 files changed, 12 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 257abd2d7..d2cfd361b 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2007-06-22 Pádraig Brady (trivial change) + + * tests/seq/basic: Add test cases for seq off-by-one problem. + 2007-06-22 Jim Meyering * 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 -- cgit v1.2.3-54-g00ecf