[Rt-commit] r5164 - in rtir/branches/1.9-EXPERIMENTAL: t

[ruz at bestpractical.com]

Author: ruz
Date: Thu May  4 17:16:31 2006
New Revision: 5164

Modified:
   rtir/branches/1.9-EXPERIMENTAL/   (props changed)
   rtir/branches/1.9-EXPERIMENTAL/t/rtir-test.pl

Log:
 r1413 at cubic-pc:  cubic | 2006-05-05 01:23:54 +0400
 * forget to merge new function


Modified: rtir/branches/1.9-EXPERIMENTAL/t/rtir-test.pl
==============================================================================
--- rtir/branches/1.9-EXPERIMENTAL/t/rtir-test.pl	(original)
+++ rtir/branches/1.9-EXPERIMENTAL/t/rtir-test.pl	Thu May  4 17:16:31 2006
@@ -77,6 +77,22 @@
     return is($1, $state, $desc);
 }
 
+sub ticket_is_linked_to_inc {
+    my $agent = shift;
+    my $id = shift;
+    my $incs = shift;
+    my $desc = shift;
+    display_ticket( $agent, $id );
+    foreach my $inc( @$incs ) {
+        my $desc = shift || "Ticket #$id is linked to the Incident #$inc";
+        $agent->content_like(
+            qr{Incident:\s*</td>\s*<td[^>]*?>.*?\Q$inc:}ism,
+            $desc || "Ticket #$id is linked to the Incident #$inc"
+        ) or return 0;
+    }
+    return 1;
+}
+
 sub create_user {
     my $user_obj = rtir_user();