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

@ -42,17 +42,17 @@ if (open my $fh, '>', 'bug.rc')
# Bug 656: Recurring task continually spawns new tasks
# Setup: Add a pair of recurring tasks
qx{../src/task rc:bug.rc add First recurring task due:tomorrow rec:daily};
qx{../src/task rc:bug.rc add Second recurring task due:tomorrow rec:daily};
qx{../src/task rc:bug.rc add First recurring task due:tomorrow rec:daily 2>&1};
qx{../src/task rc:bug.rc add Second recurring task due:tomorrow rec:daily 2>&1};
# Bug describes that each time task is executed, another child task of the
# Second recurring task is created.
qx{../src/task rc:bug.rc ls};
qx{../src/task rc:bug.rc ls 2>&1};
# Result: Check for an extra task the second time task ls is executed
my $output = qx{../src/task rc:bug.rc ls};
my $output = qx{../src/task rc:bug.rc ls 2>&1};
unlike ($output, qr/^\s3\s*Second recurring task\s*$/ms, 'Extra task detected.');
# Cleanup.