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

@ -63,24 +63,24 @@ if (open my $fh, '>', 'date3.rc')
ok (-r 'date3.rc', 'Created date3.rc');
}
qx{../src/task rc:date1.rc add foo due:20091231};
my $output = qx{../src/task rc:date1.rc info 1};
qx{../src/task rc:date1.rc add foo due:20091231 2>&1};
my $output = qx{../src/task rc:date1.rc info 1 2>&1};
like ($output, qr/\b20091231\b/, 'date format YMD parsed');
unlink 'pending.data';
ok (!-r 'pending.data', 'Removed pending.data');
qx{../src/task rc:date2.rc add foo due:12/1/09};
$output = qx{../src/task rc:date2.rc info 1};
qx{../src/task rc:date2.rc add foo due:12/1/09 2>&1};
$output = qx{../src/task rc:date2.rc info 1 2>&1};
like ($output, qr/\b12\/1\/09\b/, 'date format m/d/y parsed');
unlink 'pending.data';
ok (!-r 'pending.data', 'Removed pending.data');
qx{../src/task rc:date3.rc add foo due:4/8/10};
$output = qx{../src/task rc:date3.rc list};
qx{../src/task rc:date3.rc add foo due:4/8/10 2>&1};
$output = qx{../src/task rc:date3.rc list 2>&1};
like ($output, qr/Thursday 08 April 2010 \(v14\)/, 'date format A D B Y (vV) parsed');
$output = qx{../src/task rc:date3.rc rc.dateformat.report:"D b Y - a" list};
$output = qx{../src/task rc:date3.rc rc.dateformat.report:"D b Y - a" list 2>&1};
like ($output, qr/08 Apr 2010 - Thu/, 'date format D b Y - a parsed');
# Cleanup.