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

@ -47,17 +47,17 @@ if (open my $fh, '>', 'bug.rc')
# Bug #418: due.before:eow not working
# - with dateformat 'MD'
qx{../src/task rc:bug.rc add one due:6/28/2010};
qx{../src/task rc:bug.rc add two due:6/29/2010};
qx{../src/task rc:bug.rc add three due:6/30/2010};
qx{../src/task rc:bug.rc add four due:7/1/2010};
qx{../src/task rc:bug.rc add five due:7/2/2010};
qx{../src/task rc:bug.rc add six due:7/3/2010};
qx{../src/task rc:bug.rc add seven due:7/4/2010};
qx{../src/task rc:bug.rc add eight due:7/5/2010};
qx{../src/task rc:bug.rc add nine due:7/6/2010};
qx{../src/task rc:bug.rc add one due:6/28/2010 2>&1};
qx{../src/task rc:bug.rc add two due:6/29/2010 2>&1};
qx{../src/task rc:bug.rc add three due:6/30/2010 2>&1};
qx{../src/task rc:bug.rc add four due:7/1/2010 2>&1};
qx{../src/task rc:bug.rc add five due:7/2/2010 2>&1};
qx{../src/task rc:bug.rc add six due:7/3/2010 2>&1};
qx{../src/task rc:bug.rc add seven due:7/4/2010 2>&1};
qx{../src/task rc:bug.rc add eight due:7/5/2010 2>&1};
qx{../src/task rc:bug.rc add nine due:7/6/2010 2>&1};
my $output = qx{../src/task rc:bug.rc foo};
my $output = qx{../src/task rc:bug.rc foo 2>&1};
like ($output, qr/one/ms, 'task 1 listed');
like ($output, qr/two/ms, 'task 2 listed');
like ($output, qr/three/ms, 'task 3 listed');
@ -68,7 +68,7 @@ like ($output, qr/seven/ms, 'task 7 listed');
like ($output, qr/eight/ms, 'task 8 listed');
like ($output, qr/nine/ms, 'task 9 listed');
$output = qx{../src/task rc:bug.rc foo due.before:7/2/2010};
$output = qx{../src/task rc:bug.rc foo due.before:7/2/2010 2>&1};
like ($output, qr/one/ms, 'task 1 listed');
like ($output, qr/two/ms, 'task 2 listed');
like ($output, qr/three/ms, 'task 3 listed');