blob: 5e98dd3b55c8ac48eb86ebaed67adc0f4bdb43dc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
use strict;
use warnings;
use RT::Test tests => undef;
my ($base, $m) = RT::Test->started_ok;
$m->login;
for my $arg (qw(LeadingLink ShowLinks)) {
my $ticket = RT::Test->create_ticket(
Queue => 'General',
Subject => 'testing',
);
ok $ticket->id, 'created ticket';
ok !$ticket->ToldObj->Unix, 'no Told';
$m->get_ok("$base/Ticket/Graphs/index.html?$arg=SetTold;id=" . $ticket->id);
$ticket->Load($ticket->id); # cache busting
ok !$ticket->ToldObj->Unix, 'still no Told';
$m->content_lacks('GotoFirstItem', 'no GotoFirstItem error');
$m->content_like(qr|<img[^>]+?src=['"]/Ticket/Graphs/@{[$ticket->id]}|, 'found image element');
}
undef $m;
done_testing;
|