From 4959be2ceea013461f3e8848a4c01263f0362452 Mon Sep 17 00:00:00 2001 From: dakkar Date: Sat, 5 Sep 2015 14:55:28 +0100 Subject: first test --- t/tests/webcoso.t | 27 +++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) create mode 100644 t/tests/webcoso.t (limited to 't') diff --git a/t/tests/webcoso.t b/t/tests/webcoso.t new file mode 100644 index 0000000..48c9917 --- /dev/null +++ b/t/tests/webcoso.t @@ -0,0 +1,27 @@ +# -*- mode: perl6 -*- +use Test; +use WebCoso; + +'t/data/src/one'.IO.mkdir; +'t/data/dst'.IO.mkdir; + +spurt('t/data/src/one/document.it.txt','foo'); +spurt('t/data/src/one/document.en.txt','foo'); + +my $wc = WebCoso.new( + srcdir => 't/data/src'.IO, + destdir => 't/data/dst'.IO, +); + +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, + }, + 'get-files works', +); + +done-testing; -- cgit v1.2.3