5 use RT::Test tests => 11;
7 sub fails { ok(!$_[0], "This should fail: $_[1]") }
8 sub works { ok($_[0], $_[1] || 'This works') }
12 return $class->new($RT::SystemUser);
15 my $q = new(RT::Queue);
16 works($q->Create(Name => "CF-Pattern-".$$));
18 my $cf = new(RT::CustomField);
19 my @cf_args = (Name => $q->Name, Type => 'Combobox', Queue => $q->id);
21 works($cf->Create(@cf_args));
23 # Set some CFVs with Category markers
25 my $t = new(RT::Ticket);
26 my ($id,undef,$msg) = $t->Create(Queue => $q->id, Subject => 'CF Test');
31 $cf->AddValue(Name => $_[0], Description => $_[0], Category => $_[1])
35 add_works('value1', '1. Category A');
37 add_works('value3', '1.1. A-sub one');
38 add_works('value4', '1.2. A-sub two');
39 add_works('value5', '');
41 my $cfv = $cf->Values->First;
42 is($cfv->Category, '1. Category A');
43 works($cfv->SetCategory('1. Category AAA'));
44 is($cfv->Category, '1. Category AAA');