Fix sidebar explorer link for releases

closes #1075.
metacpan · Feb 5, 2014 · 5353ac2 · 5353ac2
1 parent 08b9494
commit 5353ac2
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 2 deletions.
diff --git a/root/inc/release-tools.html b/root/inc/release-tools.html
@@ -10,7 +10,7 @@
 </li>
 <%- END %>
 <li>
-  <a href="http://explorer.metacpan.org/?url=/module/<% release.author %>/<% release.name %>/<% module.path %>">
+<a href="http://explorer.metacpan.org/?url=/<% module ? ['module', module.author, module.release, module.path].join("/") : ['release', release.author, release.name].join("/") %>">
     <i class="icon-list-alt"></i> MetaCPAN Explorer
   </a>
 </li>

diff --git a/t/controller/shared/release-info.t b/t/controller/shared/release-info.t
@@ -191,7 +191,14 @@ test_psgi app, sub {
                 'reverse deps link uses dist name'
             );
 
-            # TODO: explorer
+            $tx->like(
+                '//a[starts-with(@href, "http://explorer.metacpan.org/?url")]/@href',
+                $type eq 'module' ?
+                       qr!\?url=/module/\w+/${release}-${version}/.+!
+                    : qr!\?url=/release/\w+/${release}-${version}\z!,
+                'explorer link points to module file or release',
+            );
+
             # TODO: activity
         }
     }