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

@@ -40,14 +40,14 @@ if (open my $fh, '>', 'bug.rc')
}
# Bug 917: escaping runs amok
qx{../src/task rc:bug.rc add one \\'two\\' three};
qx{../src/task rc:bug.rc add four \\"five\\" six};
my $output = qx{../src/task rc:bug.rc list};
qx{../src/task rc:bug.rc add one \\'two\\' three 2>&1};
qx{../src/task rc:bug.rc add four \\"five\\" six 2>&1};
my $output = qx{../src/task rc:bug.rc list 2>&1};
like ($output, qr/one 'two' three/, 'Single quote preserved');
like ($output, qr/four "five" six/, 'Double quote preserved');
qx{../src/task rc:bug.rc 1,2 mod +tag};
$output = qx{../src/task rc:bug.rc list};
qx{../src/task rc:bug.rc 1,2 mod +tag 2>&1};
$output = qx{../src/task rc:bug.rc list 2>&1};
like ($output, qr/one 'two' three/, 'Single quote preserved after modification');
like ($output, qr/four "five" six/, 'Double quote preserved after modification');