diff --git a/corpus/mini/authors/id/A/AN/ANDK/CPAN-Test-Dummy-Perl5-Make-Features-1.06.tar.gz b/corpus/mini/authors/id/A/AN/ANDK/CPAN-Test-Dummy-Perl5-Make-Features-1.06.tar.gz index e0adc6c..74aac07 100644 Binary files a/corpus/mini/authors/id/A/AN/ANDK/CPAN-Test-Dummy-Perl5-Make-Features-1.06.tar.gz and b/corpus/mini/authors/id/A/AN/ANDK/CPAN-Test-Dummy-Perl5-Make-Features-1.06.tar.gz differ diff --git a/corpus/mini/authors/id/A/AN/ANDK/CPAN-Test-Dummy-Perl5-Make-Features/mymeta.yml b/corpus/mini/authors/id/A/AN/ANDK/CPAN-Test-Dummy-Perl5-Make-Features/mymeta.yml index 247604c..d197f7d 100644 --- a/corpus/mini/authors/id/A/AN/ANDK/CPAN-Test-Dummy-Perl5-Make-Features/mymeta.yml +++ b/corpus/mini/authors/id/A/AN/ANDK/CPAN-Test-Dummy-Perl5-Make-Features/mymeta.yml @@ -18,3 +18,5 @@ distribution_type: module meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.3.html version: 1.3 +resources: + bugtracker: https://rt.dummy.cpan.org/Public/Dist/Display.html?Name=CPAN-Test-Dummy-Perl5-Make-Features diff --git a/dist.ini b/dist.ini index 5e0540d..e32d52a 100644 --- a/dist.ini +++ b/dist.ini @@ -34,7 +34,7 @@ fake_home = 1 ; fakes $ENV{HOME} just in case [PodSyntaxTests] ; xt/release/pod-syntax.t [PodCoverageTests] ; xt/release/pod-coverage.t ;[Test::Portability] ; xt/release/portability.t (of file name) ; disabled because of long filenames in the test cpan mirrors -[KwaliteeTests] ; xt/release/kwalitee.t +[Test::Kwalitee] ; xt/release/kwalitee.t [Test::Version] ; xt/release/test-version.t ; metadata diff --git a/lib/CPAN/Mini/Webserver/Templates.pm b/lib/CPAN/Mini/Webserver/Templates.pm index 4116da0..156bd6f 100644 --- a/lib/CPAN/Mini/Webserver/Templates.pm +++ b/lib/CPAN/Mini/Webserver/Templates.pm @@ -549,7 +549,7 @@ private template 'metadata' => sub { dt { ucfirst $datum; } dd { a { - attr { href => $arguments->{base_url} . $meta->{resources}->{$datum}; }; + attr { href => $meta->{resources}->{$datum}; }; $meta->{resources}->{$datum}; } diff --git a/t/simple.t b/t/simple.t index ba0b530..27e8b63 100644 --- a/t/simple.t +++ b/t/simple.t @@ -72,6 +72,12 @@ like( $html, qr{$desc} ); redirect_ok( "/~$cpan_id/$dist/$dist/lib/$module", "/package/$cpan_id/$dist/Bundle::CpanTestDummies/" ); error404_ok( "/package/$cpan_id/$dist/Bundle::CpanTestDummies2/" ); +# Metadata links +my $mddist = 'CPAN-Test-Dummy-Perl5-Make-Features-1.06'; +$html = html_page_ok( "/~$cpan_id/$mddist" ); +my $mdurl = quotemeta 'https://rt.dummy.cpan.org/Public/Dist/Display.html?Name=CPAN-Test-Dummy-Perl5-Make-Features'; +like ( $html, qr{$mdurl} ); + # 'static' files css_ok( '/static/css/screen.css' ); css_ok( '/static/css/print.css' );