rt/t/customfields/pattern.t

   1 use warnings;
   2 use strict;
   3
   4 use RT;
   5 use RT::Test nodata => 1, tests => 17;
   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 => 'Freeform', Queue => $q->id, MaxValues => 1);
  12
  13 fails($cf->Create(@cf_args, Pattern => ')))bad!regex((('));
  14 works($cf->Create(@cf_args, Pattern => 'good regex'));
  15
  16 my $t = RT::Ticket->new($RT::SystemUser);
  17 my ($id,undef,$msg) = $t->Create(Queue => $q->id, Subject => 'CF Test');
  18 works($id,$msg);
  19
  20 # OK, I'm thoroughly brain washed by HOP at this point now...
  21 sub cnt { $t->CustomFieldValues($cf->id)->Count };
  22 sub add { $t->AddCustomFieldValue(Field => $cf->id, Value => $_[0]) };
  23 sub del { $t->DeleteCustomFieldValue(Field => $cf->id, Value => $_[0]) };
  24
  25 is(cnt(), 0, "No values yet");
  26 fails(add('not going to match'));
  27 is(cnt(), 0, "No values yet");
  28 works(add('here is a good regex'));
  29 is(cnt(), 1, "Value filled");
  30 fails(del('here is a good regex'));
  31 is(cnt(), 1, "Single CF - Value _not_ deleted");
  32
  33 $cf->SetMaxValues(0);   # Unlimited MaxValues
  34
  35 works(del('here is a good regex'));
  36 is(cnt(), 0, "Multiple CF - Value deleted");
  37
  38 fails($cf->SetPattern('(?{ "insert evil code here" })'));
  39 works($cf->SetPattern('(?!)')); # reject everything
  40 fails(add(''));
  41 fails(add('...'));
  42
  43 undef $t;