Unit Tests

- Modified tests to include a terminator, to resolve ambiguity.
This commit is contained in:
Paul Beckingham 2014-11-09 13:57:35 -05:00
parent a07aa2bece
commit a00c5b11c8

View file

@ -46,8 +46,8 @@ if (open my $fh, '>', $rc)
# Bug 819: When I run "task add foo\'s bar." the description of the new task is "foo 's bar .". # Bug 819: When I run "task add foo\'s bar." the description of the new task is "foo 's bar .".
qx{../src/task rc:$rc add foo\\'s bar. 2>&1}; qx{../src/task rc:$rc add foo\\'s bar. 2>&1};
qx{../src/task rc:$rc add foo \\(bar\\) 2>&1}; qx{../src/task rc:$rc add -- foo \\(bar\\) 2>&1};
qx{../src/task rc:$rc add 'baz (qux)' 2>&1}; qx{../src/task rc:$rc add -- 'baz (qux)' 2>&1};
my $output = qx{../src/task rc:$rc ls 2>&1}; my $output = qx{../src/task rc:$rc ls 2>&1};
like ($output, qr/foo's bar\./, "$ut: foo's bar. --> preserved"); like ($output, qr/foo's bar\./, "$ut: foo's bar. --> preserved");