[Rt-commit] rt branch, admin_ui, updated. 32c906501a2971ac646651d78cc836a9c5bf66b9
sunnavy at bestpractical.com
sunnavy at bestpractical.com
Tue Jan 19 21:27:26 EST 2010
The branch, admin_ui has been updated
via 32c906501a2971ac646651d78cc836a9c5bf66b9 (commit)
from 6e00ab142194687f66acc881738506027f72b173 (commit)
Summary of changes:
t/web/cf_onqueue.t | 47 -----------------------
t/web/rights.t | 105 ----------------------------------------------------
2 files changed, 0 insertions(+), 152 deletions(-)
delete mode 100644 t/web/cf_onqueue.t
delete mode 100644 t/web/rights.t
- Log -----------------------------------------------------------------
commit 32c906501a2971ac646651d78cc836a9c5bf66b9
Author: sunnavy <sunnavy at bestpractical.com>
Date: Wed Jan 20 10:08:05 2010 +0800
remove old tests
diff --git a/t/web/cf_onqueue.t b/t/web/cf_onqueue.t
deleted file mode 100644
index 3c6827c..0000000
--- a/t/web/cf_onqueue.t
+++ /dev/null
@@ -1,47 +0,0 @@
-#!/usr/bin/perl -w
-use strict;
-
-use RT::Test strict => 1, tests => 4, l10n => 1;
-my ($baseurl, $m) = RT::Test->started_ok;
-
-ok $m->login, 'logged in';
-
-diag "Create a queue CF" if $ENV{'TEST_VERBOSE'};
-my $cf = RT::Model::CustomField->new( current_user => RT->system_user );
-my ( $status, $msg ) = $cf->create(
- name => 'QueueCFTest',
- description => 'QueueCFTest',
- type => 'Freeform',
- lookup_type => 'RT::Model::Queue',
- max_values => 1,
-);
-
-ok( $status, $msg );
-
-diag "Apply the new CF globally" if $ENV{'TEST_VERBOSE'};
-my $queue = RT::Model::Queue->new( current_user => RT->system_user );
-( $status, $msg ) = $cf->add_to_object( $queue );
-ok( $status, $msg );
-
-# TODO we need add cf support for queue in /admin/
-#diag "Edit the CF value for default queue" if $ENV{'TEST_VERBOSE'};
-#{
-# $m->follow_link( url => '/admin/queues/' );
-# $m->title_is(q/Admin queues/, 'queues configuration screen');
-# $m->follow_link( text => "1" );
-# $m->title_is(q/Editing Configuration for queue General/, 'default queue configuration screen');
-# $m->content_like( qr/QueueCFTest/, 'CF QueueCFTest displayed on default queue' );
-# $m->submit_form(
-# form_name => 'queue_modify',
- # The following doesn't want to works :(
- #with_fields => { 'object-RT::Model::Queue-1-CustomField-1-value' },
-# fields => {
-# 'object-RT::Model::Queue-1-CustomField-1-value' => 'QueueCFTest content',
-# },
-# );
-# $m->content_like( qr/QueueCFTest QueueCFTest content added/, 'Content filed in CF QueueCFTest for default queue' );
-#
-#}
-
-
-__END__
diff --git a/t/web/rights.t b/t/web/rights.t
deleted file mode 100644
index 5b626f3..0000000
--- a/t/web/rights.t
+++ /dev/null
@@ -1,105 +0,0 @@
-#!/usr/bin/perl -w
-use strict;
-use warnings;
-
-use RT::Test strict => 1; use Test::More tests => 14;
-
-
-my ($baseurl, $m) = RT::Test->started_ok;
-ok $m->login, "logged in";
-
-SKIP: {
-
- # TODO: tests new /admin/
- skip 'should update this for new /admin/', 12;
-
- $m->follow_link_ok( text => 'Configuration' );
- $m->follow_link_ok( text => 'Global' );
- $m->follow_link_ok( text => 'Group rights' );
-
- sub get_rights {
- my $agent = shift;
- my $principal_id = shift;
- my $object = shift;
- $agent->form_name('group_rights_modify');
- my @inputs = $agent->current_form->find_input(
- "revoke_right-$principal_id-$object");
- my @Rights = sort grep $_, map $_->possible_values, grep $_, @inputs;
- return @Rights;
- }
-
- diag "load Everyone group" if $ENV{'TEST_VERBOSE'};
- my ( $everyone, $everyone_gid );
- {
- $everyone = RT::Model::Group->new( current_user => RT->system_user );
- $everyone->load_system_internal('Everyone');
- ok( $everyone_gid = $everyone->id, "loaded 'everyone' group" );
- }
-
- diag "revoke all global rights from Everyone group" if $ENV{'TEST_VERBOSE'};
- my @has = get_rights( $m, $everyone_gid, 'RT::System-1' );
- if (@has) {
- $m->form_name('group_rights_modify');
- $m->tick( "revoke_right-$everyone_gid-RT::System-1", $_ ) foreach @has;
- $m->submit;
-
- is_deeply( [ get_rights( $m, $everyone_gid, 'RT::System-1' ) ],
- [], 'deleted all rights' );
- }
- else {
- ok( 1, 'the group has no global rights' );
- }
-
- diag "grant SuperUser right to everyone" if $ENV{'TEST_VERBOSE'};
- {
- $m->form_name('group_rights_modify');
- $m->select( "grant_right-$everyone_gid-RT::System-1", ['SuperUser'] );
- $m->submit;
-
- $m->content_contains( 'Right granted', 'got message' );
- RT::Model::Principal::invalidate_acl_cache();
- ok(
- $everyone->principal->has_right(
- right => 'SuperUser',
- object => RT->system
- ),
- 'group has right'
- );
- is_deeply( [ get_rights( $m, $everyone_gid, 'RT::System-1' ) ],
- ['SuperUser'], 'granted SuperUser right' );
- }
-
- diag "revoke the right" if $ENV{'TEST_VERBOSE'};
- {
- $m->form_name('group_rights_modify');
- $m->tick( "revoke_right-$everyone_gid-RT::System-1", 'SuperUser' );
- $m->submit;
-
- $m->content_contains( 'Right revoked', 'got message' );
- RT::Model::Principal::invalidate_acl_cache();
- ok(
- !$everyone->principal->has_right(
- right => 'SuperUser',
- object => RT->system
- ),
- 'group has no right'
- );
- is_deeply( [ get_rights( $m, $everyone_gid, 'RT::System-1' ) ],
- [], 'revoked SuperUser right' );
- }
-
- diag "return rights the group had in the beginning" if $ENV{'TEST_VERBOSE'};
- if (@has) {
- $m->form_name('group_rights_modify');
- $m->select( "grant_right-$everyone_gid-RT::System-1", \@has );
- $m->submit;
-
- $m->content_contains( 'right Granted', 'got message' );
- is_deeply( [ get_rights( $m, $everyone_gid, 'RT::System-1' ) ],
- [@has], 'returned back all rights' );
- }
- else {
- ok( 1, 'the group had no global rights, so nothing to return' );
- }
-}
-
-----------------------------------------------------------------------
More information about the Rt-commit
mailing list