4 use RT::Test tests => 13;
6 my ( $baseurl, $m ) = RT::Test->started_ok;
7 ok $m->login, 'logged in as root';
8 my $root = RT::User->new(RT->SystemUser);
9 ok( $root->Load('root'), 'load root user' );
11 my $class_name = 'test class';
14 diag "Create a class";
16 $m->follow_link( id => 'tools-config-articles-classes-create');
18 # Test class form validation
20 form_name => 'ModifyClass',
25 $m->text_contains('Invalid value for Name');
27 form_name => 'ModifyClass',
32 $m->text_contains('Invalid value for Name');
34 form_name => 'ModifyClass',
39 $m->text_contains('Invalid value for Name');
41 form_name => 'ModifyClass',
46 $m->content_contains('Object created', 'created class sucessfully' );
48 # Test validation on updae
49 $m->form_name('ModifyClass');
53 $m->click_button(value => 'Save Changes');
54 $m->text_contains('Illegal value for Name');
56 $m->form_name('ModifyClass');
60 $m->click_button(value => 'Save Changes');
61 $m->text_contains('Illegal value for Name');
63 $m->form_name('ModifyClass');
67 $m->click_button(value => 'Save Changes');
68 $m->text_contains('Illegal value for Name');
70 $class_id = $m->form_name('ModifyClass')->value('id');
71 ok $class_id, "found id of the class in the form, it's #$class_id";