rt/t/i18n/default.t

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