rt/t/api/attribute.t

   1
   2 use strict;
   3 use warnings;
   4 use RT;
   5 use RT::Test tests => 7;
   6
   7
   8 {
   9
  10 my $user = $RT::SystemUser;
  11 my ($id, $msg) =  $user->AddAttribute(Name => 'SavedSearch', Content => { Query => 'Foo'} );
  12 ok ($id, $msg);
  13 my $attr = RT::Attribute->new($RT::SystemUser);
  14 $attr->Load($id);
  15 is($attr->Name , 'SavedSearch');
  16 $attr->SetSubValues( Format => 'baz');
  17
  18 my $format = $attr->SubValue('Format');
  19 is ($format , 'baz');
  20
  21 $attr->SetSubValues( Format => 'bar');
  22 $format = $attr->SubValue('Format');
  23 is ($format , 'bar');
  24
  25 $attr->DeleteAllSubValues();
  26 $format = $attr->SubValue('Format');
  27 is ($format, undef);
  28
  29 $attr->SetSubValues(Format => 'This is a format');
  30
  31 my $attr2 = RT::Attribute->new($RT::SystemUser);
  32 $attr2->Load($id);
  33 is ($attr2->SubValue('Format'), 'This is a format');
  34 $attr2->Delete;
  35 my $attr3 = RT::Attribute->new($RT::SystemUser);
  36 ($id) = $attr3->Load($id);
  37 is ($id, 0);
  38
  39
  40 }
  41
  42 1;