Unit tests

- The dependencies.t unit test script failed to unlink completed.data,
  which polluted the subsequent test script.
- Simplified some Perl in start.t.
- Allowed for line wrapping in start.t.
This commit is contained in:
Paul Beckingham 2010-08-02 17:56:34 -04:00
parent e090f556da
commit db27328558
3 changed files with 12 additions and 10 deletions

View file

@ -32,7 +32,7 @@ use Test::More tests => 31;
# Create the rc file.
if (open my $fh, '>', 'dep.rc')
{
{
print $fh "data.location=.\n";
print $fh "dependency.confirm=yes\n";
print $fh "report.depreport.columns=id,depends,description\n";
@ -190,6 +190,9 @@ like ($output, qr/\s1\s+One\s*\n\s2\s+Four\s*\n\s3\s+2\s+Five/, 'dependencies -
unlink 'pending.data';
ok (!-r 'pending.data', 'Removed pending.data');
unlink 'completed.data';
ok (!-r 'completed.data', 'Removed completed.data');
unlink 'undo.data';
ok (!-r 'undo.data', 'Removed undo.data');