- Tasks may now be given an 'until' date, after which they expire and are
  deleted.
This commit is contained in:
Paul Beckingham 2012-05-13 23:43:53 -04:00
parent d122173103
commit 665bc197dc
11 changed files with 40 additions and 18 deletions

View file

@ -45,8 +45,8 @@ qx{../src/task rc:bug.rc add foo due:today recur:daily until:eom};
my $output = qx{../src/task rc:bug.rc info 1};
# Result: Make sure the 'until' date is rendered as a date, not an epoch.
unlike ($output, qr/Recur until\s+\d{10}/, 'until is not shown as an epoch');
like ($output, qr/Recur until\s+\d+\/\d+\/\d{4}/, 'until is shown as a date');
unlike ($output, qr/Until\s+\d{10}/, 'until is not shown as an epoch');
like ($output, qr/Until\s+\d+\/\d+\/\d{4}/, 'until is shown as a date');
# Cleanup.
unlink qw(pending.data completed.data undo.data backlog.data synch.key bug.rc);

View file

@ -53,7 +53,7 @@ qx{../src/task rc:recur.rc 3 do};
qx{../src/task rc:recur.rc 4 do};
qx{../src/task rc:recur.rc 5 do};
$output = qx{../src/task rc:recur.rc list};
like ($output, qr/and has been deleted/, 'Parent task deleted');
like ($output, qr/and was deleted/, 'Parent task deleted');
$output = qx{../src/task rc:recur.rc diag};
like ($output, qr/No duplicates found/, 'No duplicate UUIDs detected');