Unit Tests

- Fixed syntax error in test.
- Fixed tests that were broken, but did not detect that.
This commit is contained in:
Paul Beckingham 2012-08-28 14:36:21 +02:00
parent 660f7bd98e
commit e796d7a2f1
2 changed files with 3 additions and 3 deletions

View file

@ -55,7 +55,7 @@ ok ($? == 0, 'Exit status check');
unlike ($output, qr/Some of your .taskrc variables differ/, 'Message is not shown when no non-default matches in pattern');
# Bug 1065 - CmdShow should not display the unrecognized message if no non-default in matched elements.
my $output = qx{../src/task rc:bug.rc show notrecog 2>&1};
$output = qx{../src/task rc:bug.rc show notrecog 2>&1};
ok ($? == 0, 'Exit status check');
like ($output, qr/Your .taskrc file contains these unrecognized variables:/, 'Message is shown when unrecognized matches in pattern');

View file

@ -43,10 +43,10 @@ if (open my $fh, '>', 'bug.rc')
qx{../src/task rc:bug.rc add test 2>&1};
my $output = qx{TASKRC=bug.rc ../src/task rc:bug.rc ids};
my $output = qx{TASKRC=bug.rc ../src/task rc:bug.rc ids 2>&1};
unlike ($output, qr/TASKRC/ms, 'The header does not appear with "ids"');
$output = qx{TASKRC=bug.rc ../src/task uuids};
$output = qx{TASKRC=bug.rc ../src/task uuids 2>&1};
unlike ($output, qr/TASKRC/ms, 'The header does not appear with "uuids"');
$output = qx{TASKRC=bug.rc ../src/task _ids 2>&1};