[libmath-quaternion-perl] 01/03: Add patch from CPAN RT that at least fixes part of the random test failures.
gregor herrmann
gregoa at debian.org
Thu Jan 26 19:45:21 UTC 2017
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
More information about the Pkg-perl-cvs-commits
mailing list