.

1 files changed, 0 insertions, 58 deletions

diff --git a/tests/factor/Test.pm b/tests/factor/Test.pm
deleted file mode 100644
index ea6e8766b..000000000
--- a/tests/factor/Test.pm
+++ /dev/null
@@ -1,58 +0,0 @@
-# -*-perl-*-
-package Test;
-require 5.002;
-use strict;
-
-sub test_vector
-{
-  my @tvec =
-    (
-     # test-name options input expected-output expected-return-code
-     #
-     ['1', '9', {}, '3 3', 0],
-     ['1a', '7', {}, '7', 0],
-     ['2', '4294967291', {}, '4294967291', 0],
-     ['3', '4294967292', {}, '2 2 3 3 7 11 31 151 331', 0],
-     ['4', '4294967293', {}, '9241 464773', 0],
-
-     ['a', '4294966201', {}, '12197 352133', 0],
-     ['b', '4294966339', {}, '13187 325697', 0],
-     ['c', '4294966631', {}, '13729 312839', 0],
-     ['d', '4294966457', {}, '14891 288427', 0],
-     ['e', '4294966759', {}, '21649 198391', 0],
-     ['f', '4294966573', {}, '23071 186163', 0],
-     ['g', '4294967101', {}, '23603 181967', 0],
-     ['h', '4294966519', {}, '34583 124193', 0],
-     ['i', '4294966561', {}, '36067 119083', 0],
-     ['j', '4294966901', {}, '37747 113783', 0],
-     ['k', '4294966691', {}, '39241 109451', 0],
-     ['l', '4294966969', {}, '44201 97169', 0],
-     ['m', '4294967099', {}, '44483 96553', 0],
-     ['n', '4294966271', {}, '44617 96263', 0],
-     ['o', '4294966789', {}, '50411 85199', 0],
-     ['p', '4294966189', {}, '53197 80737', 0],
-     ['q', '4294967213', {}, '57139 75167', 0],
-     ['s', '4294967071', {}, '65521 65551', 0],
-     ['t', '4294966194', {}, '2 3 3 3 3 3 3 3 53 97 191', 0],
-     ['u', '4294966272', {}, '2 2 2 2 2 2 2 2 2 2 3 23 89 683', 0],
-     ['v', '4294966400', {}, '2 2 2 2 2 2 2 5 5 1342177', 0],
-     ['w', '4294966464', {}, '2 2 2 2 2 2 3 3 3 2485513', 0],
-     ['x', '4294966896', {}, '2 2 2 2 3 3 3 11 607 1489', 0],
-     ['y', '4294966998', {}, '2 3 7 3917 26107', 0],
-     ['z', '-1', {}, '', 1],
-     );
-
-  my @tv;
-  my $t;
-  foreach $t (@tvec)
-    {
-      my ($test_name, $arg, $in, $exp, $ret) = @$t;
-      # Append a newline to end of each expected string.
-      my $prefixed_result = ($ret == 0 ? "$arg: $exp\n" : $exp);
-      push (@tv, [$test_name, $arg, $in, $prefixed_result, $ret]);
-    }
-
-  return @tv;
-}
-
-1;