add scramble translator plugin and tests

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

diff --git a/t/translator/scramble.t b/t/translator/scramble.t
new file mode 100644 (file)
index 0000000..2862dfe
--- /dev/null
+++ b/t/translator/scramble.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'
+);
+
+my $input = 'hello world';
+my $scrambled = $tr->translate_to('Scramble', $input);
+
+like($scrambled, qr/h...o w...d/, 'text matches first/last');
+isnt($scrambled, $input, 'text altered');