[catagits/catbook-code.git] / t / translator / simple.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'
);

like(
  $tr->translate('Can i have a cheese burger?'),
  qr/CHEEZ/,
  'String translated ok'
);
Commit	Line	Data
bc61dfc2	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	like(
	12	$tr->translate('Can i have a cheese burger?'),
	13	qr/CHEEZ/,
	14	'String translated ok'
	15	);