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

@ -43,14 +43,14 @@ if (open my $fh, '>', 'custom.rc')
}
# Add a recurring and non-recurring task, look for the indicator.
qx{../src/task rc:custom.rc add foo due:tomorrow recur:weekly};
qx{../src/task rc:custom.rc add bar};
my $output = qx{../src/task rc:custom.rc foo};
qx{../src/task rc:custom.rc add foo due:tomorrow recur:weekly 2>&1};
qx{../src/task rc:custom.rc add bar 2>&1};
my $output = qx{../src/task rc:custom.rc foo 2>&1};
like ($output, qr/ID.+R/, 'Recurrence indicator heading');
like ($output, qr/3\s+R/, 'Recurrence indicator t1');
unlike ($output, qr/2\s+R/, 'No recurrence indicator t2');
$output = qx{../src/task rc:custom.rc foo rc.recurrence.indicator=RE};
$output = qx{../src/task rc:custom.rc foo rc.recurrence.indicator=RE 2>&1};
like ($output, qr/3\s+RE/, 'Custom recurrence indicator t1');
unlike ($output, qr/2\s+RE/, 'No custom recurrence indicator t2');