From 262659af7177d4d459d4ec7d62e2f501de049f1d Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Sat, 5 Sep 2015 15:11:20 +0100
Subject: use File::Temp

---
 t/tests/webcoso.t | 24 ++++++++++++++----------
 1 file changed, 14 insertions(+), 10 deletions(-)

(limited to 't')

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',
 );
-- 
cgit v1.2.3