4 use RT::Test tests => 18;
6 my $q = RT::Test->load_or_create_queue( Name => 'General' );
7 ok $q && $q->id, 'loaded or created queue';
11 $root = RT::User->new( RT->SystemUser );
13 ok $root_id = $root->id, 'found root';
16 my ($baseurl, $m) = RT::Test->started_ok;
19 # test users auto completer
21 $m->get_ok('/Helpers/Autocomplete/Users?term=eNo');
24 JSON::from_json( $m->content ),
25 [{"value" => "root\@localhost","label" => "Enoch Root", id=>$root_id}]
29 # test ticket's People page
31 my $ticket = RT::Test->create_ticket( Queue => $q->id );
32 ok $ticket && $ticket->id, "created ticket";
34 $m->goto_ticket( $ticket->id );
35 $m->follow_link_ok( {text => 'People'} );
37 $m->select( UserField => 'RealName' );
38 $m->field( UserString => 'eNo' );
39 $m->click('OnlySearchForPeople');
41 my $form = $m->form_number(3);
42 my $input = $form->find_input('Ticket-AddWatcher-Principal-'. $root->id );
43 ok $input, 'input is there';
46 # test users' admin UI
48 $m->get_ok('/Admin/Users/');
51 $m->select( UserField => 'RealName' );
52 $m->field( UserString => 'eNo' );
55 like $m->uri, qr{\QAdmin/Users/Modify.html?id=$root_id\E};
58 # create a cf for testing
61 $cf = RT::CustomField->new(RT->SystemUser);
62 my ($id,$msg) = $cf->Create(
70 ($id,$msg) = $cf->AddValue(Name => 'Enoch', Description => 'Root');
74 # test custom field values auto completer
76 $m->get_ok('/Helpers/Autocomplete/CustomFieldValues?term=eNo&Object---CustomField-'. $cf->id .'-Value&ContextId=1&ContextType=RT::Queue');
79 JSON::from_json( $m->content ),
80 [{"value" => "Enoch","label" => "Enoch (Root)"}]