diff options
| -rw-r--r-- | lib/WebCoso.pm | 3 | ||||
| -rw-r--r-- | t/tests/webcoso.t | 24 |
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', ); |