[Rt-commit] rt branch, 4.0/group-dashboards, created. rt-4.0.1-121-g7c85c01

[Alex Vandiver]

The branch, 4.0/group-dashboards has been created
        at  7c85c01001ba272fb8dc7cbe7a8f971b412dafbe (commit)

- Log -----------------------------------------------------------------
commit 7c85c01001ba272fb8dc7cbe7a8f971b412dafbe
Author: Alex Vandiver <alexmv at bestpractical.com>
Date:   Thu Jul 14 14:15:49 2011 -0400

    Test that group dashboards are correctly listed

diff --git a/t/web/dashboards-groups.t b/t/web/dashboards-groups.t
index f424d68..ba64cc6 100644
--- a/t/web/dashboards-groups.t
+++ b/t/web/dashboards-groups.t
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 use strict;
 
-use RT::Test nodata => 1, tests => 35;
+use RT::Test nodata => 1, tests => 39;
 my ($baseurl, $m) = RT::Test->started_ok;
 
 my $url = $m->rt_base_url;
@@ -95,3 +95,22 @@ $m->content_contains("inner dashboard", "we now have SeeGroupDashboard right");
 $m->content_lacks("Permission denied");
 $m->content_contains('Subscription', "Subscription link not hidden because we have SubscribeDashboard");
 
+
+$m->get_ok("/Dashboards/index.html");
+
+TODO: {
+    local $TODO = "We currently entirely fail to show group dashboards";
+    $m->content_contains("inner dashboard", "We can see the inner dashboard from the UI");
+}
+
+my ($group) = grep {$_->isa("RT::Group") and $_->Id == $inner_group->Id}
+    RT::Dashboard->new($currentuser)->_PrivacyObjects;
+ok($group, "Found the group in  the privacy objects list");
+
+
+TODO: {
+    local $TODO = "We currently entirely fail to show group dashboards";
+    ($group) = grep {$_->isa("RT::Group") and $_->Id == $inner_group->Id}
+        RT::Dashboard->new($currentuser)->ObjectsForLoading;
+    ok($group, "Found the group in the objects for loading");
+}

-----------------------------------------------------------------------