diff options
Diffstat (limited to 'rt/t/api/currentuser.t')
-rw-r--r-- | rt/t/api/currentuser.t | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/rt/t/api/currentuser.t b/rt/t/api/currentuser.t new file mode 100644 index 0000000..c158048 --- /dev/null +++ b/rt/t/api/currentuser.t @@ -0,0 +1,32 @@ + +use strict; +use warnings; +use RT; +use RT::Test tests => 8; + + +{ + +ok (require RT::CurrentUser); + + +} + +{ + +ok (my $cu = RT::CurrentUser->new('root')); +ok (my $lh = $cu->LanguageHandle('en-us')); +isnt ($lh, undef, '$lh is defined'); +ok ($lh->isa('Locale::Maketext')); +is ($cu->loc('TEST_STRING'), "Concrete Mixer", "Localized TEST_STRING into English"); +SKIP: { + skip "French localization is not enabled", 2 + unless grep $_ && $_ =~ /^(\*|fr)$/, RT->Config->Get('LexiconLanguages'); + ok ($lh = $cu->LanguageHandle('fr')); + is ($cu->loc('before'), "avant", "Localized TEST_STRING into French"); +} + + +} + +1; |