From 3d45f69fa37db9722814f5a499e4c215415c4107 Mon Sep 17 00:00:00 2001
From: Jitka Plesnikova <jples...@redhat.com>
Date: Fri, 5 Aug 2016 14:35:00 +0200
Subject: Remove Perl version 5.3.7 from tests (CPAN RT#116517)
---
...-0.76-RT116517-Remove-5.003_07-from-tests.patch | 148 +++++++++++++++++++++
perlbrew.spec | 9 +-
2 files changed, 156 insertions(+), 1 deletion(-)
create mode 100644 App-perlbrew-0.76-RT116517-Remove-5.003_07-from-tests.patch
diff --git a/App-perlbrew-0.76-RT116517-Remove-5.003_07-from-tests.patch
b/App-perlbrew-0.76-RT116517-Remove-5.003_07-from-tests.patch
new file mode 100644
index 0000000..2b66f41
--- /dev/null
+++ b/App-perlbrew-0.76-RT116517-Remove-5.003_07-from-tests.patch
@@ -0,0 +1,148 @@
+diff -up App-perlbrew-0.76/t/03.test_get_available_versions.t.orig
App-perlbrew-0.76/t/03.test_get_available_versions.t
+--- App-perlbrew-0.76/t/03.test_get_available_versions.t.orig 2016-08-05
12:26:55.762124880 +0200
++++ App-perlbrew-0.76/t/03.test_get_available_versions.t 2016-08-05
12:55:01.293804499 +0200
+@@ -17,15 +17,15 @@ use App::perlbrew;
+ }
+ }
+
+-plan tests => 9;
++plan tests => 8;
+
+ my $app = App::perlbrew->new();
+
+-is scalar $app->available_perls(), 8, "Correct number of releases found";
++is scalar $app->available_perls(), 7, "Correct number of releases found";
+
+ my @known_perl_versions = (
+ 'perl-5.13.11', 'perl-5.12.3', 'perl-5.10.1', 'perl-5.8.9',
+- 'perl-5.6.2', 'perl5.005_04', 'perl5.004_05', 'perl5.003_07'
++ 'perl-5.6.2', 'perl5.005_04', 'perl5.004_05'
+ );
+
+ for my $perl_version ( $app->available_perls() ) {
+@@ -198,14 +198,6 @@ __DATA__
+ </tr>
+
+
+- <tr >
+- <td>5.3</td>
+- <td>5.3.7
+- <td>Maint</td>
+- <td>1996-10-10</td>
+- <td><a
href="http://www.cpan.org/src/perl5.003_07.tar.gz";>perl5.003_07.tar.gz</a></td>
+- </tr>
+-
+ </table>
+
+
+@@ -311,12 +303,6 @@ __DATA__
+ </tr>
+
+
+- <tr>
+- <td>5.3</td>
+- <td>5.3.7
+- <td>1996-10-10</td>
+- </tr>
+-
+ </table>
+
+
+diff -up App-perlbrew-0.76/t/04.find_available_perls.t.orig
App-perlbrew-0.76/t/04.find_available_perls.t
+--- App-perlbrew-0.76/t/04.find_available_perls.t.orig 2016-08-05
12:27:06.139072884 +0200
++++ App-perlbrew-0.76/t/04.find_available_perls.t 2016-08-05
13:47:25.486221305 +0200
+@@ -5,7 +5,7 @@ use Test::More;
+ use Data::Dumper;
+ use App::perlbrew;
+
+-plan tests => 52;
++plan tests => 47;
+
+ my $html = <<HERE;
+ <!-- LATEST_RELEASES -->
+@@ -18,7 +18,6 @@ my $html = <<HERE;
+ <tr><td>5.6</td><td>5.6.2</td><td><a
href="perl-5.6.2.tar.gz">perl-5.6.2.tar.gz</a></td><td>maint</td><td>7 years, 4
months</td></tr>
+ <tr><td>5.5</td><td>5.5.4</td><td><a
href="perl5.005_04.tar.gz">perl5.005_04.tar.gz</a></td><td>maint</td><td>7
years, 1 month</td></tr>
+ <tr><td>5.4</td><td>5.4.5</td><td><a
href="perl5.004_05.tar.gz">perl5.004_05.tar.gz</a></td><td>maint</td><td>11
years, 11 months</td></tr>
+-<tr><td>5.3</td><td>5.3.7</td><td><a
href="perl5.003_07.tar.gz">perl5.003_07.tar.gz</a></td><td>maint</td><td>14
years, 5 months</td></tr>
+ </table>
+
+ <p><small>(A year is 365.2425 days and a month is 30.436875 days.)</small></p>
+@@ -75,33 +74,26 @@ my @expected_releases = (
+ 'branch' => '5.4'
+ },
+ {
+- 'file' => 'perl5.003_07.tar.gz',
++ 'file' => 'perl5.004_05.tar.gz',
+ 'type' => 'maint',
+- 'release' => '5.3.7',
+- 'age' => '14 years, 5 months',
+- 'branch' => '5.3'
++ 'release' => '5.4.5',
++ 'age' => '11 years, 11 months',
++ 'branch' => '5.4'
+ },
+ {
+- 'file' => 'perl5.003_07.tar.gz',
++ 'file' => 'perl5.004_05.tar.gz',
+ 'type' => 'maint',
+- 'release' => '5.3.7',
+- 'age' => '14 years, 5 months',
+- 'branch' => '5.3'
++ 'release' => '5.4.5',
++ 'age' => '11 years, 11 months',
++ 'branch' => '5.4'
+ },
+ {
+- 'file' => 'perl5.003_07.tar.gz',
++ 'file' => 'perl5.004_05.tar.gz',
+ 'type' => 'maint',
+- 'release' => '5.3.7',
+- 'age' => '14 years, 5 months',
+- 'branch' => '5.3'
++ 'release' => '5.4.5',
++ 'age' => '11 years, 11 months',
++ 'branch' => '5.4'
+ },
+- {
+- 'file' => 'perl5.003_07.tar.gz',
+- 'type' => 'maint',
+- 'release' => '5.3.7',
+- 'age' => '14 years, 5 months',
+- 'branch' => '5.3'
+- }
+ );
+ my $app = App::perlbrew->new();
+
+@@ -114,7 +106,7 @@ m|<tr><td>(.*)</td><td>(.*)</td><td><a h
+ if ( $1 && $2 && $3 && $4 && $5 );
+ }
+
+-is @releases => 11, 'found 11 releases';
++is @releases => 10, 'found 10 releases';
+ is $releases[0]->{branch} => 5.13, '5.13 branch';
+
+ #is $releases[0]->{release} => 5.13, '5.13 branch';
+diff -up App-perlbrew-0.76/t/13.perl_release.t.orig
App-perlbrew-0.76/t/13.perl_release.t
+--- App-perlbrew-0.76/t/13.perl_release.t.orig 2016-08-05 12:26:43.082188416
+0200
++++ App-perlbrew-0.76/t/13.perl_release.t 2016-08-05 12:27:46.539870446
+0200
+@@ -16,7 +16,7 @@ describe "App::perlbrew#perl_release met
+ it "returns the perl dist tarball file name, and its download url" =>
sub {
+ my $app = App::perlbrew->new;
+
+- for my $version (qw(5.14.2 5.10.1 5.10.0 5.003_07 5.004_05)) {
++ for my $version (qw(5.14.2 5.10.1 5.10.0 5.004_05)) {
+ my ($ball, $url) = $app->perl_release($version);
+ like $ball, qr/perl-?${version}.tar.(bz2|gz)/;
+ like $url, qr/${ball}$/;
+diff -up App-perlbrew-0.76/t/14.perl_version_parsing.t.orig
App-perlbrew-0.76/t/14.perl_version_parsing.t
+--- App-perlbrew-0.76/t/14.perl_version_parsing.t.orig 2016-08-05
12:26:31.298247462 +0200
++++ App-perlbrew-0.76/t/14.perl_version_parsing.t 2016-08-05
12:27:28.524960714 +0200
+@@ -12,7 +12,6 @@ $ENV{PERLBREW_ROOT} = $App::perlbrew::PE
+ #
+
+ my @versions = qw(
+- 5.003_07
+ 5.004
+ 5.004_01
+ 5.004_02
diff --git a/perlbrew.spec b/perlbrew.spec
index 4e007f5..4a656e7 100644
--- a/perlbrew.spec
+++ b/perlbrew.spec
@@ -1,11 +1,14 @@
Name: perlbrew
Version: 0.75
-Release: 1%{?dist}
+Release: 2%{?dist}
Summary: Manage perl installations in your $HOME
License: MIT
Group: Development/Libraries
URL: http://search.cpan.org/dist/App-perlbrew/
Source0:
http://www.cpan.org/authors/id/G/GU/GUGOD/App-perlbrew-%{version}.tar.gz
+# Remove Perl version 5.3.7 from tests, because 5.003_07 tarball has gone
+# from CPAN (CPAN RT#116517)
+Patch0: App-perlbrew-0.76-RT116517-Remove-5.003_07-from-tests.patch
BuildArch: noarch
BuildRequires: coreutils
BuildRequires: findutils
@@ -75,6 +78,7 @@ almost like an isolated perl environments.
%prep
%setup -q -n App-perlbrew-%{version}
+%patch0 -p1
rm -r inc
sed -i -e '/^inc\// d' MANIFEST
find -type f -exec chmod -x {} +
@@ -104,6 +108,9 @@ make test
%{_mandir}/man3/*
%changelog
+* Fri Aug 05 2016 Jitka Plesnikova <jples...@redhat.com> - 0.75-2
+- Remove Perl version 5.3.7 from tests (CPAN RT#116517)
+
* Thu Mar 17 2016 Jitka Plesnikova <jples...@redhat.com> - 0.75-1
- 0.75 bump
--
cgit v0.12
http://pkgs.fedoraproject.org/cgit/perlbrew.git/commit/?h=f24&id=3d45f69fa37db9722814f5a499e4c215415c4107
--
Fedora Extras Perl SIG
http://www.fedoraproject.org/wiki/Extras/SIGs/Perl
perl-devel mailing list
perl-devel@lists.fedoraproject.org
https://lists.fedoraproject.org/admin/lists/perl-devel@lists.fedoraproject.org
