[Rt-commit] r15917 - in rt/3.8/trunk: t/web

sartak at bestpractical.com sartak at bestpractical.com
Thu Sep 11 04:56:46 EDT 2008


Author: sartak
Date: Thu Sep 11 04:56:46 2008
New Revision: 15917

Modified:
   rt/3.8/trunk/   (props changed)
   rt/3.8/trunk/t/web/dashboards-groups.t

Log:
 r71652 at onn:  sartak | 2008-09-11 04:56:37 -0400
 Use our shiny new methods :)


Modified: rt/3.8/trunk/t/web/dashboards-groups.t
==============================================================================
--- rt/3.8/trunk/t/web/dashboards-groups.t	(original)
+++ rt/3.8/trunk/t/web/dashboards-groups.t	Thu Sep 11 04:56:46 2008
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 use strict;
 
-use Test::More tests => 41;
+use Test::More tests => 40;
 use RT::Test;
 my ($baseurl, $m) = RT::Test->started_ok;
 
@@ -86,15 +86,13 @@
 is($dashboard->Privacy, 'RT::Group-' . $inner_group->Id, "correct privacy");
 is($dashboard->PossibleHiddenSearches, 0, "all searches are visible");
 
-is($m->get_warnings, 0, "no warnings yet");
+$m->no_warnings_ok;
 
 $m->get_ok("/Dashboards/Modify.html?id=$id");
 $m->content_lacks("inner dashboard", "no SeeGroupDashboard right");
 $m->content_contains("Permission denied");
 
-my @warnings = $m->get_warnings;
-is(@warnings, 1, "no warnings yet");
-like($warnings[0], qr/Permission denied/, "got a permission denied warning");
+$m->warning_like(qr/Permission denied/, "got a permission denied warning");
 
 $user_obj->PrincipalObj->GrantRight(Right => 'SeeGroupDashboard', Object => $inner_group);
 $m->get_ok("/Dashboards/Modify.html?id=$id");


More information about the Rt-commit mailing list