t/translator/scramble.t

   1 use strict;
   2 use warnings;
   3 use Test::More qw(no_plan);
   4 use LolCatalyst::Lite::Translator;
   5
   6 ok(
   7   (my $tr = LolCatalyst::Lite::Translator->new),
   8   'Constructed translator object ok'
   9 );
  10
  11 my $input = 'hello world';
  12 my $scrambled = $tr->translate_to('Scramble', $input);
  13
  14 like($scrambled, qr/h...o w...d/, 'text matches first/last');
  15 isnt($scrambled, $input, 'text altered');