[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