Addresses #5 and also #7, that one is tougher

perl6 · Sep 4, 2019 · 660a389 · 660a389
1 parent 3a1ba98
commit 660a389
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/t/020-source.t b/t/020-source.t
@@ -128,7 +128,7 @@ subtest "Update cache", {
 is-deeply $cache.hash-files, ( 'a-pod-file' => 'Current', 'a-second-pod-file'=>'Current').hash, 'hash-files shows two pod Current';
 
 #--MARKER-- Test 20
-ok INDEX.IO.modified > $mod-time, 'INDEX has been modified because update cache ok';
+ok INDEX.IO.modified > $mod-time, 'INDEX has been modified because updated cache ok';
 
 (DOC ~ '/a-second-pod-file.pod6').IO.spurt(q:to/POD-CONTENT/);
 =begin pod

diff --git a/t/030-sub-directories.t b/t/030-sub-directories.t
@@ -1,8 +1,8 @@
 use lib 'lib';
 use Test;
 use Test::Output;
-use File::Directory::Tree;
 use JSON::Fast;
+use File::Directory::Tree;
 use Pod::To::Cached;
 
 constant REP = 't/tmp/ref';
@@ -17,7 +17,7 @@ my $content = q:to/PODEND/;
     PODEND
 
 for <sub-dir-1 sub-dir-2 sub-dir-3> -> $d {
-    mktree DOC ~ "/$d";
+    mkdir DOC ~ "/$d";
     (DOC ~ "/$d/a-file-$_.pod6").IO.spurt($content) for 1..4
 }
 
@@ -35,4 +35,4 @@ nok 'sub-dir-1' ~~ any( $cache.hash-files.keys ), 'sub-directories filtered from
 ok 't/.pod-cache'.IO ~~ :d, 'default repository created';
 rmtree 't/.pod-cache';
 
-done-testing;
+done-testing;