starting to work...

[freeside.git] / rt / t / i18n / default.t
diff --git a/rt/t/i18n/default.t b/rt/t/i18n/default.t

index 6c9842a..6c26b62 100644 (file)
--- a/rt/t/i18n/default.t
+++ b/rt/t/i18n/default.t
@@ -2,7 +2,7 @@
  use strict;
  use warnings;
  
-use RT::Test tests => 8;
+use RT::Test nodata => 1;
  
  my ($baseurl, $m) = RT::Test->started_ok;
  $m->get_ok('/');
@@ -10,6 +10,7 @@ $m->title_is('Login');
  
  $m->get_ok('/', { 'Accept-Language' => 'x-klingon' });
  $m->title_is('Login', 'unavailable language fallback to en');
+$m->content_contains('<html lang="en">');
  
  $m->add_header('Accept-Language' => 'zh-tw,zh;q=0.8,en-gb;q=0.5,en;q=0.3');
  $m->get_ok('/');
@@ -17,3 +18,9 @@ use utf8;
  Encode::_utf8_on($m->{content});
  $m->title_is('登入', 'Page title properly translated to chinese');
  $m->content_contains('密碼','Password properly translated');
+{
+    local $TODO = "We fail to correctly advertise the langauage in the <html> block";
+    $m->content_contains('<html lang="zh-tw">');
+}
+
+undef $m;