rt/t/web/class_create.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use RT::Test tests => 13;
   7
   8 my ( $baseurl, $m ) = RT::Test->started_ok;
   9 ok $m->login, 'logged in as root';
  10 my $root = RT::User->new(RT->SystemUser);
  11 ok( $root->Load('root'), 'load root user' );
  12
  13 my $class_name = 'test class';
  14
  15 my $class_id;
  16 diag "Create a class";
  17 {
  18     $m->follow_link( id => 'tools-config-articles-classes-create');
  19
  20     # Test class form validation
  21     $m->submit_form(
  22         form_name => 'ModifyClass',
  23         fields => {
  24             Name => '',
  25         },
  26     );
  27     $m->text_contains('Invalid value for Name');
  28     $m->submit_form(
  29         form_name => 'ModifyClass',
  30         fields => {
  31             Name => '0',
  32         },
  33     );
  34     $m->text_contains('Invalid value for Name');
  35     $m->submit_form(
  36         form_name => 'ModifyClass',
  37         fields => {
  38             Name => '1',
  39         },
  40     );
  41     $m->text_contains('Invalid value for Name');
  42     $m->submit_form(
  43         form_name => 'ModifyClass',
  44         fields => {
  45             Name => $class_name,
  46         },
  47     );
  48     $m->content_contains('Object created', 'created class sucessfully' );
  49
  50     # Test validation on updae
  51     $m->form_name('ModifyClass');
  52     $m->set_fields(
  53         Name => '',
  54     );
  55     $m->click_button(value => 'Save Changes');
  56     $m->text_contains('Illegal value for Name');
  57
  58     $m->form_name('ModifyClass');
  59     $m->set_fields(
  60         Name => '0',
  61     );
  62     $m->click_button(value => 'Save Changes');
  63     $m->text_contains('Illegal value for Name');
  64
  65     $m->form_name('ModifyClass');
  66     $m->set_fields(
  67         Name => '1',
  68     );
  69     $m->click_button(value => 'Save Changes');
  70     $m->text_contains('Illegal value for Name');
  71
  72     $class_id           = $m->form_name('ModifyClass')->value('id');
  73     ok $class_id, "found id of the class in the form, it's #$class_id";
  74 }
  75