rt/t/web/user_update.t

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4 use utf8;
   5 use RT::Test tests => 9;
   6
   7 my ( $url, $m ) = RT::Test->started_ok;
   8 ok( $m->login(), 'logged in' );
   9
  10 $m->follow_link_ok({text => 'About me'});
  11 $m->form_with_fields('Lang');
  12 $m->field(Lang => 'ja');
  13 $m->submit;
  14
  15 $m->text_contains("Lang changed from (no value) to 'ja'");
  16
  17 # we only changed one field, and it wasn't the default, so this feedback is
  18 # spurious and annoying
  19 $m->content_lacks("That is already the current value");
  20
  21 # change back to English
  22 $m->form_with_fields('Lang');
  23 $m->field(Lang => 'en_us');
  24 $m->submit;
  25
  26 # This message shows up in Japanese
  27 # $m->text_contains("Lang changed from 'ja' to 'en_us'");
  28 $m->text_contains("Langは「'ja'」から「'en_us'」に変更されました");
  29
  30 # another spurious update
  31 $m->content_lacks("That is already the current value");
  32