diff --git a/test/bug.cal.t b/test/bug.cal.t index 8401a762b..3b8fb7537 100755 --- a/test/bug.cal.t +++ b/test/bug.cal.t @@ -42,65 +42,65 @@ if (open my $fh, '>', 'cal.rc') # Bug: The 'cal' command can fail when provided with challenging arguments. # Should not fail (because they are correct): -my $output = qx{../src/task rc:cal.rc cal 2>&1}; +my $output = qx{../src/task rc:cal.rc cal 2>&1 >/dev/null}; unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal'); # y due 2010 donkey 8 -$output = qx{../src/task rc:cal.rc cal y 2>&1}; +$output = qx{../src/task rc:cal.rc cal y 2>&1 >/dev/null}; unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal y'); -$output = qx{../src/task rc:cal.rc cal 8 2>&1}; +$output = qx{../src/task rc:cal.rc cal 8 2>&1 >/dev/null}; unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal 8'); -$output = qx{../src/task rc:cal.rc cal due 2>&1}; +$output = qx{../src/task rc:cal.rc cal due 2>&1 >/dev/null}; unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal due'); -$output = qx{../src/task rc:cal.rc cal 2010 2>&1}; +$output = qx{../src/task rc:cal.rc cal 2010 2>&1 >/dev/null}; unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal 2010'); -$output = qx{../src/task rc:cal.rc cal donkey 2>&1}; +$output = qx{../src/task rc:cal.rc cal donkey 2>&1 >/dev/null}; unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal donkey'); # y due 2010 donkey 8 -$output = qx{../src/task rc:cal.rc cal y due 2>&1}; +$output = qx{../src/task rc:cal.rc cal y due 2>&1 >/dev/null}; unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal y due'); -$output = qx{../src/task rc:cal.rc cal y 8 2>&1}; +$output = qx{../src/task rc:cal.rc cal y 8 2>&1 >/dev/null}; unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal y 8'); -$output = qx{../src/task rc:cal.rc cal y 2010 2>&1}; +$output = qx{../src/task rc:cal.rc cal y 2010 2>&1 >/dev/null}; unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal y 2010'); -$output = qx{../src/task rc:cal.rc cal y donkey 2>&1}; +$output = qx{../src/task rc:cal.rc cal y donkey 2>&1 >/dev/null}; unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal y donkey'); -$output = qx{../src/task rc:cal.rc cal 8 due 2>&1}; +$output = qx{../src/task rc:cal.rc cal 8 due 2>&1 >/dev/null}; unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal 8 due'); -$output = qx{../src/task rc:cal.rc cal 8 2010 2>&1}; +$output = qx{../src/task rc:cal.rc cal 8 2010 2>&1 >/dev/null}; unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal 8 2010'); -$output = qx{../src/task rc:cal.rc cal 8 donkey 2>&1}; +$output = qx{../src/task rc:cal.rc cal 8 donkey 2>&1 >/dev/null}; unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal 8 donkey'); -$output = qx{../src/task rc:cal.rc cal due 2010 2>&1}; +$output = qx{../src/task rc:cal.rc cal due 2010 2>&1 >/dev/null}; unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal due 2010'); -$output = qx{../src/task rc:cal.rc cal due donkey 2>&1}; +$output = qx{../src/task rc:cal.rc cal due donkey 2>&1 >/dev/null}; unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal due donkey'); -$output = qx{../src/task rc:cal.rc cal 2010 donkey 2>&1}; +$output = qx{../src/task rc:cal.rc cal 2010 donkey 2>&1 >/dev/null}; unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal 2010 donkey'); # y 8 due 2010 donkey -$output = qx{../src/task rc:cal.rc cal y 8 due 2>&1}; +$output = qx{../src/task rc:cal.rc cal y 8 due 2>&1 >/dev/null}; unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal y 8 due'); -$output = qx{../src/task rc:cal.rc cal y 8 2010 2>&1}; +$output = qx{../src/task rc:cal.rc cal y 8 2010 2>&1 >/dev/null}; unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal y 8 2010'); -$output = qx{../src/task rc:cal.rc cal y 8 donkey 2>&1}; +$output = qx{../src/task rc:cal.rc cal y 8 donkey 2>&1 >/dev/null}; unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal y 8 donkey'); -$output = qx{../src/task rc:cal.rc cal y due 2010 2>&1}; +$output = qx{../src/task rc:cal.rc cal y due 2010 2>&1 >/dev/null}; unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal y due 2010'); -$output = qx{../src/task rc:cal.rc cal y due donkey 2>&1}; +$output = qx{../src/task rc:cal.rc cal y due donkey 2>&1 >/dev/null}; unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal y due donkey'); -$output = qx{../src/task rc:cal.rc cal y 2010 donkey 2>&1}; +$output = qx{../src/task rc:cal.rc cal y 2010 donkey 2>&1 >/dev/null}; unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal y 2010 donkey'); -$output = qx{../src/task rc:cal.rc cal 8 due 2010 2>&1}; +$output = qx{../src/task rc:cal.rc cal 8 due 2010 2>&1 >/dev/null}; unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal 8 due 2010'); -$output = qx{../src/task rc:cal.rc cal 8 due donkey 2>&1}; +$output = qx{../src/task rc:cal.rc cal 8 due donkey 2>&1 >/dev/null}; unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal 8 due donkey'); -$output = qx{../src/task rc:cal.rc cal 8 2010 donkey 2>&1}; +$output = qx{../src/task rc:cal.rc cal 8 2010 donkey 2>&1 >/dev/null}; unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal 8 2010 donkey'); -$output = qx{../src/task rc:cal.rc cal due 2010 8 2>&1}; +$output = qx{../src/task rc:cal.rc cal due 2010 8 2>&1 >/dev/null}; unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal due 2010 8'); -$output = qx{../src/task rc:cal.rc cal due 2010 donkey 2>&1}; +$output = qx{../src/task rc:cal.rc cal due 2010 donkey 2>&1 >/dev/null}; unlike ($output, qr/(?:Assertion failed|Could note recognize|not a valid)/, 'cal due 2010 donkey'); # Cleanup. diff --git a/test/custom.columns.t b/test/custom.columns.t index f1ed444ed..b5b996f2f 100755 --- a/test/custom.columns.t +++ b/test/custom.columns.t @@ -43,7 +43,7 @@ if (open my $fh, '>', 'custom.rc') } # Generate the usage screen, and locate the custom report on it. -my $output = qx{../src/task rc:custom.rc foo 2>&1}; +my $output = qx{../src/task rc:custom.rc foo 2>&1 >/dev/null}; like ($output, qr/Unrecognized column name 'foo'\.\n/, 'custom report spotted invalid column'); # Cleanup. diff --git a/test/custom.priority_long.t b/test/custom.priority_long.t index 54f2d7aa0..d93e3e333 100755 --- a/test/custom.priority_long.t +++ b/test/custom.priority_long.t @@ -47,7 +47,7 @@ qx{../src/task rc:pri.rc add one pri:H}; qx{../src/task rc:pri.rc add two pri:M}; qx{../src/task rc:pri.rc add three pri:L}; -my $output = qx{../src/task rc:pri.rc foo 2>&1}; +my $output = qx{../src/task rc:pri.rc foo}; like ($output, qr/ID.+Pri/, 'priority.long indicator heading'); like ($output, qr/1\s+High/, 'priority.long High'); like ($output, qr/2\s+Medium/, 'priority.long Medium'); diff --git a/test/custom.recur_ind.t b/test/custom.recur_ind.t index fb8bb6905..72095cfa9 100755 --- a/test/custom.recur_ind.t +++ b/test/custom.recur_ind.t @@ -45,12 +45,12 @@ if (open my $fh, '>', 'custom.rc') # Add a recurring and non-recurring task, look for the indicator. qx{../src/task rc:custom.rc add foo due:tomorrow recur:weekly}; qx{../src/task rc:custom.rc add bar}; -my $output = qx{../src/task rc:custom.rc foo 2>&1}; +my $output = qx{../src/task rc:custom.rc foo}; like ($output, qr/ID.+R/, 'Recurrence indicator heading'); like ($output, qr/3\s+R/, 'Recurrence indicator t1'); unlike ($output, qr/2\s+R/, 'No recurrence indicator t2'); -$output = qx{../src/task rc:custom.rc foo rc.recurrence.indicator=RE 2>&1}; +$output = qx{../src/task rc:custom.rc foo rc.recurrence.indicator=RE}; like ($output, qr/3\s+RE/, 'Custom recurrence indicator t1'); unlike ($output, qr/2\s+RE/, 'No custom recurrence indicator t2'); diff --git a/test/custom.tag_ind.t b/test/custom.tag_ind.t index 50535e849..dd8ee88ee 100755 --- a/test/custom.tag_ind.t +++ b/test/custom.tag_ind.t @@ -45,12 +45,12 @@ if (open my $fh, '>', 'custom.rc') # Generate the usage screen, and locate the custom report on it. qx{../src/task rc:custom.rc add foo +tag}; qx{../src/task rc:custom.rc add bar}; -my $output = qx{../src/task rc:custom.rc foo 2>&1}; +my $output = qx{../src/task rc:custom.rc foo}; like ($output, qr/ID.+T/, 'Tag indicator heading'); like ($output, qr/1\s+\+/, 'Tag indicator t1'); unlike ($output, qr/2\s+\+/, 'No tag indicator t2'); -$output = qx{../src/task rc:custom.rc foo rc.tag.indicator=TAG 2>&1}; +$output = qx{../src/task rc:custom.rc foo rc.tag.indicator=TAG}; like ($output, qr/1\s+TAG/, 'Custom ag indicator t1'); unlike ($output, qr/2\s+TAG/, 'No custom tag indicator t2');