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