rt/t/customfields/combo_cascade.t

   1 #!/usr/bin/perl
   2 use warnings;
   3 use strict;
   4
   5 use RT::Test nodata => 1, tests => 11;
   6
   7 my $q = RT::Queue->new($RT::SystemUser);
   8 works($q->Create(Name => "CF-Pattern-".$$));
   9
  10 my $cf = RT::CustomField->new($RT::SystemUser);
  11 my @cf_args = (Name => $q->Name, Type => 'Combobox', Queue => $q->id);
  12
  13 works($cf->Create(@cf_args));
  14
  15 # Set some CFVs with Category markers
  16
  17 my $t = RT::Ticket->new($RT::SystemUser);
  18 my ($id,undef,$msg) = $t->Create(Queue => $q->id, Subject => 'CF Test');
  19 works($id,$msg);
  20
  21 sub add_works {
  22     works(
  23         $cf->AddValue(Name => $_[0], Description => $_[0], Category => $_[1])
  24     );
  25 };
  26
  27 add_works('value1', '1. Category A');
  28 add_works('value2');
  29 add_works('value3', '1.1. A-sub one');
  30 add_works('value4', '1.2. A-sub two');
  31 add_works('value5', '');
  32
  33 my $cfv = $cf->Values->First;
  34 is($cfv->Category, '1. Category A');
  35 works($cfv->SetCategory('1. Category AAA'));
  36 is($cfv->Category, '1. Category AAA');
  37