[libmath-quaternion-perl] 01/03: Add patch from CPAN RT that at least fixes part of the random test failures.

[gregor herrmann]

This is an automated email from the git hooks/post-receive script.

gregoa pushed a commit to branch master
in repository libmath-quaternion-perl.

commit 30725bffea976117fa5cb711290260abb3f56563
Author: gregor herrmann <gregoa at debian.org>
Date:   Thu Jan 26 20:39:30 2017 +0100

    Add patch from CPAN RT that at least fixes part of the random test failures.
    
    (Addresses: #839992)
---
 debian/patches/series                     |  1 +
 debian/patches/testsuite-randomness.patch | 21 +++++++++++++++++++++
 2 files changed, 22 insertions(+)

diff --git a/debian/patches/series b/debian/patches/series
new file mode 100644
index 0000000..5e86bfc
--- /dev/null
+++ b/debian/patches/series
@@ -0,0 +1 @@
+testsuite-randomness.patch
diff --git a/debian/patches/testsuite-randomness.patch b/debian/patches/testsuite-randomness.patch
new file mode 100644
index 0000000..e68e8aa
--- /dev/null
+++ b/debian/patches/testsuite-randomness.patch
@@ -0,0 +1,21 @@
+Description: fix random test failures
+Origin: CPAN RT, #93159
+Bug: https://rt.cpan.org/Public/Bug/Display.html?id=93159
+Bug-Debian: https://bugs.debian.org/839992
+Author: Dima Kogan <dima at secretsauce.net>
+Reviewed-by: gregor herrmann <gregoa at debian.org>
+Last-Update: 2017-01-26
+
+--- a/t/001_basic.t
++++ b/t/001_basic.t
+@@ -238,8 +238,8 @@
+ 	"The inverse of a unit quaternion is its conjugate");
+ 
+ my $exponent = int rand 100;
+-my $q1manual = $q1;
+-for (1..($exponent-1))  { $q1manual = Math::Quaternion::multiply($q1,$q1manual); }
++my $q1manual = [1,0,0,0];
++for (1..$exponent)  { $q1manual = Math::Quaternion::multiply($q1,$q1manual); }
+ my $q1expon  = Math::Quaternion::power($q1,$exponent);
+ 
+ ok( quatequal_fuzz($q1manual,$q1expon),

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmath-quaternion-perl.git