Unit Tests

- Enabled failing tests.  Maybe it can be fixed instead.
This commit is contained in:
Paul Beckingham 2014-11-08 14:48:27 -05:00
parent 283cae5e8c
commit db13a676bb

View file

@ -47,13 +47,11 @@ 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 .".
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 \\'baz \\(qux\\)\\' 2>&1};
qx{../src/task rc:$rc add 'baz (qux)' 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 \(bar\)/, "foo \(bar\) -- preserved");
pass ("$ut: foo \(bar\) -- preserved -- TEST SKIPPED --");
like ($output, qr/foo \(bar\)/, "$ut: foo \(bar\) -- preserved");
like ($output, qr/baz \(qux\)/, "$ut: baz \(qux\) -- preserved");
# Cleanup.