[Rt-commit] r8176 - in rtir/branches/2.3-EXPERIMENTAL: .

[thayes at bestpractical.com]

Author: thayes
Date: Mon Jul 16 17:07:54 2007
New Revision: 8176

Added:
   rtir/branches/2.3-EXPERIMENTAL/t/020-incident-and-investigation.t
Modified:
   rtir/branches/2.3-EXPERIMENTAL/   (props changed)

Log:
 r8263 at toth:  toth | 2007-07-16 17:03:03 -0400
 * Created test for the creation of an incident with investigation from an IR


Added: rtir/branches/2.3-EXPERIMENTAL/t/020-incident-and-investigation.t
==============================================================================
--- (empty file)
+++ rtir/branches/2.3-EXPERIMENTAL/t/020-incident-and-investigation.t	Mon Jul 16 17:07:54 2007
@@ -0,0 +1,49 @@
+# Tests the creation of inventory-and-investigation from an IR
+
+use strict;
+
+use Test::WWW::Mechanize;
+use Test::More qw/no_plan/;
+
+require "t/rtir-test.pl";
+
+my $agent = default_agent();
+
+
+my $ir = create_ir($agent, {Subject => 'IR for testing creation of a linked Investigation with no correspondents'});
+
+
+
+# The following is adapted from create_incident_and_investigation() in t/rtir-test.pl. The reason
+# that function is not used here is that we want to check that the creation failed in the case
+# of an empty correspondents field, while the above function tests if the creation succeeded,
+# and thus will fail if we get the result we want, and succeed if we don't!
+display_ticket($agent, $ir);
+
+
+# Select the "New" link from the Display page
+$agent->follow_link_ok({text => "[New]"}, "Followed 'New (Incident)' link");
+
+
+# Fill out forms
+$agent->form_number(3);
+
+$agent->field('Subject', 'Incident for testing empty Investigation correspondent');
+$agent->field('InvestigationSubject', 'Investigation for testing empty Investigation correspondent');
+
+
+$agent->click("CreateWithInvestigation");
+
+is ($agent->status, 200, "Attempting to create new incident and investigation linked to child $ir");
+
+$agent->content_like(qr{<ul class="action-results">\s*<li>You must enter a correspondent for the investigation</li>\s*</ul>}, "RT did not allow an empty correspondent field");
+
+
+# Okay, enough funny business. Now for some straightforward tests, how it should work
+
+create_incident_and_investigation($agent, 
+	{Subject => 'Incident for testing Incident-and-investigation-from-IR creation',
+	InvestigationSubject => 'Investigation for testing Incident-and-Investigation-from-IR creation', 
+	InvestigationRequestors => 'foo at example.com'}, {Classification => 'Spam'}, $ir);
+	
+$agent->content_unlike(qr{<li>Custom field (\d+) does not apply to this object</li>}, "Custom field allowed");