first test

1 files changed, 27 insertions, 0 deletions

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;