From 6b0f9b46aaa4198a1e8ed620a940f4f2bd304859 Mon Sep 17 00:00:00 2001
From: Ricardo Signes <rjbs@cpan.org>
Date: Sat, 5 Sep 2015 10:20:42 -0400
Subject: move Math-Big* from ./dist to ./cpan

---
 dist/Math-BigInt-FastCalc/t/leak.t | 79 --------------------------------------
 1 file changed, 79 deletions(-)
 delete mode 100644 dist/Math-BigInt-FastCalc/t/leak.t

(limited to 'dist/Math-BigInt-FastCalc/t/leak.t')

diff --git a/dist/Math-BigInt-FastCalc/t/leak.t b/dist/Math-BigInt-FastCalc/t/leak.t
deleted file mode 100644
index 5db38e1dbd..0000000000
--- a/dist/Math-BigInt-FastCalc/t/leak.t
+++ /dev/null
@@ -1,79 +0,0 @@
-#!/usr/bin/perl -w
-
-# Test for memory leaks.
-
-# XXX TODO: This test file doesn't actually seem to work! If you remove
-# the sv_2mortal() in the XS file, it still happily passes all tests...
-
-use strict;
-use Test::More tests => 22;
-
-use Math::BigInt::FastCalc;
-
-#############################################################################
-package Math::BigInt::FastCalc::LeakCheck;
-use parent qw(Math::BigInt::FastCalc);
-
-my $destroyed = 0;
-sub DESTROY { $destroyed++; }
-
-#############################################################################
-package main;
-
-for my $method (qw(_zero _one _two _ten))
-  {
-  $destroyed = 0;
-    {
-    my $num = Math::BigInt::FastCalc::LeakCheck->$method();
-    bless $num, "Math::BigInt::FastCalc::LeakCheck";
-    }
-  is ($destroyed, 1, "$method does not leak memory");
-  }
-
-my $num = Math::BigInt::FastCalc->_zero();
-for my $method (qw(_is_zero _is_one _is_two _is_ten _num))
-  {
-  $destroyed = 0;
-    {
-    my $rc = Math::BigInt::FastCalc->$method($num);
-    bless \$rc, "Math::BigInt::FastCalc::LeakCheck";
-    }
-  is ($destroyed, 1, "$method does not leak memory");
-  }
-
-my $num_10 = Math::BigInt::FastCalc->_ten();
-my $num_2 = Math::BigInt::FastCalc->_two();
-
-my $num_long   = Math::BigInt::FastCalc->_new("1234567890");
-my $num_long_2 = Math::BigInt::FastCalc->_new("12345678900987654321");
-
-is (Math::BigInt::FastCalc->_str($num_long), "1234567890");
-is (Math::BigInt::FastCalc->_str($num_long_2), "12345678900987654321");
-
-# to hit all possible code branches
-_test_acmp($num, $num);
-_test_acmp($num_10, $num_10);
-_test_acmp($num, $num_10);
-_test_acmp($num_10, $num);
-_test_acmp($num, $num_2);
-_test_acmp($num_2, $num);
-_test_acmp($num_long, $num);
-_test_acmp($num, $num_long);
-_test_acmp($num_long, $num_long);
-_test_acmp($num_long, $num_long_2);
-_test_acmp($num_long_2, $num_long);
-
-sub _test_acmp
-  {
-  my ($n1,$n2) = @_;
-
-  $destroyed = 0;
-    {
-    my $rc = Math::BigInt::FastCalc->_acmp($n1,$n2);
-    bless \$rc, "Math::BigInt::FastCalc::LeakCheck";
-    }
-  my $n_1 = Math::BigInt::FastCalc->_str($n1);
-  my $n_2 = Math::BigInt::FastCalc->_str($n2);
-  is ($destroyed, 1, "_acmp($n_1,$n_2) does not leak memory");
-  }
-
-- 
cgit v1.2.1