From 51aa9a5e3e85bdb111a21a8378af76e7a8bed527 Mon Sep 17 00:00:00 2001 From: Paul Beckingham Date: Sat, 30 Aug 2014 17:14:16 -0400 Subject: [PATCH] Unit Tests - Corrected test that assumed $rc was more than just basename. --- test/feature.1013.t | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/test/feature.1013.t b/test/feature.1013.t index e5aa77c97..5ea4256f3 100755 --- a/test/feature.1013.t +++ b/test/feature.1013.t @@ -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;