Avoid seq floating-point test failure on FreeBSD 6.1.

* tests/misc/seq (float-4): Also accept -0.0.

diff --git a/ChangeLog b/ChangeLog
index 5c4231482974b5b5bb3383958c8e71604535b176..726c6742375e6ab77acfcd5cab0646428e2cf116 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2007-10-30  Jim Meyering  <meyering@redhat.com>
+
+       Avoid seq floating-point test failure on FreeBSD 6.1.
+       * tests/misc/seq (float-4): Also accept -0.0.
+
 2007-10-29  Jim Meyering  <meyering@redhat.com>
 
        Change a "make dist" diagnostic.

diff --git a/tests/misc/seq b/tests/misc/seq
index 2d662c39cd0b0fa1849df9e138372bda87ad519c..8da4335dd2fb1b585601ff0cfa5a20bf37755523 100755 (executable)
--- a/tests/misc/seq
+++ b/tests/misc/seq
@@ -48,7 +48,9 @@ my @Tests =
    ['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-4', qw(0.1 -0.1 -0.2),      {OUT => [qw(0.1 0.0 -0.1 -0.2)]},
+    {OUT_SUBST => 's,^-0\.0$,0.0,'},
+   ],
    ['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)]}],