Unit Tests

- Fixed some tests so they no longer fail at EOM, by using "30d" to project into
  the future, instead of just "eom".
- The count.t test script has 4 tests still failing at EOM, but warnings are now
  emitted until we figure out how to improve them.
- Added a test to bug.1110.t.
This commit is contained in:
Paul Beckingham
2012-12-31 10:07:48 -05:00
parent cfac0c42e8
commit a7b20b7a4e
4 changed files with 10 additions and 3 deletions

View File

@@ -28,7 +28,7 @@
use strict;
use warnings;
use Test::More tests => 3;
use Test::More tests => 4;
# Create the rc file.
if (open my $fh, '>', 'bug.rc')
@@ -45,6 +45,9 @@ qx{../src/task rc:bug.rc 1 done 2>&1};
my $output = qx{../src/task all status:Completed rc:bug.rc 2>&1};
like ($output, qr/ToBeCompleted/, 'status:Completed returns completed tasks');
$output = qx{../src/task all status:completed rc:bug.rc 2>&1};
like ($output, qr/ToBeCompleted/, 'status:completed returns completed tasks');
# Cleanup.
unlink qw(pending.data completed.data undo.data backlog.data synch.key bug.rc);
ok (! -r 'pending.data' &&