Unit Tests
- Removed useless setup/teardown tests.
This commit is contained in:
@@ -27,7 +27,7 @@
|
|||||||
|
|
||||||
use strict;
|
use strict;
|
||||||
use warnings;
|
use warnings;
|
||||||
use Test::More tests => 34;
|
use Test::More tests => 32;
|
||||||
|
|
||||||
# Ensure environment has no influence.
|
# Ensure environment has no influence.
|
||||||
delete $ENV{'TASKDATA'};
|
delete $ENV{'TASKDATA'};
|
||||||
@@ -39,7 +39,6 @@ if (open my $fh, '>', 'pri.rc')
|
|||||||
print $fh "data.location=.\n",
|
print $fh "data.location=.\n",
|
||||||
"verbose=off\n";
|
"verbose=off\n";
|
||||||
close $fh;
|
close $fh;
|
||||||
ok (-r 'pri.rc', 'Created pri.rc');
|
|
||||||
}
|
}
|
||||||
|
|
||||||
# Verify that priorities can be select with the 'over' and 'under' modifiers.
|
# Verify that priorities can be select with the 'over' and 'under' modifiers.
|
||||||
@@ -98,11 +97,5 @@ unlike ($output, qr/_/, 'pri _ !> _');
|
|||||||
|
|
||||||
# Cleanup.
|
# Cleanup.
|
||||||
unlink qw(pending.data completed.data undo.data backlog.data pri.rc);
|
unlink qw(pending.data completed.data undo.data backlog.data pri.rc);
|
||||||
ok (! -r 'pending.data' &&
|
|
||||||
! -r 'completed.data' &&
|
|
||||||
! -r 'undo.data' &&
|
|
||||||
! -r 'backlog.data' &&
|
|
||||||
! -r 'pri.rc', 'Cleanup');
|
|
||||||
|
|
||||||
exit 0;
|
exit 0;
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user