[Rt-commit] r5747 - rt/branches/3.6-RELEASE/lib/RT

[ruz at bestpractical.com]

Author: ruz
Date: Wed Aug  9 16:57:41 2006
New Revision: 5747

Modified:
   rt/branches/3.6-RELEASE/lib/RT/CurrentUser.pm

Log:
* skip test if french locale is not loaded

Modified: rt/branches/3.6-RELEASE/lib/RT/CurrentUser.pm
==============================================================================
--- rt/branches/3.6-RELEASE/lib/RT/CurrentUser.pm	(original)
+++ rt/branches/3.6-RELEASE/lib/RT/CurrentUser.pm	Wed Aug  9 16:57:41 2006
@@ -352,11 +352,14 @@
 
 ok (my $cu = RT::CurrentUser->new('root'));
 ok (my $lh = $cu->LanguageHandle('en-us'));
-ok ($lh != undef);
+ok (defined $lh);
 ok ($lh->isa('Locale::Maketext'));
 is ($cu->loc('TEST_STRING'), "Concrete Mixer", "Localized TEST_STRING into English");
 ok ($lh = $cu->LanguageHandle('fr'));
-is ($cu->loc('Before'), "Avant", "Localized TEST_STRING into Frenc");
+SKIP: {
+    skip "fr locale is not loaded", 1 unless grep $_ eq 'fr', @RT::LexiconLanguages;
+    is ($cu->loc('Before'), "Avant", "Localized TEST_STRING into Frenc");
+}
 
 =end testing