Unit Tests

- Corrected test that assumed $rc was more than just basename.
This commit is contained in:
Paul Beckingham 2014-08-30 17:14:16 -04:00
parent 7862c70fa3
commit 51aa9a5e3e

View file

@ -51,25 +51,25 @@ if (open my $fh, '>', $rc)
my $stdout = qx{../src/task rc:$rc add 2> /dev/null};
unlike ($stdout, qr/^Additional text must be provided\.$/ms, "$ut: Errors are not sent to stdout");
my $stderr = qx{../src/task rc:$rc add 2>&1 >/dev/null};
like ($stderr, qr/^Additional text must be provided\.$/ms, "$ut: Errors are sent to stderr");
like ($stderr, qr/^Additional text must be provided\.$/ms, "$ut: Errors are sent to stderr");
# Check that headers are sent to standard error
$stdout = qx{../src/task rc:$rc list 2> /dev/null};
unlike ($stdout, qr/^Using alternate .taskrc file .+$rc$/ms, "$ut: Headers are not sent to stdout");
$stderr = qx{../src/task rc:$rc list 2>&1 >/dev/null};
like ($stderr, qr/^Using alternate .taskrc file .+$rc$/ms, "$ut: Headers are sent to stderr");
like ($stderr, qr/^Using alternate .taskrc file .+$rc$/ms, "$ut: Headers are sent to stderr");
# Check that footnotes are sent to standard error
$stdout = qx{../src/task rc:$rc rc.debug:on list 2> /dev/null};
unlike ($stdout, qr/^Configuration override rc.debug:on$/ms, "$ut: Footnotes are not sent to stdout");
$stderr = qx{../src/task rc:$rc rc.debug:on list 2>&1 >/dev/null};
like ($stderr, qr/^Configuration override rc.debug:on$/ms, "$ut: Footnotes are sent to stderr");
like ($stderr, qr/^Configuration override rc.debug:on$/ms, "$ut: Footnotes are sent to stderr");
# Check that debugs are sent to standard error
$stdout = qx{../src/task rc:$rc rc.debug:on list 2> /dev/null};
unlike ($stdout, qr/^Timer Config::load \(.+$rc\) /ms, "$ut: Debugs are not sent to stdout");
unlike ($stdout, qr/^Timer Config::load \($rc\) /ms, "$ut: Debugs are not sent to stdout");
$stderr = qx{../src/task rc:$rc rc.debug:on list 2>&1 >/dev/null};
like ($stderr, qr/^Timer Config::load \(.+$rc\) /ms, "$ut: Debugs are sent to stderr");
like ($stderr, qr/^Timer Config::load \($rc\) /ms, "$ut: Debugs are sent to stderr");
# Cleanup.
unlink qw(pending.data completed.data undo.data backlog.data), $rc;