diff options
author | cvs2git <cvs2git> | 2010-12-27 00:04:45 +0000 |
---|---|---|
committer | cvs2git <cvs2git> | 2010-12-27 00:04:45 +0000 |
commit | c82d349f864e6bd9f96fd1156903bc1f7193a203 (patch) | |
tree | e117a87533656110b6acd56fc0ca64289892a9f5 /rt/t/ticket/badlinks.t | |
parent | 74e058c8a010ef6feb539248a550d0bb169c1e94 (diff) |
This commit was manufactured by cvs2svn to create tag 'TORRUS_1_0_9'.TORRUS_1_0_9
Diffstat (limited to 'rt/t/ticket/badlinks.t')
-rw-r--r-- | rt/t/ticket/badlinks.t | 38 |
1 files changed, 0 insertions, 38 deletions
diff --git a/rt/t/ticket/badlinks.t b/rt/t/ticket/badlinks.t deleted file mode 100644 index 408e6b67c..000000000 --- a/rt/t/ticket/badlinks.t +++ /dev/null @@ -1,38 +0,0 @@ -#!/usr/bin/env perl -use strict; -use warnings; -use RT::Test tests => 12; - -my ($baseurl, $m) = RT::Test->started_ok; -ok($m->login, "Logged in"); - -my $queue = RT::Test->load_or_create_queue(Name => 'General'); -ok($queue->Id, "loaded the General queue"); - -my $ticket = RT::Ticket->new($RT::SystemUser); -my ($tid, $txn, $msg) = $ticket->Create( - Queue => $queue->id, - Subject => 'test links', - ); -ok $tid, 'created a ticket #'. $tid or diag "error: $msg"; - -$m->goto_ticket($tid); - -$m->follow_link_ok( { text => 'Links' }, "Followed link to Links" ); - -ok $m->form_with_fields("$tid-DependsOn"), "found the form"; -my $not_a_ticket_url = "http://example.com/path/to/nowhere"; -$m->field("$tid-DependsOn", $not_a_ticket_url); -$m->field("DependsOn-$tid", $not_a_ticket_url); -$m->field("$tid-MemberOf", $not_a_ticket_url); -$m->field("MemberOf-$tid", $not_a_ticket_url); -$m->field("$tid-RefersTo", $not_a_ticket_url); -$m->field("RefersTo-$tid", $not_a_ticket_url); -$m->submit; - -foreach my $type ("depends on", "member of", "refers to") { - $m->content_like(qr/$type.+$not_a_ticket_url/,"base for $type"); - $m->content_like(qr/$not_a_ticket_url.+$type/,"target for $type"); -} - -$m->goto_ticket($tid); |