r57224 - in /trunk/libmath-random-mt-perl/debian: changelog patches/ patches/fix-longdouble-comparison.patch patches/series source/ source/format

[carnil-guest at users.alioth.debian.org]

Author: carnil-guest
Date: Sat May  1 19:19:27 2010
New Revision: 57224

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=57224
Log:
* add a patch fixing tests for double numbers evaluation.
  (Closes: #578552) -- FTBFS with perl 5.12.0-1: long doubles
* Convert to '3.0 (quilt)' package source format. 

Added:
    trunk/libmath-random-mt-perl/debian/patches/
    trunk/libmath-random-mt-perl/debian/patches/fix-longdouble-comparison.patch
    trunk/libmath-random-mt-perl/debian/patches/series
    trunk/libmath-random-mt-perl/debian/source/
    trunk/libmath-random-mt-perl/debian/source/format
Modified:
    trunk/libmath-random-mt-perl/debian/changelog

Modified: trunk/libmath-random-mt-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmath-random-mt-perl/debian/changelog?rev=57224&op=diff
==============================================================================
--- trunk/libmath-random-mt-perl/debian/changelog (original)
+++ trunk/libmath-random-mt-perl/debian/changelog Sat May  1 19:19:27 2010
@@ -1,4 +1,4 @@
-libmath-random-mt-perl (1.10-2) UNRELEASED; urgency=low
+libmath-random-mt-perl (1.10-2) unstable; urgency=low
 
   [ Salvatore Bonaccorso ]
   * debian/control: Changed: Replace versioned (build-)dependency on
@@ -8,7 +8,12 @@
   [ Ryan Niebur ]
   * Update jawnsy's email address
 
- -- Ryan Niebur <ryanryan52 at gmail.com>  Tue, 01 Sep 2009 21:19:10 -0700
+  [ Salvatore Bonaccorso ]
+  * add a patch fixing tests for double numbers evaluation.
+    (Closes: #578552) -- FTBFS with perl 5.12.0-1: long doubles
+  * Convert to '3.0 (quilt)' package source format. 
+
+ -- Salvatore Bonaccorso <salvatore.bonaccorso at gmail.com>  Sat, 01 May 2010 21:04:18 +0200
 
 libmath-random-mt-perl (1.10-1) unstable; urgency=low
 

Added: trunk/libmath-random-mt-perl/debian/patches/fix-longdouble-comparison.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmath-random-mt-perl/debian/patches/fix-longdouble-comparison.patch?rev=57224&op=file
==============================================================================
--- trunk/libmath-random-mt-perl/debian/patches/fix-longdouble-comparison.patch (added)
+++ trunk/libmath-random-mt-perl/debian/patches/fix-longdouble-comparison.patch Sat May  1 19:19:27 2010
@@ -1,0 +1,39 @@
+Description: Replace equality test between doubles with "<epsilon" test                                 
+ Thing is, doubles are not exact and errors are possible in the least
+ significant digit.
+ This patch replaces the equality tests with a test if the difference is
+ smaller than a very small number
+Origin: vendor
+Bug: https://rt.cpan.org/Public/Bug/Display.html?id=57110
+Bug-Debian: http://bugs.debian.org/578552
+Author: Salvatore Bonaccorso <salvatore.bonaccorso at gmail.com>
+Last-Update: 2010-05-01
+
+--- a/t/1.t
++++ b/t/1.t
+@@ -10,5 +10,5 @@
+ use Math::Random::MT;
+ ok($loaded = 1);
+ ok(my $gen = Math::Random::MT->new(5489));
+-ok(0.814723691903055, $gen->rand());
+-ok(0.135477004107088, $gen->rand());
++ok(abs($gen->rand() - 0.814723691903055) < 1e-14);
++ok(abs($gen->rand() - 0.135477004107088) < 1e-14);
+--- a/t/4.t
++++ b/t/4.t
+@@ -13,5 +13,5 @@
+ use Math::Random::MT qw(srand rand);
+ ok($loaded = 1);
+ srand(5489);
+-ok(0.814723691903055, rand());
+-ok(0.135477004107088, rand());
++ok(abs( 0.814723691903055 - rand()) < 1e-14);
++ok(abs( 0.135477004107088 - rand()) < 1e-14);
+--- a/t/5.t
++++ b/t/5.t
+@@ -14,4 +14,4 @@
+ my $gen;
+ ok($loaded = 1);
+ ok( $gen = Math::Random::MT->new(1, 2, 3, 4) );
+-ok( $gen->rand(1), 0.67886575916782 );
++ok(abs($gen->rand(1) - 0.67886575916782) < 1e-14);

Added: trunk/libmath-random-mt-perl/debian/patches/series
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmath-random-mt-perl/debian/patches/series?rev=57224&op=file
==============================================================================
--- trunk/libmath-random-mt-perl/debian/patches/series (added)
+++ trunk/libmath-random-mt-perl/debian/patches/series Sat May  1 19:19:27 2010
@@ -1,0 +1,1 @@
+fix-longdouble-comparison.patch

Added: trunk/libmath-random-mt-perl/debian/source/format
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmath-random-mt-perl/debian/source/format?rev=57224&op=file
==============================================================================
--- trunk/libmath-random-mt-perl/debian/source/format (added)
+++ trunk/libmath-random-mt-perl/debian/source/format Sat May  1 19:19:27 2010
@@ -1,0 +1,1 @@
+3.0 (quilt)