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 | ); |