[Rt-commit] r13599 - in rt/3.8/trunk: t/ticket

[kyoki at bestpractical.com]

Author: kyoki
Date: Wed Jun 25 19:49:27 2008
New Revision: 13599

Added:
   rt/3.8/trunk/t/ticket/badlinks.t
Modified:
   rt/3.8/trunk/   (props changed)

Log:
 r23367 at nyx:  kyoki | 2008-06-25 19:49:20 -0400
 added Kevin's badlinks test after making sure it passes


Added: rt/3.8/trunk/t/ticket/badlinks.t
==============================================================================
--- (empty file)
+++ rt/3.8/trunk/t/ticket/badlinks.t	Wed Jun 25 19:49:27 2008
@@ -0,0 +1,39 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More tests => 12;
+use RT::Test;
+
+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);