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