mirror of
https://github.com/GothenburgBitFactory/taskwarrior.git
synced 2025-07-07 20:06:36 +02:00
be0522d567
- Annotation timestamps are now incremented until unique. This prevents rapid, successive annotations colliding. The kind that occur during unit tests and when using UI wrapper programs. - Removed 'sleep' commands in unit tests that were added to circumvent this. This speeds up the test suite somewhat.
319 lines
12 KiB
Perl
Executable file
319 lines
12 KiB
Perl
Executable file
#! /usr/bin/perl
|
|
################################################################################
|
|
## taskwarrior - a command line task list manager.
|
|
##
|
|
## Copyright 2006 - 2011, Paul Beckingham, Federico Hernandez.
|
|
## All rights reserved.
|
|
##
|
|
## This program is free software; you can redistribute it and/or modify it under
|
|
## the terms of the GNU General Public License as published by the Free Software
|
|
## Foundation; either version 2 of the License, or (at your option) any later
|
|
## version.
|
|
##
|
|
## This program is distributed in the hope that it will be useful, but WITHOUT
|
|
## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
|
|
## FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
|
|
## details.
|
|
##
|
|
## You should have received a copy of the GNU General Public License along with
|
|
## this program; if not, write to the
|
|
##
|
|
## Free Software Foundation, Inc.,
|
|
## 51 Franklin Street, Fifth Floor,
|
|
## Boston, MA
|
|
## 02110-1301
|
|
## USA
|
|
##
|
|
################################################################################
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Test::More tests => 50;
|
|
|
|
# Create the rc file.
|
|
if (open my $fh, '>', 'urgency.rc')
|
|
{
|
|
print $fh "data.location=.\n",
|
|
"urgency.priority.coefficient=10\n",
|
|
"urgency.active.coefficient=10\n",
|
|
"urgency.project.coefficient=10\n",
|
|
"urgency.due.coefficient=10\n",
|
|
"urgency.blocking.coefficient=10\n",
|
|
"urgency.blocked.coefficient=10\n",
|
|
"urgency.annotations.coefficient=10\n",
|
|
"urgency.tags.coefficient=10\n",
|
|
"urgency.waiting.coefficient=10\n",
|
|
"urgency.next.coefficient=10\n",
|
|
"urgency.user.project.PROJECT.coefficient=10\n",
|
|
"urgency.user.tag.TAG.coefficient=10\n",
|
|
"confirmation=off\n";
|
|
|
|
close $fh;
|
|
ok (-r 'urgency.rc', 'Created urgency.rc');
|
|
}
|
|
|
|
# Add a task, and verify that the individual urgency terms are being correctly
|
|
# calculated.
|
|
|
|
# priority
|
|
qx{../src/task rc:urgency.rc add control}; # task 1
|
|
qx{../src/task rc:urgency.rc add 1a pri:H}; # task 2
|
|
qx{../src/task rc:urgency.rc add 1b pri:M}; # task 3
|
|
qx{../src/task rc:urgency.rc add 1c pri:L}; # task 4
|
|
|
|
# priority: 10 (pending)
|
|
my $output = qx{../src/task rc:urgency.rc 1 _urgency};
|
|
like ($output, qr/urgency 10$/ms, 'Control = 10');
|
|
|
|
# priority: 10 (pri:H) + 10 (pending)
|
|
$output = qx{../src/task rc:urgency.rc 2 _urgency};
|
|
like ($output, qr/urgency 20$/ms, 'pri:H = 20');
|
|
|
|
# priority: 6.5 (pri:M) + 10 (pending)
|
|
$output = qx{../src/task rc:urgency.rc 3 _urgency};
|
|
like ($output, qr/urgency 16\.5$/ms, 'pri:M = 16.5');
|
|
|
|
# priority: 3 (pri:L) + 10 (pending)
|
|
$output = qx{../src/task rc:urgency.rc 4 _urgency};
|
|
like ($output, qr/urgency 13$/ms, 'pri:L = 13');
|
|
|
|
# project: 10 (project) + 10 (pending)
|
|
qx{../src/task rc:urgency.rc add 2a project:P}; # task 5
|
|
$output = qx{../src/task rc:urgency.rc 5 _urgency};
|
|
like ($output, qr/urgency 20$/ms, 'pro:P = 20');
|
|
|
|
# active: 10 (active) + 10 (pending)
|
|
qx{../src/task rc:urgency.rc add 3a}; # task 6
|
|
qx{../src/task rc:urgency.rc 6 start};
|
|
$output = qx{../src/task rc:urgency.rc 6 _urgency};
|
|
like ($output, qr/urgency 20$/ms, 'active = 20');
|
|
|
|
# next: 10 (+next) + 8 (1 tag) + 10 (pending)
|
|
qx{../src/task rc:urgency.rc add 4a +next}; # task 7
|
|
$output = qx{../src/task rc:urgency.rc 7 _urgency};
|
|
like ($output, qr/urgency 28$/ms, '+next = 28');
|
|
|
|
# tags
|
|
qx{../src/task rc:urgency.rc add 5a +one}; # task 8
|
|
qx{../src/task rc:urgency.rc add 5b +one +two}; # task 9
|
|
qx{../src/task rc:urgency.rc add 5c +one +two +three}; # task 10
|
|
qx{../src/task rc:urgency.rc add 5d +one +two +three +four}; # task 11
|
|
|
|
# tags: 8 (1 tag) + 10 (pending)
|
|
$output = qx{../src/task rc:urgency.rc 8 _urgency};
|
|
like ($output, qr/urgency 18$/ms, '+one = 18');
|
|
|
|
# tags: 9 (2 tags) + 10 (pending)
|
|
$output = qx{../src/task rc:urgency.rc 9 _urgency};
|
|
like ($output, qr/urgency 19$/ms, '+one +two = 19');
|
|
|
|
# tags: 10 (3 tags) + 10 (pending)
|
|
$output = qx{../src/task rc:urgency.rc 10 _urgency};
|
|
like ($output, qr/urgency 20$/ms, '+one +two +three = 20');
|
|
|
|
# tags: 10 (4 tags) + 10 (pending)
|
|
$output = qx{../src/task rc:urgency.rc 10 _urgency};
|
|
like ($output, qr/urgency 20$/ms, '+one +two +three +four = 20');
|
|
|
|
# annotations
|
|
qx{../src/task rc:urgency.rc add 6a}; # task 12
|
|
qx{../src/task rc:urgency.rc 12 annotate A};
|
|
qx{../src/task rc:urgency.rc add 6b}; # task 13
|
|
qx{../src/task rc:urgency.rc 13 annotate A};
|
|
qx{../src/task rc:urgency.rc 13 annotate B};
|
|
qx{../src/task rc:urgency.rc add 6c}; # task 14
|
|
qx{../src/task rc:urgency.rc 14 annotate A};
|
|
qx{../src/task rc:urgency.rc 14 annotate B};
|
|
qx{../src/task rc:urgency.rc 14 annotate C};
|
|
qx{../src/task rc:urgency.rc add 6d}; # task 15
|
|
qx{../src/task rc:urgency.rc 15 annotate A};
|
|
qx{../src/task rc:urgency.rc 15 annotate B};
|
|
qx{../src/task rc:urgency.rc 15 annotate C};
|
|
qx{../src/task rc:urgency.rc 15 annotate D};
|
|
|
|
# annotations: 8 (1 annotation) + 10 (pending)
|
|
$output = qx{../src/task rc:urgency.rc 12 _urgency};
|
|
like ($output, qr/urgency 18$/ms, '1 annotation = 18');
|
|
|
|
# annotations: 9 (2 annotations) + 10 (pending)
|
|
$output = qx{../src/task rc:urgency.rc 13 _urgency};
|
|
like ($output, qr/urgency 19$/ms, '2 annotations = 19');
|
|
|
|
# annotations: 10 (3 annotations) + 10 (pending)
|
|
$output = qx{../src/task rc:urgency.rc 14 _urgency};
|
|
like ($output, qr/urgency 20$/ms, '3 annotations = 20');
|
|
|
|
# annotations: 10 (4 annotations) + 10 (pending)
|
|
$output = qx{../src/task rc:urgency.rc 15 _urgency};
|
|
like ($output, qr/urgency 20$/ms, '4 annotations = 20');
|
|
|
|
# waiting: 10
|
|
qx{../src/task rc:urgency.rc add 7a wait:10s}; # task 16
|
|
$output = qx{../src/task rc:urgency.rc 16 _urgency};
|
|
like ($output, qr/urgency 0$/ms, 'waiting = 0');
|
|
|
|
# blocked: 10 (pending) + 10 (blocked)
|
|
qx{../src/task rc:urgency.rc add 8a depends:1}; # task 17
|
|
$output = qx{../src/task rc:urgency.rc 17 _urgency};
|
|
like ($output, qr/urgency 20$/ms, 'blocked = 20');
|
|
|
|
# blocking: 10 (blocking) + 10 (pending)
|
|
$output = qx{../src/task rc:urgency.rc 1 _urgency};
|
|
like ($output, qr/urgency 20$/ms, 'blocking = 20');
|
|
|
|
# due
|
|
#
|
|
# days overdue, capped at 7 -> 0.8 - 1.0
|
|
# due today -> 0.7
|
|
# days until due, capped at 14 -> 0.4 - 0.6
|
|
# has due date -> 0.3
|
|
# no due date -> 0.0
|
|
|
|
qx{../src/task rc:urgency.rc add 9a due:-10d}; # task 18
|
|
qx{../src/task rc:urgency.rc add 9b due:-7d}; # task 19
|
|
qx{../src/task rc:urgency.rc add 9c due:-6d}; # task 20
|
|
qx{../src/task rc:urgency.rc add 9d due:-5d}; # task 21
|
|
qx{../src/task rc:urgency.rc add 9e due:-4d}; # task 22
|
|
qx{../src/task rc:urgency.rc add 9f due:-3d}; # task 23
|
|
qx{../src/task rc:urgency.rc add 9g due:-2d}; # task 24
|
|
qx{../src/task rc:urgency.rc add 9h due:-1d}; # task 25
|
|
qx{../src/task rc:urgency.rc add 9i due:now}; # task 26
|
|
qx{../src/task rc:urgency.rc add 9j due:25h}; # task 27
|
|
qx{../src/task rc:urgency.rc add 9k due:49h}; # task 28
|
|
qx{../src/task rc:urgency.rc add 9l due:73h}; # task 29
|
|
qx{../src/task rc:urgency.rc add 9m due:97h}; # task 30
|
|
qx{../src/task rc:urgency.rc add 9n due:121h}; # task 31
|
|
qx{../src/task rc:urgency.rc add 9o due:145h}; # task 32
|
|
qx{../src/task rc:urgency.rc add 9p due:169h}; # task 33
|
|
qx{../src/task rc:urgency.rc add 9q due:193h}; # task 34
|
|
qx{../src/task rc:urgency.rc add 9r due:217h}; # task 35
|
|
qx{../src/task rc:urgency.rc add 9s due:241h}; # task 36
|
|
qx{../src/task rc:urgency.rc add 9t due:265h}; # task 37
|
|
qx{../src/task rc:urgency.rc add 9u due:289h}; # task 38
|
|
qx{../src/task rc:urgency.rc add 9v due:313h}; # task 39
|
|
qx{../src/task rc:urgency.rc add 9w due:337h}; # task 40
|
|
qx{../src/task rc:urgency.rc add 9x due:361h}; # task 41
|
|
|
|
# due: 10 (due:-10d) + 10 (pending)
|
|
$output = qx{../src/task rc:urgency.rc 18 _urgency};
|
|
like ($output, qr/urgency 20$/ms, 'due:-10d = 20');
|
|
|
|
# due: 10 (due:-7d) + 10 (pending)
|
|
$output = qx{../src/task rc:urgency.rc 19 _urgency};
|
|
like ($output, qr/urgency 20$/ms, 'due:-7d = 20');
|
|
|
|
# due: 9.6 (due:-6d) + 10 (pending)
|
|
$output = qx{../src/task rc:urgency.rc 20 _urgency};
|
|
like ($output, qr/urgency 19.6/ms, 'due:-6d = 19.6');
|
|
|
|
# due: 9.2 (due:-5d) + 10 (pending)
|
|
$output = qx{../src/task rc:urgency.rc 21 _urgency};
|
|
like ($output, qr/urgency 19.2/ms, 'due:-5d = 19.2');
|
|
|
|
# due: 8.8 (due:-4d) + 10 (pending)
|
|
$output = qx{../src/task rc:urgency.rc 22 _urgency};
|
|
like ($output, qr/urgency 18.8/ms, 'due:-4d = 18.8');
|
|
|
|
# due: 8.4 (due:-3d) + 10 (pending)
|
|
$output = qx{../src/task rc:urgency.rc 23 _urgency};
|
|
like ($output, qr/urgency 18.4/ms, 'due:-3d = 18.4');
|
|
|
|
# due: 8 (due:-2d) + 10 (pending)
|
|
$output = qx{../src/task rc:urgency.rc 24 _urgency};
|
|
like ($output, qr/urgency 18/ms, 'due:-2d = 18');
|
|
|
|
# due: 7.6 (due:-1d) + 10 (pending)
|
|
$output = qx{../src/task rc:urgency.rc 25 _urgency};
|
|
like ($output, qr/urgency 17.6/ms, 'due:-1d = 17.6');
|
|
|
|
# due: 7.2 (due:now) + 10 (pending)
|
|
$output = qx{../src/task rc:urgency.rc 26 _urgency};
|
|
like ($output, qr/urgency 17.2$/ms, 'due:now = 17.2');
|
|
|
|
# due: 6.8 (due:1d) + 10 (pending)
|
|
$output = qx{../src/task rc:urgency.rc 27 _urgency};
|
|
like ($output, qr/urgency 16.8/ms, 'due:1d = 16.8');
|
|
|
|
# due: 6.4 (due:2d) + 10 (pending)
|
|
$output = qx{../src/task rc:urgency.rc 28 _urgency};
|
|
like ($output, qr/urgency 16.4/ms, 'due:2d = 16.4');
|
|
|
|
# due: 6 (due:3d) + 10 (pending)
|
|
$output = qx{../src/task rc:urgency.rc 29 _urgency};
|
|
like ($output, qr/urgency 16/ms, 'due:3d = 16');
|
|
|
|
# due: 5.6 (due:4d) + 10 (pending)
|
|
$output = qx{../src/task rc:urgency.rc 30 _urgency};
|
|
like ($output, qr/urgency 15.6/ms, 'due:4d = 15.6');
|
|
|
|
# due: 5.2 (due:5d) + 10 (pending)
|
|
$output = qx{../src/task rc:urgency.rc 31 _urgency};
|
|
like ($output, qr/urgency 15.2/ms, 'due:5d = 15.2');
|
|
|
|
# due: 4.8 (due:6d) + 10 (pending)
|
|
$output = qx{../src/task rc:urgency.rc 32 _urgency};
|
|
like ($output, qr/urgency 14.8/ms, 'due:6d = 14.8');
|
|
|
|
# due: 4.4 (due:7d) + 10 (pending)
|
|
$output = qx{../src/task rc:urgency.rc 33 _urgency};
|
|
like ($output, qr/urgency 14.4/ms, 'due:7d = 14.4');
|
|
|
|
# due: 4 (due:8d) + 10 (pending)
|
|
$output = qx{../src/task rc:urgency.rc 34 _urgency};
|
|
like ($output, qr/urgency 14/ms, 'due:8d = 14');
|
|
|
|
# due: 3.6 (due:9d) + 10 (pending)
|
|
$output = qx{../src/task rc:urgency.rc 35 _urgency};
|
|
like ($output, qr/urgency 13.6/ms, 'due:9d = 13.6');
|
|
|
|
# due: 3.2 (due:10d) + 10 (pending)
|
|
$output = qx{../src/task rc:urgency.rc 36 _urgency};
|
|
like ($output, qr/urgency 13.2/ms, 'due:10d = 13.2');
|
|
|
|
# due: 2.8 (due:11d) + 10 (pending)
|
|
$output = qx{../src/task rc:urgency.rc 37 _urgency};
|
|
like ($output, qr/urgency 12.8/ms, 'due:11d = 12.8');
|
|
|
|
# due: 2.4 (due:12d) + 10 (pending)
|
|
$output = qx{../src/task rc:urgency.rc 38 _urgency};
|
|
like ($output, qr/urgency 12.4/ms, 'due:12d = 12.4');
|
|
|
|
# due: 2 (due:13d) + 10 (pending)
|
|
$output = qx{../src/task rc:urgency.rc 39 _urgency};
|
|
like ($output, qr/urgency 12/ms, 'due:13d = 12');
|
|
|
|
# due: 1.6 (due:14d) + 10 (pending)
|
|
$output = qx{../src/task rc:urgency.rc 40 _urgency};
|
|
like ($output, qr/urgency 11.6/ms, 'due:14d = 11.6');
|
|
|
|
# due: 1.6 (due:20d) + 10 (pending)
|
|
$output = qx{../src/task rc:urgency.rc 41 _urgency};
|
|
like ($output, qr/urgency 11.6$/ms, 'due:20d = 11.6');
|
|
|
|
# user.project: 10 (pro:PROJECT) + 10 (project) + 10 (pending)
|
|
qx{../src/task rc:urgency.rc add 10a project:PROJECT}; # task 42
|
|
$output = qx{../src/task rc:urgency.rc 42 _urgency};
|
|
like ($output, qr/urgency 30$/ms, 'pro:PROJECT = 30');
|
|
|
|
# user.tag: 10 (+TAG) + 8 (1 tag) + 10 (pending)
|
|
qx{../src/task rc:urgency.rc add 11a +TAG}; # task 43
|
|
$output = qx{../src/task rc:urgency.rc 43 _urgency};
|
|
like ($output, qr/urgency 28$/ms, '+TAG = 28');
|
|
|
|
# Cleanup.
|
|
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');
|
|
|
|
unlink 'backlog.data';
|
|
ok (!-r 'backlog.data', 'Removed backlog.data');
|
|
|
|
unlink 'urgency.rc';
|
|
ok (!-r 'urgency.rc', 'Removed urgency.rc');
|
|
|
|
exit 0;
|