[libmath-int64-perl] 01/03: Patch the test suite to mark new failing tests as TODO for now.

[Niko Tyni]

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

ntyni pushed a commit to branch master
in repository libmath-int64-perl.

commit 381b0e9faf3c96374d1a77979e8f5113aebe9a8f
Author: Niko Tyni <ntyni at debian.org>
Date:   Sun Oct 12 20:20:27 2014 +0300

    Patch the test suite to mark new failing tests as TODO for now.
    
    Closes: #764874
---
 ...iling-tests-as-TODO-for-now.-Closes-76487.patch | 41 ++++++++++++++++++++++
 debian/patches/series                              |  1 +
 2 files changed, 42 insertions(+)

diff --git a/debian/patches/0001-Mark-new-failing-tests-as-TODO-for-now.-Closes-76487.patch b/debian/patches/0001-Mark-new-failing-tests-as-TODO-for-now.-Closes-76487.patch
new file mode 100644
index 0000000..99bd090
--- /dev/null
+++ b/debian/patches/0001-Mark-new-failing-tests-as-TODO-for-now.-Closes-76487.patch
@@ -0,0 +1,41 @@
+From 9877b68385f2b8fd1b1ea0c9f3facf21d352abd8 Mon Sep 17 00:00:00 2001
+From: Niko Tyni <ntyni at debian.org>
+Date: Sun, 12 Oct 2014 20:17:31 +0300
+Subject: [PATCH] Mark new failing tests as TODO for now. (Closes: #764874)
+
+Bug-Debian: https://bugs.debian.org/764874
+Bug: https://rt.cpan.org/Ticket/Display.html?id=99442
+
+These failures are not functionality regressions, but rather
+look like a bug in newly added test cases. Mark them as
+TODO until we have upstream comments.
+---
+ t/Math-Int64.t | 5 ++++-
+ 1 file changed, 4 insertions(+), 1 deletion(-)
+
+diff --git a/t/Math-Int64.t b/t/Math-Int64.t
+index 9647d8e..cb7df8a 100644
+--- a/t/Math-Int64.t
++++ b/t/Math-Int64.t
+@@ -158,7 +158,7 @@ my $four = int64(4);
+ is ($two  ** -1, 0, "signed pow 2**-1");
+ is ($four ** -1, 0, "signed pow 4**-1");
+ 
+-for my $j (0..63) {
++TODO: for my $j (0..63) {
+     my $one = int64(1);
+ 
+     is($two  ** $j, $one <<     $j, "signed pow 2**$j");
+@@ -171,6 +171,9 @@ for my $j (0..63) {
+ 
+     next unless $j;
+ 
++    local $TODO =
++     "floating point precision problems on some architectures, see #764874"
++      if $j == 63;
+     my $max = (((int64(2)**62)-1)*2)+1;
+     is($max >> $j, $max / ( 2**$j ), "max int64 >> $j");
+ 
+-- 
+2.1.1
+
diff --git a/debian/patches/series b/debian/patches/series
new file mode 100644
index 0000000..3217995
--- /dev/null
+++ b/debian/patches/series
@@ -0,0 +1 @@
+0001-Mark-new-failing-tests-as-TODO-for-now.-Closes-76487.patch

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