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