initial external translator object and test

[catagits/catbook-code.git] / t / translator / simple.t

diff --git a/t/translator/simple.t b/t/translator/simple.t
new file mode 100644 (file)
index 0000000..6a3ab1d
--- /dev/null
+++ b/t/translator/simple.t
@@ -0,0 +1,15 @@
+use strict;
+use warnings;
+use Test::More qw(no_plan);
+use LolCatalyst::Lite::Translator;
+
+ok(
+  (my $tr = LolCatalyst::Lite::Translator->new),
+  'Constructed translator object ok'
+);
+
+like(
+  $tr->translate('Can i have a cheese burger?'),
+  qr/CHEEZ/,
+  'String translated ok'
+);