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