Adds rm-cache back

Related to #10. Also adds tests to avoid accidental removal.

Author: JJ

lib/Pod/To/Cached.pm6

@@ -261,6 +261,15 @@ 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
@@ -373,4 +382,8 @@ $cache.freeze;
 =defn Old
     A source name that is in the cache but no longer reflects an existing source.
 
+=item rm-cache
+
+Deletes the whole directory tree that holds the cache in an OS-independent way.
+
 =end pod

t/030-sub-directories.t

@@ -36,6 +36,9 @@ 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';
+rm-cache 't/.pod-cache';
+nok 't/.pod-cache'.IO ~~ :d, 'Default directory removed';
+
 done-testing;