rt/t/web/rest_user_cf.t

   1 use strict;
   2 use warnings;
   3 use RT::Interface::REST;
   4
   5 use RT::Test tests => undef;
   6
   7 my ( $baseurl, $m ) = RT::Test->started_ok;
   8
   9 my $cf = RT::Test->load_or_create_custom_field(
  10     Name       => 'foo',
  11     Type       => 'Freeform',
  12     LookupType => 'RT::User',
  13 );
  14 $cf->AddToObject(RT::User->new(RT->SystemUser));
  15
  16 my $root = RT::User->new( RT->SystemUser );
  17 $root->Load('root');
  18 $root->AddCustomFieldValue( Field => 'foo', Value => 'blabla' );
  19 is( $root->FirstCustomFieldValue('foo'), 'blabla', 'cf is set' );
  20
  21 ok( $m->login, 'logged in' );
  22 $m->post( "$baseurl/REST/1.0/show", [ id => 'user/12', ] );
  23 like( $m->content, qr/CF-foo: blabla/, 'found the cf' );
  24
  25 undef $m;
  26 done_testing;