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');
17 my ($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" );
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
28 $m->login( root => "password" );
29 $m->get_ok('/Prefs/Other.html');
30 $m->content_lacks('Ne pas','Lacks translated french');