RT 4.0.13
[freeside.git] / rt / t / web / reminders.t
index 32e130c..af7e2fb 100644 (file)
@@ -1,7 +1,6 @@
-#!/usr/bin/env perl
 use strict;
 use warnings;
-use RT::Test tests => 35;
+use RT::Test tests => 45;
 
 my ($baseurl, $m) = RT::Test->started_ok;
 
@@ -27,6 +26,23 @@ $m->goto_ticket($ticket->id);
 $m->form_name('UpdateReminders');
 $m->field( 'NewReminder-Subject' => "baby's first reminder" );
 $m->submit;
+$m->content_contains("Reminder 'baby's first reminder' added");
+
+$ticket->SetStatus('deleted');
+is( $ticket->Status, 'deleted', 'deleted ticket' );
+$m->form_name('UpdateReminders');
+$m->field( 'NewReminder-Subject' => "link to a deleted ticket" );
+$m->submit;
+$m->content_contains("Can't link to a deleted ticket");
+$m->get_ok('/Tools/MyReminders.html');
+$m->content_contains( "baby's first reminder",
+    'got the reminder even the ticket is deleted' );
+
+$m->goto_ticket( $ticket->id );
+$m->content_lacks('New reminder:', "can't create a new reminder");
+$m->text_contains('Check box to complete', "we DO display this text when there are reminders");
+$m->content_like(qr{<th[^>]*>Reminders?</th>}, "now we have a reminder titlebar");
+$m->text_contains("baby's first reminder", "display the reminder's subject");
 
 my $reminders = RT::Reminders->new($user);
 $reminders->Ticket($ticket->id);
@@ -37,7 +53,11 @@ is($reminder->Subject, "baby's first reminder");
 my $reminder_id = $reminder->id;
 is($reminder->Status, 'new');
 
-$m->text_contains('New reminder:', 'can create a new reminder');
+$ticket->SetStatus('new');
+is( $ticket->Status, 'new', 'changed back to new' );
+
+$m->goto_ticket($ticket->id);
+$m->text_contains('New reminder:', "can create a new reminder");
 $m->text_contains('Check box to complete', "we DO display this text when there are reminders");
 $m->content_like(qr{<th[^>]*>Reminders?</th>}, "now we have a reminder titlebar");
 $m->text_contains("baby's first reminder", "display the reminder's subject");