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