summaryrefslogtreecommitdiff
path: root/rt/t/approval/basic.t
diff options
context:
space:
mode:
Diffstat (limited to 'rt/t/approval/basic.t')
-rw-r--r--rt/t/approval/basic.t218
1 files changed, 0 insertions, 218 deletions
diff --git a/rt/t/approval/basic.t b/rt/t/approval/basic.t
deleted file mode 100644
index 597459125..000000000
--- a/rt/t/approval/basic.t
+++ /dev/null
@@ -1,218 +0,0 @@
-
-use strict;
-use warnings;
-use Test::More;
-BEGIN {
- eval { require Email::Abstract; require Test::Email; 1 }
- or plan skip_all => 'require Email::Abstract and Test::Email';
-}
-
-
-use RT;
-use RT::Test tests => 39;
-use RT::Test::Email;
-
-RT->Config->Set( LogToScreen => 'debug' );
-RT->Config->Set( UseTransactionBatch => 1 );
-my ($baseurl, $m) = RT::Test->started_ok;
-
-my $q = RT::Queue->new($RT::SystemUser);
-$q->Load('___Approvals');
-$q->SetDisabled(0);
-
-my %users;
-for my $user_name (qw(minion cfo ceo )) {
- my $user = $users{$user_name} = RT::User->new($RT::SystemUser);
- $user->Create( Name => uc($user_name),
- Privileged => 1,
- EmailAddress => $user_name.'@company.com');
- my ($val, $msg);
- ($val, $msg) = $user->PrincipalObj->GrantRight(Object =>$q, Right => $_)
- for qw(ModifyTicket OwnTicket ShowTicket);
-}
-
-# XXX: we need to make the first approval ticket open so notification is sent.
-my $approvals =
-'===Create-Ticket: for-CFO
-Queue: ___Approvals
-Type: approval
-Owner: CFO
-Requestors: {$Tickets{"TOP"}->Requestors}
-Refers-To: TOP
-Subject: CFO Approval for PO: {$Tickets{"TOP"}->Id} - {$Tickets{"TOP"}->Subject}
-Due: {time + 86400}
-Content-Type: text/plain
-Content: Your approval is requested for the PO ticket {$Tickets{"TOP"}->Id}: {$Tickets{"TOP"}->Subject}
-Blah
-Blah
-ENDOFCONTENT
-===Create-Ticket: for-CEO
-Queue: ___Approvals
-Type: approval
-Owner: CEO
-Requestors: {$Tickets{"TOP"}->Requestors}
-Subject: PO approval request for {$Tickets{"TOP"}->Subject}
-Refers-To: TOP
-Depends-On: for-CFO
-Depended-On-By: {$Tickets{"TOP"}->Id}
-Content-Type: text/plain
-Content:
-Your CFO approved PO ticket {$Tickets{"TOP"}->Id} for minion. you ok with that?
-ENDOFCONTENT
-';
-
-my $apptemp = RT::Template->new($RT::SystemUser);
-$apptemp->Create( Content => $approvals, Name => "PO Approvals", Queue => "0");
-
-ok($apptemp->Id);
-
-$q = RT::Queue->new($RT::SystemUser);
-$q->Create(Name => 'PO');
-ok ($q->Id, "Created PO queue");
-
-my $scrip = RT::Scrip->new($RT::SystemUser);
-my ($sval, $smsg) =$scrip->Create( ScripCondition => 'On Create',
- ScripAction => 'Create Tickets',
- Template => 'PO Approvals',
- Queue => $q->Id,
- Description => 'Create Approval Tickets');
-ok ($sval, $smsg);
-ok ($scrip->Id, "Created the scrip");
-ok ($scrip->TemplateObj->Id, "Created the scrip template");
-ok ($scrip->ConditionObj->Id, "Created the scrip condition");
-ok ($scrip->ActionObj->Id, "Created the scrip action");
-
-my $t = RT::Ticket->new($RT::SystemUser);
-my ($tid, $ttrans, $tmsg);
-
-mail_ok {
- ($tid, $ttrans, $tmsg) =
- $t->Create(Subject => "PO for stationary",
- Owner => "root", Requestor => 'minion',
- Queue => $q->Id);
-} { from => qr/RT System/,
- to => 'cfo@company.com',
- subject => qr/New Pending Approval: CFO Approval/,
- body => qr/pending your approval.*Your approval is requested.*Blah/s
-},{ from => qr/PO via RT/,
- to => 'minion@company.com',
- subject => qr/PO for stationary/,
- body => qr/automatically generated in response/
-};
-
-ok ($tid,$tmsg);
-
-is ($t->ReferredToBy->Count,2, "referred to by the two tickets");
-
-my $deps = $t->DependsOn;
-is ($deps->Count, 1, "The ticket we created depends on one other ticket");
-my $dependson_ceo= $deps->First->TargetObj;
-ok ($dependson_ceo->Id, "It depends on a real ticket");
-like($dependson_ceo->Subject, qr/PO approval request.*stationary/);
-
-$deps = $dependson_ceo->DependsOn;
-is ($deps->Count, 1, "The ticket we created depends on one other ticket");
-my $dependson_cfo = $deps->First->TargetObj;
-ok ($dependson_cfo->Id, "It depends on a real ticket");
-
-like($dependson_cfo->Subject, qr/CFO Approval for PO.*stationary/);
-
-is_deeply([ $t->Status, $dependson_cfo->Status, $dependson_ceo->Status ],
- [ 'new', 'open', 'new'], 'tickets in correct state');
-
-mail_ok {
- my $cfo = RT::CurrentUser->new;
- $cfo->Load( $users{cfo} );
-
- $dependson_cfo->CurrentUser($cfo);
- my $notes = MIME::Entity->build(
- Data => [ 'Resources exist to be consumed.' ]
- );
- RT::I18N::SetMIMEEntityToUTF8($notes); # convert text parts into utf-8
-
- my ( $notesval, $notesmsg ) = $dependson_cfo->Correspond( MIMEObj => $notes );
- ok($notesval, $notesmsg);
-
- my ($ok, $msg) = $dependson_cfo->SetStatus( Status => 'resolved' );
- ok($ok, "cfo can approve - $msg");
-
-} { from => qr/RT System/,
- to => 'ceo@company.com',
- subject => qr/New Pending Approval: PO approval request for PO/,
- body => qr/pending your approval.*CFO approved.*ok with that\?/s
-},{ from => qr/RT System/,
- to => 'minion@company.com',
- subject => qr/Ticket Approved:/,
- body => qr/approved by CFO.*notes: Resources exist to be consumed/s
-};
-
-is ($t->DependsOn->Count, 1, "still depends only on the CEO approval");
-is ($t->ReferredToBy->Count,2, "referred to by the two tickets");
-
-is_deeply([ $t->Status, $dependson_cfo->Status, $dependson_ceo->Status ],
- [ 'new', 'resolved', 'open'], 'ticket state after cfo approval');
-
-mail_ok {
- my $ceo = RT::CurrentUser->new;
- $ceo->Load( $users{ceo} );
-
- $dependson_ceo->CurrentUser($ceo);
- my $notes = MIME::Entity->build(
- Data => [ 'And consumed they will be.' ]
- );
- RT::I18N::SetMIMEEntityToUTF8($notes); # convert text parts into utf-8
-
- my ( $notesval, $notesmsg ) = $dependson_ceo->Correspond( MIMEObj => $notes );
- ok($notesval, $notesmsg);
-
- my ($ok, $msg) = $dependson_ceo->SetStatus( Status => 'resolved' );
- ok($ok, "ceo can approve - $msg");
-
-} { from => qr/RT System/,
- to => 'minion@company.com',
- subject => qr/Ticket Approved:/,
- body => qr/approved by CEO.*Its Owner may now start to act on it.*notes: And consumed they will be/s,
-}, { from => qr'CEO via RT',
- to => 'root@localhost',
- subject => qr/Ticket Approved/,
- body => qr/The ticket has been approved, you may now start to act on it/,
-};
-
-
-is_deeply([ $t->Status, $dependson_cfo->Status, $dependson_ceo->Status ],
- [ 'new', 'resolved', 'resolved'], 'ticket state after ceo approval');
-
-$dependson_cfo->_Set(
- Field => 'Status',
- Value => 'open');
-
-$dependson_ceo->_Set(
- Field => 'Status',
- Value => 'new');
-
-mail_ok {
- my $cfo = RT::CurrentUser->new;
- $cfo->Load( $users{cfo} );
-
- $dependson_cfo->CurrentUser($cfo);
- my $notes = MIME::Entity->build(
- Data => [ 'sorry, out of resources.' ]
- );
- RT::I18N::SetMIMEEntityToUTF8($notes); # convert text parts into utf-8
-
- my ( $notesval, $notesmsg ) = $dependson_cfo->Correspond( MIMEObj => $notes );
- ok($notesval, $notesmsg);
-
- my ($ok, $msg) = $dependson_cfo->SetStatus( Status => 'rejected' );
- ok($ok, "cfo can approve - $msg");
-
-} { from => qr/RT System/,
- to => 'minion@company.com',
- subject => qr/Ticket Rejected: PO for stationary/,
- body => qr/rejected by CFO.*out of resources/s,
-};
-
-$t->Load($t->id);$dependson_ceo->Load($dependson_ceo->id);
-is_deeply([ $t->Status, $dependson_cfo->Status, $dependson_ceo->Status ],
- [ 'rejected', 'rejected', 'deleted'], 'ticket state after cfo rejection');
-
generated by cgit v1.2.1 (git 2.18.0) at 2024-12-28 17:07:37 +0000