rt/t/web/language_update.t

   1 use strict;
   2 use warnings;
   3 use RT::Test tests => 9;
   4
   5 my ( $url, $m ) = RT::Test->started_ok;
   6 ok( $m->login(), 'logged in' );
   7
   8 $m->follow_link_ok({text => 'About me'});
   9 $m->form_with_fields('Lang');
  10 $m->field(Lang => 'zh_TW');
  11 $m->submit;
  12
  13 $m->text_contains(Encode::decode("UTF-8","電子郵件信箱"), "successfully updated to zh_TW");
  14 $m->text_contains(Encode::decode("UTF-8","使用語言 的值從 (無) 改為 'zh_TW'"), "when updating to language zh_TW, results are in zh_TW");
  15
  16 $m->form_with_fields('Lang');
  17 $m->field(Lang => 'en_us');
  18 $m->submit;
  19
  20 $m->text_contains("Email", "successfully updated to en_us");
  21 $m->text_contains("Lang changed from 'zh_TW' to 'en_us'", "when updating to language en_us, results are in en_us");
  22