use File::Temp

2 files changed, 16 insertions, 11 deletions

diff --git a/lib/WebCoso.pm b/lib/WebCoso.pm
index db60f8f..46db3c0 100644
--- a/lib/WebCoso.pm
+++ b/lib/WebCoso.pm
@@ -1,11 +1,12 @@
 # -*- mode: perl6 -*-
+use File::Temp;
 use WebCoso::Doc::Page;
 use WebCoso::Doc::Feed;
 
 class WebCoso {
     has $.srcdir;
     has $.destdir;
-    has $!tmpdir = $*SPEC.tmpdir.child('abcde');
+    has $!tmpdir = tempdir.IO;
     has @!docs;
 
     method get-files($dir,$basename,$ext) {
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',
 );