use File::Temp

1 files changed, 14 insertions, 10 deletions

diff --git a/t/tests/webcoso.t b/t/tests/webcoso.t
index 48c9917..b838cc7 100644
--- a/t/tests/webcoso.t
+++ b/t/tests/webcoso.t
@@ -1,25 +1,29 @@
 # -*- mode: perl6 -*-
 use Test;
+use File::Temp;
 use WebCoso;
 
-'t/data/src/one'.IO.mkdir;
-'t/data/dst'.IO.mkdir;
+my $testdir = tempdir.IO;
+my $srcdir = $testdir.child('src');
+my $destdir = $testdir.child('dst');
 
-spurt('t/data/src/one/document.it.txt','foo');
-spurt('t/data/src/one/document.en.txt','foo');
+my $one = $srcdir.child('one');
 
-my $wc = WebCoso.new(
-    srcdir => 't/data/src'.IO,
-    destdir => 't/data/dst'.IO,
-);
+$one.mkdir;
+$destdir.mkdir;
+
+$one.child('document.it.txt').spurt('foo');
+$one.child('document.en.txt').spurt('foo');
+
+my $wc = WebCoso.new(:$srcdir,:$destdir);
 
 my %one = $wc.get-files('one','document','txt');
 
 is-deeply(
     %one,
     {
-        it => 't/data/src/one/document.it.txt'.IO,
-        en => 't/data/src/one/document.en.txt'.IO,
+        it => $one.child('document.it.txt'),
+        en => $one.child('document.en.txt'),
     },
     'get-files works',
 );