Unit Tests

- Modified testing to accomodate new split between stdout/stderr.
This commit is contained in:
Paul Beckingham 2012-07-03 15:43:19 -04:00
parent 75822eed47
commit da575c4043
185 changed files with 1591 additions and 1591 deletions

View file

@ -41,16 +41,16 @@ if (open my $fh, '>', 'recur.rc')
# Add a recurring task, then see how many future pending tasks are
# generated by default, and by overriding rc.recurrence.limit.
qx{../src/task rc:recur.rc add ONE due:tomorrow recur:weekly};
my $output = qx{../src/task rc:recur.rc long};
qx{../src/task rc:recur.rc add ONE due:tomorrow recur:weekly 2>&1};
my $output = qx{../src/task rc:recur.rc long 2>&1};
my @tasks = $output =~ /(ONE)/g;
is (scalar @tasks, 1, 'recurrence.limit default to 1');
$output = qx{../src/task rc:recur.rc rc.recurrence.limit:4 long};
$output = qx{../src/task rc:recur.rc rc.recurrence.limit:4 long 2>&1};
@tasks = $output =~ /(ONE)/g;
is (scalar @tasks, 4, 'recurrence.limit override to 4');
$output = qx{../src/task rc:recur.rc diag};
$output = qx{../src/task rc:recur.rc diag 2>&1};
like ($output, qr/No duplicates found/, 'No duplicate UUIDs detected');
# Cleanup.