From 43daabdb9a40977cdbadf2e3e85524c2dd909995 Mon Sep 17 00:00:00 2001 From: Paul Beckingham Date: Thu, 3 Jul 2014 13:43:14 -0400 Subject: [PATCH] Unit Tests - Modfiied bug.485.t to use supported recurrence period values. --- test/bug.485.t | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/test/bug.485.t b/test/bug.485.t index 315bf5ac7..bcd89137c 100755 --- a/test/bug.485.t +++ b/test/bug.485.t @@ -47,14 +47,14 @@ if (open my $fh, '>', $rc) # 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 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}; 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}; -like ($output, qr/one/, 'monthly -> month'); -like ($output, qr/two/, 'month -> month'); +$output = qx{../src/task rc:$rc list recur:1month}; +like ($output, qr/one/, 'monthly -> monthly'); +like ($output, qr/two/, '1month -> monthly'); # Cleanup. unlink qw(pending.data completed.data undo.data), $rc;