summaryrefslogtreecommitdiff
path: root/rt/t/api/reminders.t
diff options
context:
space:
mode:
Diffstat (limited to 'rt/t/api/reminders.t')
-rw-r--r--rt/t/api/reminders.t88
1 files changed, 0 insertions, 88 deletions
diff --git a/rt/t/api/reminders.t b/rt/t/api/reminders.t
deleted file mode 100644
index fd1c6a69f..000000000
--- a/rt/t/api/reminders.t
+++ /dev/null
@@ -1,88 +0,0 @@
-
-use strict;
-use warnings;
-use RT;
-use RT::Test tests => 20;
-
-
-{
-
-# Create test queues
-use_ok ('RT::Queue');
-
-ok(my $testqueue = RT::Queue->new($RT::SystemUser), 'Instantiate RT::Queue');
-ok($testqueue->Create( Name => 'reminders tests'), 'Create new queue: reminders tests');
-isnt($testqueue->Id , 0, 'Success creating queue');
-
-ok($testqueue->Create( Name => 'reminders tests 2'), 'Create new queue: reminders tests 2');
-isnt($testqueue->Id , 0, 'Success creating queue');
-
-# Create test ticket
-use_ok('RT::Ticket');
-
-my $u = RT::User->new($RT::SystemUser);
-$u->Load("root");
-ok ($u->Id, "Found the root user");
-ok(my $t = RT::Ticket->new($RT::SystemUser), 'Instantiate RT::Ticket');
-ok(my ($id, $msg) = $t->Create( Queue => $testqueue->Id,
- Subject => 'Testing',
- Owner => $u->Id
- ), 'Create sample ticket');
-isnt($id , 0, 'Success creating ticket');
-
-# Add reminder
-my $due_obj = RT::Date->new( $RT::SystemUser );
-$due_obj->SetToNow;
-ok(my ( $add_id, $add_msg, $txnid ) = $t->Reminders->Add(
- Subject => 'TestReminder',
- Owner => 'root',
- Due => $due_obj->ISO
- ), 'Add reminder');
-
-# Check that the new Reminder is here
-my $reminders = $t->Reminders->Collection;
-ok($reminders, 'Loading reminders for this ticket');
-my $found = 0;
-while ( my $reminder = $reminders->Next ) {
- next unless $found == 0;
- $found = 1 if ( $reminder->Subject =~ m/TestReminder/ );
-}
-
-is($found, 1, 'Reminder successfully added');
-
-# Change queue
-ok (my ($move_val, $move_msg) = $t->SetQueue('reminders tests 2'), 'Moving ticket from queue "reminders tests" to "reminders tests 2"');
-
-is ($t->QueueObj->Name, 'reminders tests 2', 'Ticket successfully moved');
-
-# Check that the new reminder is still there and moved to the new queue
-$reminders = $t->Reminders->Collection;
-ok($reminders, 'Loading reminders for this ticket');
-$found = 0;
-my $ok_queue = 0;
-while ( my $reminder = $reminders->Next ) {
- next unless $found == 0;
- if ( $reminder->Subject =~ m/TestReminder/ ) {
- $found = 1;
- $ok_queue = 1 if ( $reminder->QueueObj->Name eq 'reminders tests 2' );
- }
-}
-is($found, 1, 'Reminder successfully added');
-
-is($ok_queue, 1, 'Reminder automatically moved to new queue');
-
-# Resolve reminder
-my $r_resolved = 0;
-while ( my $reminder = $reminders->Next ) {
- if ( $reminder->Subject =~ m/TestReminder/ ) {
- if ( $reminder->Status ne 'resolved' ) {
- $t->Reminders->Resolve($reminder);
- $r_resolved = 1 if ( $reminder->Status eq 'resolved' );
- }
- }
-}
-
-is($r_resolved, 1, 'Reminder resolved');
-
-}
-1;