[Rt-commit] r19988 - in rtir/2.5/trunk: t

sunnavy at bestpractical.com sunnavy at bestpractical.com
Wed Jun 17 05:14:11 EDT 2009


Author: sunnavy
Date: Wed Jun 17 05:14:11 2009
New Revision: 19988

Modified:
   rtir/2.5/trunk/lib/RT/IR/Test/Web.pm
   rtir/2.5/trunk/t/019-watchers-on-create.t

Log:
move has_watchers method to Test/Web.pm

Modified: rtir/2.5/trunk/lib/RT/IR/Test/Web.pm
==============================================================================
--- rtir/2.5/trunk/lib/RT/IR/Test/Web.pm	(original)
+++ rtir/2.5/trunk/lib/RT/IR/Test/Web.pm	Wed Jun 17 05:14:11 2009
@@ -357,4 +357,18 @@
     return ($incident_id, $investigation_id);
 }
 
+sub has_watchers {
+    my $self = shift;
+    my $id   = shift;
+    my $type = shift || 'Correspondents';
+    local $Test::Builder::Level = $Test::Builder::Level + 1;
+
+    $self->display_ticket($id);
+
+    $self->content_like(
+qr{<td class="labeltop">Correspondents:</td>\s*<td class="value">\s*([@\w\.]+)\s*<br />}ms,
+        "Found $type",
+    );
+}
+
 1;

Modified: rtir/2.5/trunk/t/019-watchers-on-create.t
==============================================================================
--- rtir/2.5/trunk/t/019-watchers-on-create.t	(original)
+++ rtir/2.5/trunk/t/019-watchers-on-create.t	Wed Jun 17 05:14:11 2009
@@ -86,17 +86,3 @@
 	$agent->has_watchers( $solo_inv, 'AdminCc');
 }
 
-
-sub has_watchers {
-	my $agent = shift;
-	my $id = shift;
-	my $type = shift || 'Correspondents';
-    local $Test::Builder::Level = $Test::Builder::Level + 1;
-
-	$agent->display_ticket( $id);
-
-	$agent->content_like(
-        qr{<td class="labeltop">Correspondents:</td>\s*<td class="value">\s*([@\w\.]+)\s*<br />}ms,
-        "Found $type",
-    );
-}


More information about the Rt-commit mailing list