Fix BackPAN::Index for testing.

It was using the default location for the index and the cache.  We just got lucky
none of the distributions we use for testing changed.

Now it uses the index in t/ and puts its cache there.

Author: schwern

.gitignore

@@ -15,3 +15,4 @@ MYMETA.*
 *.o
 gitpan-build
 t/gitpan
+t/caches/

.gitpan

@@ -788,7 +788,9 @@ committer_email: schwern+gitpan-test@pobox.com
 overlays:
     test:
         backpan_always_update: 0
+        backpan_cache_dir: t/caches/backpan/
         backpan_cache_ttl: 604800
+        backpan_index_url: file:t/backpan/backpan-index.gz
         backpan_url: file:t/backpan/
 
         github_owner: gitpan-test

lib/Gitpan/Config.pm

@@ -9,6 +9,15 @@ haz backpan_url =>
   isa           => URI,
   default       => 'http://gitpan.integra.net/backpan';
 
+haz backpan_index_url =>
+  is            => 'ro',
+  isa           => URI,
+  default       => 'http://gitpan.integra.net/backpan-index.gz';
+
+haz backpan_cache_dir =>
+  is            => 'ro',
+  isa           => Maybe[AbsPath];
+
 haz backpan_cache_ttl =>
   is            => 'ro',
   isa           => Int,

lib/Gitpan/Role/HasBackpanIndex.pm

@@ -41,6 +41,12 @@ method _build_index {
     push @opts, (normalize_releases   => $config->backpan_normalize_releases)
       if keys %{$config->backpan_normalize_releases};
 
+    push @opts, (cache_dir => $config->backpan_cache_dir.'')
+      if defined $config->backpan_cache_dir;
+
+    push @opts, (backpan_index_url => $config->backpan_index_url)
+      if defined $config->backpan_index_url;
+
     return BackPAN::Index->new(
         cache_ttl                       => $self->config->backpan_cache_ttl,
         releases_only_from_authors      => 1,

t/HasBackpanIndex.t

@@ -42,4 +42,16 @@ note "not shared across forks"; {
     Test::More->builder->current_test( Test::More->builder->current_test + $child->read );
 }
 
+note "test config"; {
+    my $obj = Some::Class->new;
+    my $bp = $obj->backpan_index;
+
+    ok("t"->path->subsumes($bp->cache_dir->path),
+       "backpan cache is in the t/ directory")
+      or diag $bp->cache_dir;
+
+    is $bp->backpan_index_url->scheme, "file";
+    is $bp->backpan_index_url->path, "t/backpan/backpan-index.gz";
+}
+
 done_testing;