rt/t/i18n/footer.t

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