Unit Tests
- Modfiied bug.485.t to use supported recurrence period values.
This commit is contained in:
@@ -47,14 +47,14 @@ if (open my $fh, '>', $rc)
|
|||||||
|
|
||||||
# Bug #485 - 'task list recur:month' doesn't list monthly tasks
|
# Bug #485 - 'task list recur:month' doesn't list monthly tasks
|
||||||
qx{../src/task rc:$rc add one due:tomorrow recur:monthly};
|
qx{../src/task rc:$rc add one due:tomorrow recur:monthly};
|
||||||
qx{../src/task rc:$rc add two due:tomorrow recur:month};
|
qx{../src/task rc:$rc add two due:tomorrow recur:1month};
|
||||||
my $output = qx{../src/task rc:$rc list recur:monthly};
|
my $output = qx{../src/task rc:$rc list recur:monthly};
|
||||||
like ($output, qr/one/, 'monthly -> monthly');
|
like ($output, qr/one/, 'monthly -> monthly');
|
||||||
like ($output, qr/two/, 'month -> monthly');
|
like ($output, qr/two/, '1month -> monthly');
|
||||||
|
|
||||||
$output = qx{../src/task rc:$rc list recur:month};
|
$output = qx{../src/task rc:$rc list recur:1month};
|
||||||
like ($output, qr/one/, 'monthly -> month');
|
like ($output, qr/one/, 'monthly -> monthly');
|
||||||
like ($output, qr/two/, 'month -> month');
|
like ($output, qr/two/, '1month -> monthly');
|
||||||
|
|
||||||
# Cleanup.
|
# Cleanup.
|
||||||
unlink qw(pending.data completed.data undo.data), $rc;
|
unlink qw(pending.data completed.data undo.data), $rc;
|
||||||
|
|||||||
Reference in New Issue
Block a user