[Rt-commit] r18149 - in rt/3.999/branches/merge_to_3.8.2: t/web

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Tue Feb  3 08:11:28 2009
New Revision: 18149

Modified:
   rt/3.999/branches/merge_to_3.8.2/   (props changed)
   rt/3.999/branches/merge_to_3.8.2/t/web/dashboards-groups.t

Log:
 r19480 at sunnavys-mb:  sunnavy | 2009-02-03 21:10:55 +0800
 merged t/web/dashboards-groups.t. we missed that because it only appears in 3.8.2


Modified: rt/3.999/branches/merge_to_3.8.2/t/web/dashboards-groups.t
==============================================================================
--- rt/3.999/branches/merge_to_3.8.2/t/web/dashboards-groups.t	(original)
+++ rt/3.999/branches/merge_to_3.8.2/t/web/dashboards-groups.t	Tue Feb  3 08:11:28 2009
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 use strict;
 
-use Test::More tests => 36;
+use Test::More tests => 40;
 use RT::Test;
 use RT::Dashboard;
 my ($baseurl, $m) = RT::Test->started_ok;
@@ -89,10 +89,14 @@
 is($dashboard->privacy, 'RT::Model::Group-' . $inner_group->id, "correct privacy");
 is($dashboard->possible_hidden_searches, 0, "all searches are visible");
 
+$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");
 
+$m->warning_like(qr/Permission denied/, "got a permission denied warning");
+
 $user_obj->principal->grant_right(right => 'SeeGroupDashboard', object => $inner_group);
 $m->get_ok("/Dashboards/Modify.html?id=$id");
 $m->content_contains("inner dashboard", "we now have SeeGroupDashboard right");