[Rt-commit] r10605 - in rt/branches/3.999-DANGEROUS/t: mail
ruz at bestpractical.com
ruz at bestpractical.com
Wed Jan 30 18:56:14 EST 2008
Author: ruz
Date: Wed Jan 30 18:56:14 2008
New Revision: 10605
Modified:
rt/branches/3.999-DANGEROUS/t/mail/gateway.t
rt/branches/3.999-DANGEROUS/t/mail/gnupg-realmail.t
rt/branches/3.999-DANGEROUS/t/mail/gnupg-reverification.t
rt/branches/3.999-DANGEROUS/t/web/cf_access.t
rt/branches/3.999-DANGEROUS/t/web/crypt-gnupg.t
rt/branches/3.999-DANGEROUS/t/web/gnupg-outgoing.t
rt/branches/3.999-DANGEROUS/t/web/gnupg-select-keys-on-create.t
rt/branches/3.999-DANGEROUS/t/web/gnupg-select-keys-on-update.t
rt/branches/3.999-DANGEROUS/t/web/ticket_owner.t
Log:
* fix all RT::Test->set_rights calls
Modified: rt/branches/3.999-DANGEROUS/t/mail/gateway.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/mail/gateway.t (original)
+++ rt/branches/3.999-DANGEROUS/t/mail/gateway.t Wed Jan 30 18:56:14 2008
@@ -255,7 +255,7 @@
diag "grant everybody with CreateTicket right" if $ENV{'TEST_VERBOSE'};
{
ok( RT::Test->set_rights(
- { Principal => $everyone_group->principal_object,
+ { principal => $everyone_group->principal_object,
right => [qw(CreateTicket)],
},
), "Granted everybody the right to create tickets");
@@ -310,7 +310,7 @@
diag "grant everyone 'ReplyToTicket' right" if $ENV{'TEST_VERBOSE'};
{
ok( RT::Test->set_rights(
- { Principal => $everyone_group->principal_object,
+ { principal => $everyone_group->principal_object,
right => [qw(CreateTicket ReplyToTicket)],
},
), "Granted everybody the right to reply to tickets" );
@@ -390,7 +390,7 @@
diag "grant everyone 'CommentOnTicket' right" if $ENV{'TEST_VERBOSE'};
{
ok( RT::Test->set_rights(
- { Principal => $everyone_group->principal_object,
+ { principal => $everyone_group->principal_object,
right => [qw(CreateTicket ReplyToTicket CommentOnTicket)],
},
), "Granted everybody the right to comment on tickets");
Modified: rt/branches/3.999-DANGEROUS/t/mail/gnupg-realmail.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/mail/gnupg-realmail.t (original)
+++ rt/branches/3.999-DANGEROUS/t/mail/gnupg-realmail.t Wed Jan 30 18:56:14 2008
@@ -42,7 +42,7 @@
}
RT::Test->set_rights(
- Principal => $everyone->principal_object,
+ principal => $everyone->principal_object,
right => ['CreateTicket'],
);
Modified: rt/branches/3.999-DANGEROUS/t/mail/gnupg-reverification.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/mail/gnupg-reverification.t (original)
+++ rt/branches/3.999-DANGEROUS/t/mail/gnupg-reverification.t Wed Jan 30 18:56:14 2008
@@ -30,7 +30,7 @@
}
RT::Test->set_rights(
- Principal => $everyone,
+ principal => $everyone,
right => ['CreateTicket'],
);
Modified: rt/branches/3.999-DANGEROUS/t/web/cf_access.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/web/cf_access.t (original)
+++ rt/branches/3.999-DANGEROUS/t/web/cf_access.t Wed Jan 30 18:56:14 2008
@@ -58,7 +58,7 @@
my $tester = RT::Test->load_or_create_user( name => 'tester', password => '123456' );
RT::Test->set_rights(
- { Principal => $tester->principal_object,
+ { principal => $tester->principal_object,
right => [qw(SeeQueue ShowTicket CreateTicket)],
},
);
@@ -90,7 +90,7 @@
}
RT::Test->set_rights(
- { Principal => $tester->principal_object,
+ { principal => $tester->principal_object,
right => [qw(SeeQueue ShowTicket CreateTicket SeeCustomField)],
},
);
@@ -124,7 +124,7 @@
}
RT::Test->set_rights(
- { Principal => $tester->principal_object,
+ { principal => $tester->principal_object,
right => [qw(SeeQueue ShowTicket CreateTicket SeeCustomField ModifyCustomField)],
},
);
Modified: rt/branches/3.999-DANGEROUS/t/web/crypt-gnupg.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/web/crypt-gnupg.t (original)
+++ rt/branches/3.999-DANGEROUS/t/web/crypt-gnupg.t Wed Jan 30 18:56:14 2008
@@ -57,7 +57,7 @@
my $qid = $queue->id;
RT::Test->set_rights(
- Principal => 'Everyone',
+ principal => 'Everyone',
right => ['CreateTicket', 'ShowTicket', 'SeeQueue', 'ModifyTicket'],
);
Modified: rt/branches/3.999-DANGEROUS/t/web/gnupg-outgoing.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/web/gnupg-outgoing.t (original)
+++ rt/branches/3.999-DANGEROUS/t/web/gnupg-outgoing.t Wed Jan 30 18:56:14 2008
@@ -38,7 +38,7 @@
ok $queue && $queue->id, 'loaded or created queue';
RT::Test->set_rights(
- Principal => 'Everyone',
+ principal => 'Everyone',
right => ['CreateTicket', 'ShowTicket', 'SeeQueue', 'ReplyToTicket', 'ModifyTicket'],
);
Modified: rt/branches/3.999-DANGEROUS/t/web/gnupg-select-keys-on-create.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/web/gnupg-select-keys-on-create.t (original)
+++ rt/branches/3.999-DANGEROUS/t/web/gnupg-select-keys-on-create.t Wed Jan 30 18:56:14 2008
@@ -36,7 +36,7 @@
ok $queue && $queue->id, 'loaded or created queue';
RT::Test->set_rights(
- Principal => 'Everyone',
+ principal => 'Everyone',
right => ['CreateTicket', 'ShowTicket', 'SeeQueue', 'ReplyToTicket', 'ModifyTicket'],
);
Modified: rt/branches/3.999-DANGEROUS/t/web/gnupg-select-keys-on-update.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/web/gnupg-select-keys-on-update.t (original)
+++ rt/branches/3.999-DANGEROUS/t/web/gnupg-select-keys-on-update.t Wed Jan 30 18:56:14 2008
@@ -36,7 +36,7 @@
ok $queue && $queue->id, 'loaded or created queue';
RT::Test->set_rights(
- Principal => 'Everyone',
+ principal => 'Everyone',
right => ['CreateTicket', 'ShowTicket', 'SeeQueue', 'ReplyToTicket', 'ModifyTicket'],
);
Modified: rt/branches/3.999-DANGEROUS/t/web/ticket_owner.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/web/ticket_owner.t (original)
+++ rt/branches/3.999-DANGEROUS/t/web/ticket_owner.t Wed Jan 30 18:56:14 2008
@@ -22,8 +22,8 @@
RT::Test->started_ok;
ok( RT::Test->set_rights(
- { Principal => $user_a, right => [qw(SeeQueue ShowTicket CreateTicket ReplyToTicket)] },
- { Principal => $user_b, right => [qw(SeeQueue ShowTicket OwnTicket)] },
+ { principal => $user_a, right => [qw(SeeQueue ShowTicket CreateTicket ReplyToTicket)] },
+ { principal => $user_b, right => [qw(SeeQueue ShowTicket OwnTicket)] },
), 'set rights');
my $agent_a = RT::Test::Web->new;
@@ -86,7 +86,7 @@
my $ticket = RT::Model::Ticket->new( current_user => RT::CurrentUser->new(id => $user_a->id ));
my ($id, $txn, $msg) = $ticket->create(
queue => $queue->id,
- Owner => $user_b->id,
+ owner => $user_b->id,
subject => 'test',
);
ok $id, 'created a ticket #'. $id or diag "error: $msg";
@@ -124,7 +124,7 @@
my $ticket = RT::Model::Ticket->new(current_user => RT::CurrentUser->new(id => $user_a->id ));
my ($id, $txn, $msg) = $ticket->create(
queue => $queue->id,
- Owner => $user_b->id,
+ owner => $user_b->id,
subject => 'test',
);
ok $id, 'created a ticket #'. $id or diag "error: $msg";
@@ -144,8 +144,8 @@
}
ok( RT::Test->set_rights(
- { Principal => $user_a, right => [qw(SeeQueue ShowTicket CreateTicket OwnTicket)] },
- { Principal => $user_b, right => [qw(SeeQueue ShowTicket OwnTicket)] },
+ { principal => $user_a, right => [qw(SeeQueue ShowTicket CreateTicket OwnTicket)] },
+ { principal => $user_b, right => [qw(SeeQueue ShowTicket OwnTicket)] },
), 'set rights');
diag "Couldn't take without coresponding right";
@@ -170,7 +170,7 @@
my $ticket = RT::Model::Ticket->new(current_user => RT::CurrentUser->new(id => $user_a->id ));
my ($id, $txn, $msg) = $ticket->create(
queue => $queue->id,
- Owner => $user_b->id,
+ owner => $user_b->id,
subject => 'test',
);
ok $id, 'created a ticket #'. $id or diag "error: $msg";
@@ -184,7 +184,7 @@
}
ok( RT::Test->set_rights(
- { Principal => $user_a, right => [qw(SeeQueue ShowTicket CreateTicket TakeTicket)] },
+ { principal => $user_a, right => [qw(SeeQueue ShowTicket CreateTicket TakeTicket)] },
), 'set rights');
diag "TakeTicket require OwnTicket to work";
@@ -205,8 +205,8 @@
}
ok( RT::Test->set_rights(
- { Principal => $user_a, right => [qw(SeeQueue ShowTicket CreateTicket OwnTicket TakeTicket)] },
- { Principal => $user_b, right => [qw(SeeQueue ShowTicket OwnTicket)] },
+ { principal => $user_a, right => [qw(SeeQueue ShowTicket CreateTicket OwnTicket TakeTicket)] },
+ { principal => $user_b, right => [qw(SeeQueue ShowTicket OwnTicket)] },
), 'set rights');
diag "TakeTicket+OwnTicket work";
@@ -235,7 +235,7 @@
my $ticket = RT::Model::Ticket->new( current_user => RT::CurrentUser->new(id => $user_a->id ));
my ($id, $txn, $msg) = $ticket->create(
queue => $queue->id,
- Owner => $user_b->id,
+ owner => $user_b->id,
subject => 'test',
);
ok $id, 'created a ticket #'. $id or diag "error: $msg";
@@ -249,8 +249,8 @@
}
ok( RT::Test->set_rights(
- { Principal => $user_a, right => [qw(SeeQueue ShowTicket CreateTicket StealTicket)] },
- { Principal => $user_b, right => [qw(SeeQueue ShowTicket OwnTicket)] },
+ { principal => $user_a, right => [qw(SeeQueue ShowTicket CreateTicket StealTicket)] },
+ { principal => $user_b, right => [qw(SeeQueue ShowTicket OwnTicket)] },
), 'set rights');
diag "StealTicket require OwnTicket to work";
@@ -258,7 +258,7 @@
my $ticket = RT::Model::Ticket->new(current_user => RT::CurrentUser->new(id => $user_a->id ));
my ($id, $txn, $msg) = $ticket->create(
queue => $queue->id,
- Owner => $user_b->id,
+ owner => $user_b->id,
subject => 'test',
);
ok $id, 'created a ticket #'. $id or diag "error: $msg";
@@ -272,8 +272,8 @@
}
ok( RT::Test->set_rights(
- { Principal => $user_a, right => [qw(SeeQueue ShowTicket CreateTicket OwnTicket StealTicket)] },
- { Principal => $user_b, right => [qw(SeeQueue ShowTicket OwnTicket)] },
+ { principal => $user_a, right => [qw(SeeQueue ShowTicket CreateTicket OwnTicket StealTicket)] },
+ { principal => $user_b, right => [qw(SeeQueue ShowTicket OwnTicket)] },
), 'set rights');
diag "StealTicket+OwnTicket work";
@@ -281,7 +281,7 @@
my $ticket = RT::Model::Ticket->new(current_user => RT::CurrentUser->new(id => $user_a->id ));
my ($id, $txn, $msg) = $ticket->create(
queue => $queue->id,
- Owner => $user_b->id,
+ owner => $user_b->id,
subject => 'test',
);
ok $id, 'created a ticket #'. $id or diag "error: $msg";
@@ -316,8 +316,8 @@
}
ok( RT::Test->set_rights(
- { Principal => $user_a, right => [qw(SeeQueue ShowTicket CreateTicket OwnTicket TakeTicket StealTicket)] },
- { Principal => $user_b, right => [qw(SeeQueue ShowTicket OwnTicket)] },
+ { principal => $user_a, right => [qw(SeeQueue ShowTicket CreateTicket OwnTicket TakeTicket StealTicket)] },
+ { principal => $user_b, right => [qw(SeeQueue ShowTicket OwnTicket)] },
), 'set rights');
diag "no Steal link when owner nobody";
@@ -342,7 +342,7 @@
my $ticket = RT::Model::Ticket->new(current_user => RT::CurrentUser->new(id => $user_a->id ));
my ($id, $txn, $msg) = $ticket->create(
queue => $queue->id,
- Owner => $user_b->id,
+ owner => $user_b->id,
subject => 'test',
);
ok $id, 'created a ticket #'. $id or diag "error: $msg";
More information about the Rt-commit
mailing list