diff options
| author | Pádraig Brady <P@draigBrady.com (trivial change)> | 2007-06-22 20:39:56 +0200 |
|---|---|---|
| committer | Jim Meyering <jim@meyering.net> | 2007-06-22 20:40:49 +0200 |
| commit | 01616c9404b1c66bb395a0438ce28b9e2cb559b7 (patch) | |
| tree | ee948c0ef393b964e2310806c7a0c4c2697ceafb /tests | |
| parent | 2b254368136441fb7f7856d4d1f86cd15dcb969b (diff) | |
| download | coreutils-01616c9404b1c66bb395a0438ce28b9e2cb559b7.tar.xz | |
Add test cases for seq off-by-one problem.
Diffstat (limited to 'tests')
| -rwxr-xr-x | tests/seq/basic | 9 |
1 files changed, 8 insertions, 1 deletions
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 |