Add multiple instance tests. Remove rm-cache from Module.

rm-cache is an undocumented sub and was only used for tests. It's functionality is better
supported with File::Directory::Tree

Author: finanalyst

.gitignore

@@ -3,3 +3,4 @@ lib/.precomp/*
 t/tmp/
 .pod-cache
 workspace.xml
+*.iml

lib/Pod/To/Cached.pm6

@@ -261,15 +261,6 @@ method freeze( --> Bool ) {
     self.save-index;
 }
 
-sub rm-cache( $path ) is export {
-    if $*SPEC ~~ IO::Spec::Win32 {
-        my $win-path = "$*CWD/$path".trans( ["/"] => ["\\"] );
-        shell "rmdir /S /Q $win-path" ;
-    } else {
-        shell "rm -rf $path";
-    }
-}
-
 =begin pod
 
 =TITLE Pod::To::Cached

t/030-sub-directories.t

@@ -3,6 +3,7 @@ use Test;
 use Test::Output;
 use JSON::Fast;
 use Pod::To::Cached;
+use File::Directory::Tree;
 
 constant REP = 't/tmp/ref';
 constant DOC = 't/tmp/doc';
@@ -35,5 +36,6 @@ nok 'sub-dir-1' ~~ any( $cache.hash-files.keys ), 'sub-directories filtered from
 't'.IO.&indir( {$cache .= new(:source( 'tmp/doc' ) ) } );
 #--MARKER-- Test 4
 ok 't/.pod-cache'.IO ~~ :d, 'default repository created';
-
+# clean up
+rmtree 't/.pod-cache';
 done-testing;

t/040-pod-extraction.t

@@ -2,6 +2,7 @@ use lib 'lib';
 use Test;
 use Test::Output;
 use Pod::To::Cached;
+use File::Directory::Tree;
 
 constant REP = 't/tmp/ref';
 constant DOC = 't/tmp/doc';
@@ -12,7 +13,9 @@ plan 11;
 my Pod::To::Cached $cache;
 my $rv;
 diag 'Test pod extraction';
-rm-cache( REP );
+
+rmtree REP;
+
 $cache .= new( :source( DOC ), :path( REP ), :!verbose);
 $cache.update-cache;
 #--MARKER-- Test 1

t/050-multiple-instance.t

@@ -0,0 +1,31 @@
+# assumes that there are directories REP and DOC left from tests in 040
+use lib 'lib';
+use Test;
+use Test::Output;
+use Pod::To::Cached;
+use File::Directory::Tree;
+
+constant REP = 't/tmp/ref';
+constant DOC = 't/tmp/doc';
+constant COUNT = 3; # number of caches to create
+
+diag "Create multiple ({ COUNT }) caches";
+
+rmtree REP;
+
+my @caches;
+
+for ^COUNT {
+    lives-ok {
+        @caches[$_] = Pod::To::Cached.new( :source( DOC ), :path( REP ~ $_ ), :!verbose)
+    }, "created cache no $_";
+    lives-ok {
+        @caches[$_].update-cache
+    }, "update cache no $_";
+}
+
+for ^COUNT {
+    ok (REP ~ $_ ).IO.d
+}
+
+done-testing;