rt/t/web/self_service.t

   1 use strict;
   2 use warnings;
   3 use RT::Test tests => 9;
   4
   5 my ($url, $m) = RT::Test->started_ok;
   6
   7 my ($ticket) =
   8   RT::Test->create_ticket( Queue => 'General', Subject => 'test subject' );
   9
  10 $m->login();
  11
  12 $m->get_ok( '/SelfService/Display.html?id=' . $ticket->id,
  13     'got selfservice display page' );
  14
  15 my $title = '#' . $ticket->id . ': test subject';
  16 $m->title_is( $title );
  17 $m->content_contains( "<h1>$title</h1>", "contains <h1>$title</h1>" );
  18
  19 # TODO need more SelfService tests