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

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');
Commit	Line	Data
5d5f55d8	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');