4 use RT::Test tests => undef;
6 my ($base, $m) = RT::Test->started_ok;
9 for my $arg (qw(LeadingLink ShowLinks)) {
10 my $ticket = RT::Test->create_ticket(
14 ok $ticket->id, 'created ticket';
16 ok !$ticket->ToldObj->IsSet, 'no Told';
17 $m->get_ok("$base/Ticket/Graphs/index.html?$arg=SetTold;id=" . $ticket->id);
19 $ticket->Load($ticket->id); # cache busting
21 ok !$ticket->ToldObj->IsSet, 'still no Told';
22 $m->content_lacks('GotoFirstItem', 'no GotoFirstItem error');
23 $m->content_like(qr|<img[^>]+?src=['"]/Ticket/Graphs/@{[$ticket->id]}|, 'found image element');