Apparently, rmtree was not working.

This is related to #7, but we are adressing #5
perl6 · Sep 4, 2019 · 911b8fe · 911b8fe
1 parent ab4d993
commit 911b8fe
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 1 deletion.
diff --git a/lib/Pod/To/Cached.pm6 b/lib/Pod/To/Cached.pm6
@@ -261,6 +261,14 @@ method freeze( --> Bool ) {
     self.save-index;
 }
 
+method rm-cache() {
+    if $*SPEC ~~ IO::Spec::Win32 {
+        shell "rmdir /S /Q $.path";
+    } else {
+        shell "rm -rf $.path";
+    }
+}
+
 =begin pod
 
 =TITLE Pod::To::Cached

diff --git a/t/020-source.t b/t/020-source.t
@@ -228,7 +228,7 @@ $cache .= new( :source( DOC ), :path( REP ));
 #--MARKER-- Test 36
 is-deeply $cache.hash-files(<Valid Old>), %( 'a-pod-file' => 'Valid', 'pod-file-to-deprecate' => 'Old'), 'hash-files with seq of statuses correct';
 # remove rep with old source
-rmtree REP;
+$cache.rm-cache;
 #restore valid source file for later tests.
 (DOC ~ '/a-pod-file.pod6').IO.spurt(q:to/POD-CONTENT/);
     =begin pod