1use strict; 2use warnings; 3 4use RT::Test; 5 6{ 7 my $french = RT::User->new(RT->SystemUser); 8 $french->LoadOrCreateByEmail('french@example.com'); 9 $french->SetName('french'); 10 $french->SetLang('fr'); 11 $french->SetPrivileged(1); 12 $french->SetPassword('password'); 13 $french->PrincipalObj->GrantRight(Right => 'SuperUser'); 14} 15 16 17my ($baseurl, $m) = RT::Test->started_ok; 18$m->login( root => "password" ); 19$m->get_ok('/Prefs/Other.html'); 20$m->content_lacks('Ne pas','Lacks translated french'); 21$m->get_ok( "/NoAuth/Logout.html" ); 22 23$m->login( french => "password" ); 24$m->get_ok('/Prefs/Other.html'); 25$m->content_contains('Ne pas','Has translated french'); 26$m->get_ok( "/NoAuth/Logout.html" ); # ->logout fails because it's translated 27 28$m->login( root => "password" ); 29$m->get_ok('/Prefs/Other.html'); 30$m->content_lacks('Ne pas','Lacks translated french'); 31