Unit Tests

- hyphenate.t was maing assumptions about report output that can be reduced.
This commit is contained in:
Paul Beckingham 2014-05-11 15:05:56 -04:00
parent 702e4e41fc
commit 4357f9c545

View file

@ -40,13 +40,14 @@ if (open my $fh, '>', 'bug.rc')
print $fh "confirmation=no\n"; print $fh "confirmation=no\n";
print $fh "defaultwidth=50\n"; print $fh "defaultwidth=50\n";
print $fh "detection=off\n"; print $fh "detection=off\n";
print $fh "verbose=nothing\n";
close $fh; close $fh;
ok (-r 'bug.rc', 'Created bug.rc'); ok (-r 'bug.rc', 'Created bug.rc');
} }
# Split on comma instead of hyphenating # Split on comma instead of hyphenating
my $output = qx{../src/task rc:bug.rc show report.next.columns | tail -n +4 2>&1}; my $output = qx{../src/task rc:bug.rc show report.next.columns 2>&1};
unlike ($output, qr/-/, 'split on comma for comma-separated lists'); unlike ($output, qr/-/, 'split on comma for comma-separated lists');
# Cleanup. # Cleanup.