From 824297a3c3e623a64cf6273ec7e25f58906aeffc Mon Sep 17 00:00:00 2001
From: Antonio <antoniogamiz10@gmail.com>
Date: Fri, 11 Oct 2019 17:03:14 +0200
Subject: [PATCH] Fix path for windows

---
 t/060-cache-ignore.t | 47 +++++++++++++++++++++-----------------------
 1 file changed, 22 insertions(+), 25 deletions(-)

diff --git a/t/060-cache-ignore.t b/t/060-cache-ignore.t
index b9dc50e..fc008ef 100644
--- a/t/060-cache-ignore.t
+++ b/t/060-cache-ignore.t
@@ -9,47 +9,44 @@ constant REP = 't/tmp/ref-ignore';
 constant DOC = 't/tmp/doc-ignore';
 constant IGNORE_FILE = ".cache-ignore";
 
-mkdir DOC;
+mkdir DOC.IO;
 
 my Pod::To::Cached $cache;
 diag 'Test .cache-ignore file';
 
-create-pods("test1.pod6");
-create-pods("test2.pod6");
+DOC.IO.add('test1.pod6').spurt(q:to/CONTENT/);
+    =begin pod
+    =end pod
+CONTENT
+
+DOC.IO.add('test2.pod6').spurt(q:to/CONTENT/);
+    =begin pod
+    =end pod
+CONTENT
 
 #--MARKER-- Test 1
-$cache .= new( :source( DOC ), :path( REP ), :verbose);
-is-deeply $cache.get-pods.sort, 
-          ("t/tmp/doc-ignore/test1.pod6",
-           "t/tmp/doc-ignore/test2.pod6"),
+$cache .= new( :source( DOC ), :path( REP ), :!verbose);
+is-deeply $cache.get-pods.sort.map({.IO}),
+          ("t/tmp/doc-ignore/test1.pod6".IO,
+           "t/tmp/doc-ignore/test2.pod6".IO),
           IGNORE_FILE ~ " does not exist";
 
 #--MARKER-- Test 2
 IGNORE_FILE.IO.spurt("");
-$cache .= new( :source( DOC ), :path( REP ), :verbose);
-is-deeply $cache.get-pods.sort,
-          ("t/tmp/doc-ignore/test1.pod6",
-           "t/tmp/doc-ignore/test2.pod6"),
+$cache .= new( :source( DOC ), :path( REP ), :!verbose);
+is-deeply $cache.get-pods.sort.map({.IO}),
+          ("t/tmp/doc-ignore/test1.pod6".IO,
+           "t/tmp/doc-ignore/test2.pod6".IO),
           IGNORE_FILE ~ " is empty";
 unlink IGNORE_FILE;
 
 #--MARKER-- Test 3
 IGNORE_FILE.IO.spurt("test2");
-$cache .= new( :source( DOC ), :path( REP ), :verbose);
-is-deeply $cache.get-pods.sort, 
-          ("t/tmp/doc-ignore/test1.pod6",),
+$cache .= new( :source( DOC ), :path( REP ), :!verbose);
+is-deeply $cache.get-pods.sort.map({.IO}),
+          ("t/tmp/doc-ignore/test1.pod6".IO,),
           IGNORE_FILE ~ " with simple regex";
 unlink IGNORE_FILE;
 
 rmtree REP;
-rmtree DOC;
-
-# helpers
-
-sub create-pods($filename) {
-(DOC ~ "/$filename").IO.spurt(q:to/POD-CONTENT/);
-    =begin pod
-    =TITLE More and more
-    =end pod
-    POD-CONTENT
-}
\ No newline at end of file
+rmtree DOC;
\ No newline at end of file