r57687 - in /trunk/libmath-random-mt-perl: Changes META.yml MT.pm debian/changelog t/1.t t/4.t t/5.t

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

Author: carnil-guest
Date: Sat May  8 20:02:18 2010
New Revision: 57687

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=57687
Log:
New upstream release

Modified:
    trunk/libmath-random-mt-perl/Changes
    trunk/libmath-random-mt-perl/META.yml
    trunk/libmath-random-mt-perl/MT.pm
    trunk/libmath-random-mt-perl/debian/changelog
    trunk/libmath-random-mt-perl/t/1.t
    trunk/libmath-random-mt-perl/t/4.t
    trunk/libmath-random-mt-perl/t/5.t

Modified: trunk/libmath-random-mt-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmath-random-mt-perl/Changes?rev=57687&op=diff
==============================================================================
--- trunk/libmath-random-mt-perl/Changes (original)
+++ trunk/libmath-random-mt-perl/Changes Sat May  8 20:02:18 2010
@@ -1,3 +1,10 @@
+1.11    2010-05-08      Abhijit Menon-Sen <ams at toroid.org>
+
+    * Fix tests broken by overly optimistic floating point comparison
+      and long doubles in new releases of Perl. (Thanks to Salvatore
+      Bonaccorso for the report and fix.)
+
+
 1.10    2009-08-06      Abhijit Menon-Sen <ams at toroid.org>
 
     * Compile fix for MSVC, which has no stdint.h.

Modified: trunk/libmath-random-mt-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmath-random-mt-perl/META.yml?rev=57687&op=diff
==============================================================================
--- trunk/libmath-random-mt-perl/META.yml (original)
+++ trunk/libmath-random-mt-perl/META.yml Sat May  8 20:02:18 2010
@@ -1,12 +1,20 @@
 --- #YAML:1.0
-name:                Math-Random-MT
-version:             1.10
-abstract:            The Mersenne Twister PRNG
-license:             ~
-author:              ~
-generated_by:        ExtUtils::MakeMaker version 6.44
-distribution_type:   module
-requires:     
+name:               Math-Random-MT
+version:            1.11
+abstract:           The Mersenne Twister PRNG
+author:  []
+license:            unknown
+distribution_type:  module
+configure_requires:
+    ExtUtils::MakeMaker:  0
+build_requires:
+    ExtUtils::MakeMaker:  0
+requires:  {}
+no_index:
+    directory:
+        - t
+        - inc
+generated_by:       ExtUtils::MakeMaker version 6.56
 meta-spec:
-    url:     http://module-build.sourceforge.net/META-spec-v1.3.html
-    version: 1.3
+    url:      http://module-build.sourceforge.net/META-spec-v1.4.html
+    version:  1.4

Modified: trunk/libmath-random-mt-perl/MT.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmath-random-mt-perl/MT.pm?rev=57687&op=diff
==============================================================================
--- trunk/libmath-random-mt-perl/MT.pm (original)
+++ trunk/libmath-random-mt-perl/MT.pm Sat May  8 20:02:18 2010
@@ -7,7 +7,7 @@
 
 my $gen = undef;
 @ISA = qw( DynaLoader );
-$VERSION = '1.10';
+$VERSION = '1.11';
 
 bootstrap Math::Random::MT $VERSION;
 

Modified: trunk/libmath-random-mt-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmath-random-mt-perl/debian/changelog?rev=57687&op=diff
==============================================================================
--- trunk/libmath-random-mt-perl/debian/changelog (original)
+++ trunk/libmath-random-mt-perl/debian/changelog Sat May  8 20:02:18 2010
@@ -1,3 +1,9 @@
+libmath-random-mt-perl (1.11-1) UNRELEASED; urgency=low
+
+  * New upstream release
+
+ -- Salvatore Bonaccorso <salvatore.bonaccorso at gmail.com>  Sat, 08 May 2010 22:01:12 +0200
+
 libmath-random-mt-perl (1.10-2) unstable; urgency=low
 
   [ Ryan Niebur ]

Modified: trunk/libmath-random-mt-perl/t/1.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmath-random-mt-perl/t/1.t?rev=57687&op=diff
==============================================================================
--- trunk/libmath-random-mt-perl/t/1.t (original)
+++ trunk/libmath-random-mt-perl/t/1.t Sat May  8 20:02:18 2010
@@ -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);

Modified: trunk/libmath-random-mt-perl/t/4.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmath-random-mt-perl/t/4.t?rev=57687&op=diff
==============================================================================
--- trunk/libmath-random-mt-perl/t/4.t (original)
+++ trunk/libmath-random-mt-perl/t/4.t Sat May  8 20:02:18 2010
@@ -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);

Modified: trunk/libmath-random-mt-perl/t/5.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmath-random-mt-perl/t/5.t?rev=57687&op=diff
==============================================================================
--- trunk/libmath-random-mt-perl/t/5.t (original)
+++ trunk/libmath-random-mt-perl/t/5.t Sat May  8 20:02:18 2010
@@ -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);