4 use RT::Test tests => 8;
6 use constant VALUES_CLASS => 'RT::CustomFieldValues::Groups';
7 RT->Config->Set(CustomFieldValuesSources => VALUES_CLASS);
9 my ($baseurl, $m) = RT::Test->started_ok;
10 ok $m->login, 'logged in as root';
12 my $cf_name = 'test values class';
17 $m->follow_link( id => 'tools-config-custom-fields-create');
19 form_name => "ModifyCustomField",
22 TypeComposite => 'Select-1',
23 LookupType => 'RT::Queue-RT::Ticket',
26 $m->content_contains('Object created', 'created Select-1' );
27 $cfid = $m->form_name('ModifyCustomField')->value('id');
28 ok $cfid, "found id of the CF in the form, it's #$cfid";
31 diag "change to external values class";
34 form_name => "ModifyCustomField",
35 fields => { ValuesClass => 'RT::CustomFieldValues::Groups', },
39 "Field values source changed from 'RT::CustomFieldValues' to 'RT::CustomFieldValues::Groups'",
40 'changed to external values class' );
43 diag "change to internal values class";
46 form_name => "ModifyCustomField",
47 fields => { ValuesClass => 'RT::CustomFieldValues', },
51 "Field values source changed from 'RT::CustomFieldValues::Groups' to 'RT::CustomFieldValues'",
52 'changed to internal values class' );