[Rt-commit] r8065 - rtir/branches/2.3-EXPERIMENTAL/t

[thayes at bestpractical.com]

Author: thayes
Date: Fri Jul  6 11:27:11 2007
New Revision: 8065

Modified:
   rtir/branches/2.3-EXPERIMENTAL/t/001-basic-RTIR.t

Log:
Fixed require path to rtir-test.pl which I mistakenly changed

Modified: rtir/branches/2.3-EXPERIMENTAL/t/001-basic-RTIR.t
==============================================================================
--- rtir/branches/2.3-EXPERIMENTAL/t/001-basic-RTIR.t	(original)
+++ rtir/branches/2.3-EXPERIMENTAL/t/001-basic-RTIR.t	Fri Jul  6 11:27:11 2007
@@ -4,7 +4,7 @@
 use warnings;
 use Test::More tests => 23;
 
-require "rtir-test.pl";
+require "t/rtir-test.pl";
 
 my $agent = default_agent();
 
@@ -36,33 +36,10 @@
 my $second_incident_id = create_incident( $agent, { Subject => "foo Incident", Content => "bar baz quux" } );
 
 # link our report to that incident
-LinkChildToIncident(id => $report, incident => $second_incident_id);
+LinkChildToIncident(agent => $agent, id => $report, incident => $second_incident_id);
 
 # TODO: verify in DB that report has 1 parent, and the right parent
 
 
-sub LinkChildToIncident {
-    my %args = ( @_ );
 
-    my $id = $args{'id'};
-    my $incident = $args{'incident'};
-
-    display_ticket($agent, $id);
-
-    # Select the "Link" link from the Display page
-    $agent->follow_link_ok({text => "[Link]", n => "1"}, "Followed 'Link(to Incident)' link");
-
-    # TODO: Make sure desired incident appears on page
-
-    # Choose the incident and submit
-    $agent->form_number(3);
-    $agent->field("SelectedTicket", $incident);
-    $agent->click("LinkChild");
-
-    is ($agent->status, 200, "Attempting to link child $id to Incident $incident");
-
-    ok ($agent->content =~ /Ticket $id: Link created/g, "Incident $incident linked successfully.");
-
-    return;
-}