rt/t/i18n/default.t

   1 use strict;
   2 use warnings;
   3
   4 use RT::Test nodata => 1;
   5
   6 my ($baseurl, $m) = RT::Test->started_ok;
   7 $m->get_ok('/');
   8 $m->title_is('Login');
   9
  10 $m->get_ok('/', { 'Accept-Language' => 'x-klingon' });
  11 $m->title_is('Login', 'unavailable language fallback to en');
  12 $m->content_contains('<html lang="en">');
  13
  14 $m->add_header('Accept-Language' => 'zh-tw,zh;q=0.8,en-gb;q=0.5,en;q=0.3');
  15 $m->get_ok('/');
  16 $m->title_is( Encode::decode("UTF-8",'登入'),
  17               'Page title properly translated to chinese');
  18 $m->content_contains( Encode::decode("UTF-8",'密碼'),
  19                       'Password properly translated');
  20 {
  21     local $TODO = "We fail to correctly advertise the langauage in the <html> block";
  22     $m->content_contains('<html lang="zh-tw">');
  23 }
  24
  25 undef $m;