gergely/taskwarrior-2.x
1
0
Fork 0
Code Issues Actions Packages Projects Releases 1 Wiki Activity

Unit Tests

Browse Source 
- 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
Download Patch File Download Diff File Expand all files Collapse all files

5
test/bug.1110.t
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' &&

4
test/count.t
View File

@@ -52,18 +52,22 @@ qx{../src/task rc:count.rc add four wait:eom 2>&1};
# expanding to 2012-04-30 24:00:00, as per ISO-8601.
qx{../src/task rc:count.rc add five due:eom recur:monthly 2>&1};
diag ("Problem: the next test fails at EOM");
my $output = qx{../src/task rc:count.rc count 2>&1};
like ($output, qr/^5\n/ms, 'count');
$output = qx{../src/task rc:count.rc count status:deleted rc.debug:1 2>&1};
like ($output, qr/^1\n/ms, 'count status:deleted');
diag ("Problem: the next test fails at EOM");
$output = qx{../src/task rc:count.rc count e 2>&1};
like ($output, qr/^3\n/ms, 'count e');
diag ("Problem: the next test fails at EOM");
$output = qx{../src/task rc:count.rc count description.startswith:f 2>&1};
like ($output, qr/^2\n/ms, 'count description.startswith:f');
diag ("Problem: the next test fails at EOM");
$output = qx{../src/task rc:count.rc count due.any: 2>&1};
like ($output, qr/^1\n/ms, 'count due.any:');

2
test/overdue.t
View File

@@ -43,7 +43,7 @@ if (open my $fh, '>', 'due.rc')
# should list only the one task.
qx{../src/task rc:due.rc add due:yesterday one 2>&1};
qx{../src/task rc:due.rc add due:tomorrow two 2>&1};
qx{../src/task rc:due.rc add due:eoy three 2>&1};
qx{../src/task rc:due.rc add due:30d three 2>&1};
my $output = qx{../src/task rc:due.rc overdue 2>&1};
like ($output, qr/one/, 'overdue: task 1 shows up');
unlike ($output, qr/two/, 'overdue: task 2 does not show up');

2
test/urgency.t
View File

@@ -301,7 +301,7 @@ $output = qx{../src/task rc:urgency.rc 43 _urgency 2>&1};
like ($output, qr/urgency 18$/ms, '+TAG = 18');
# scheduled 0 (scheduled future)
qx {../src/task rc:urgency.rc add 12a scheduled:eom 2>&1};
qx {../src/task rc:urgency.rc add 12a scheduled:30d 2>&1};
$output = qx{../src/task rc:urgency.rc 44 _urgency 2>&1};
like ($output, qr/urgency 0$/ms, 'scheduled future = 0');