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

@ -67,9 +67,9 @@ like ($stderr, qr/^Configuration override rc.debug:on$/ms, "$ut: Footnotes are s
# 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;