mirror of
https://github.com/GothenburgBitFactory/taskwarrior.git
synced 2025-08-19 09:53:08 +02:00
0ac6578899
- When formating real numbers that are between 0 and 1, the width controls the number of characters that are shown (with width "4", "0.01234" is shown as "0.01").
327 lines
13 KiB
Perl
Executable file
327 lines
13 KiB
Perl
Executable file
#! /usr/bin/perl
|
|
################################################################################
|
|
## taskwarrior - a command line task list manager.
|
|
##
|
|
## Copyright 2006-2012, Paul Beckingham, Federico Hernandez.
|
|
##
|
|
## Permission is hereby granted, free of charge, to any person obtaining a copy
|
|
## of this software and associated documentation files (the "Software"), to deal
|
|
## in the Software without restriction, including without limitation the rights
|
|
## to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
|
|
## copies of the Software, and to permit persons to whom the Software is
|
|
## furnished to do so, subject to the following conditions:
|
|
##
|
|
## The above copyright notice and this permission notice shall be included
|
|
## in all copies or substantial portions of the Software.
|
|
##
|
|
## THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
|
|
## OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
|
## FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
|
|
## THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
|
## LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
|
|
## OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
|
|
## SOFTWARE.
|
|
##
|
|
## http://www.opensource.org/licenses/mit-license.php
|
|
##
|
|
################################################################################
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Test::More tests => 49;
|
|
|
|
# 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 2>&1}; # task 1
|
|
qx{../src/task rc:urgency.rc add 1a pri:H 2>&1}; # task 2
|
|
qx{../src/task rc:urgency.rc add 1b pri:M 2>&1}; # task 3
|
|
qx{../src/task rc:urgency.rc add 1c pri:L 2>&1}; # task 4
|
|
|
|
# priority: 0 (pending)
|
|
my $output = qx{../src/task rc:urgency.rc 1 _urgency 2>&1};
|
|
like ($output, qr/urgency 0$/ms, 'Control = 0');
|
|
|
|
# priority: 10 (pri:H)
|
|
$output = qx{../src/task rc:urgency.rc 2 _urgency 2>&1};
|
|
like ($output, qr/urgency 10$/ms, 'pri:H = 10');
|
|
|
|
# priority: 6.5 (pri:M)
|
|
$output = qx{../src/task rc:urgency.rc 3 _urgency 2>&1};
|
|
like ($output, qr/urgency 6\.5$/ms, 'pri:M = 6.5');
|
|
|
|
# priority: 3 (pri:L)
|
|
$output = qx{../src/task rc:urgency.rc 4 _urgency 2>&1};
|
|
like ($output, qr/urgency 3$/ms, 'pri:L = 3');
|
|
|
|
# project: 10 (project)
|
|
qx{../src/task rc:urgency.rc add 2a project:P 2>&1}; # task 5
|
|
$output = qx{../src/task rc:urgency.rc 5 _urgency 2>&1};
|
|
like ($output, qr/urgency 10$/ms, 'pro:P = 10');
|
|
|
|
# active: 10 (active)
|
|
qx{../src/task rc:urgency.rc add 3a 2>&1}; # task 6
|
|
qx{../src/task rc:urgency.rc 6 start 2>&1};
|
|
$output = qx{../src/task rc:urgency.rc 6 _urgency 2>&1};
|
|
like ($output, qr/urgency 10$/ms, 'active = 10');
|
|
|
|
# next: 10 (+next) + 8 (1 tag)
|
|
qx{../src/task rc:urgency.rc add 4a +next 2>&1}; # task 7
|
|
$output = qx{../src/task rc:urgency.rc 7 _urgency 2>&1};
|
|
like ($output, qr/urgency 18$/ms, '+next = 18');
|
|
|
|
# tags
|
|
qx{../src/task rc:urgency.rc add 5a +one 2>&1}; # task 8
|
|
qx{../src/task rc:urgency.rc add 5b +one +two 2>&1}; # task 9
|
|
qx{../src/task rc:urgency.rc add 5c +one +two +three 2>&1}; # task 10
|
|
qx{../src/task rc:urgency.rc add 5d +one +two +three +four 2>&1}; # task 11
|
|
|
|
# tags: 8 (1 tag)
|
|
$output = qx{../src/task rc:urgency.rc 8 _urgency 2>&1};
|
|
like ($output, qr/urgency 8$/ms, '+one = 8');
|
|
|
|
# tags: 9 (2 tags)
|
|
$output = qx{../src/task rc:urgency.rc 9 _urgency 2>&1};
|
|
like ($output, qr/urgency 9$/ms, '+one +two = 9');
|
|
|
|
# tags: 10 (3 tags)
|
|
$output = qx{../src/task rc:urgency.rc 10 _urgency 2>&1};
|
|
like ($output, qr/urgency 10$/ms, '+one +two +three = 10');
|
|
|
|
# tags: 10 (4 tags)
|
|
$output = qx{../src/task rc:urgency.rc 10 _urgency 2>&1};
|
|
like ($output, qr/urgency 10$/ms, '+one +two +three +four = 10');
|
|
|
|
# annotations
|
|
qx{../src/task rc:urgency.rc add 6a 2>&1}; # task 12
|
|
qx{../src/task rc:urgency.rc 12 annotate A 2>&1};
|
|
qx{../src/task rc:urgency.rc add 6b 2>&1}; # task 13
|
|
qx{../src/task rc:urgency.rc 13 annotate A 2>&1};
|
|
qx{../src/task rc:urgency.rc 13 annotate B 2>&1};
|
|
qx{../src/task rc:urgency.rc add 6c 2>&1}; # task 14
|
|
qx{../src/task rc:urgency.rc 14 annotate A 2>&1};
|
|
qx{../src/task rc:urgency.rc 14 annotate B 2>&1};
|
|
qx{../src/task rc:urgency.rc 14 annotate C 2>&1};
|
|
qx{../src/task rc:urgency.rc add 6d 2>&1}; # task 15
|
|
qx{../src/task rc:urgency.rc 15 annotate A 2>&1};
|
|
qx{../src/task rc:urgency.rc 15 annotate B 2>&1};
|
|
qx{../src/task rc:urgency.rc 15 annotate C 2>&1};
|
|
qx{../src/task rc:urgency.rc 15 annotate D 2>&1};
|
|
|
|
# annotations: 8 (1 annotation)
|
|
$output = qx{../src/task rc:urgency.rc 12 _urgency 2>&1};
|
|
like ($output, qr/urgency 8$/ms, '1 annotation = 8');
|
|
|
|
# annotations: 9 (2 annotations)
|
|
$output = qx{../src/task rc:urgency.rc 13 _urgency 2>&1};
|
|
like ($output, qr/urgency 9$/ms, '2 annotations = 9');
|
|
|
|
# annotations: 10 (3 annotations)
|
|
$output = qx{../src/task rc:urgency.rc 14 _urgency 2>&1};
|
|
like ($output, qr/urgency 10$/ms, '3 annotations = 10');
|
|
|
|
# annotations: 10 (4 annotations)
|
|
$output = qx{../src/task rc:urgency.rc 15 _urgency 2>&1};
|
|
like ($output, qr/urgency 10$/ms, '4 annotations = 10');
|
|
|
|
# waiting: -10
|
|
qx{../src/task rc:urgency.rc add 7a wait:10s 2>&1}; # task 16
|
|
$output = qx{../src/task rc:urgency.rc 16 _urgency 2>&1};
|
|
like ($output, qr/urgency -10$/ms, 'waiting = -10');
|
|
|
|
# blocked: 10 (blocked)
|
|
qx{../src/task rc:urgency.rc add 8a depends:1 2>&1}; # task 17
|
|
$output = qx{../src/task rc:urgency.rc 17 _urgency 2>&1};
|
|
like ($output, qr/urgency 10$/ms, 'blocked = 10');
|
|
|
|
# blocking: 10 (blocking)
|
|
$output = qx{../src/task rc:urgency.rc 1 _urgency 2>&1};
|
|
like ($output, qr/urgency 10$/ms, 'blocking = 10');
|
|
|
|
# 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 2>&1}; # task 18
|
|
qx{../src/task rc:urgency.rc add 9b due:-7d 2>&1}; # task 19
|
|
qx{../src/task rc:urgency.rc add 9c due:-6d 2>&1}; # task 20
|
|
qx{../src/task rc:urgency.rc add 9d due:-5d 2>&1}; # task 21
|
|
qx{../src/task rc:urgency.rc add 9e due:-4d 2>&1}; # task 22
|
|
qx{../src/task rc:urgency.rc add 9f due:-3d 2>&1}; # task 23
|
|
qx{../src/task rc:urgency.rc add 9g due:-2d 2>&1}; # task 24
|
|
qx{../src/task rc:urgency.rc add 9h due:-1d 2>&1}; # task 25
|
|
qx{../src/task rc:urgency.rc add 9i due:now 2>&1}; # task 26
|
|
qx{../src/task rc:urgency.rc add 9j due:25h 2>&1}; # task 27
|
|
qx{../src/task rc:urgency.rc add 9k due:49h 2>&1}; # task 28
|
|
qx{../src/task rc:urgency.rc add 9l due:73h 2>&1}; # task 29
|
|
qx{../src/task rc:urgency.rc add 9m due:97h 2>&1}; # task 30
|
|
qx{../src/task rc:urgency.rc add 9n due:121h 2>&1}; # task 31
|
|
qx{../src/task rc:urgency.rc add 9o due:145h 2>&1}; # task 32
|
|
qx{../src/task rc:urgency.rc add 9p due:169h 2>&1}; # task 33
|
|
qx{../src/task rc:urgency.rc add 9q due:193h 2>&1}; # task 34
|
|
qx{../src/task rc:urgency.rc add 9r due:217h 2>&1}; # task 35
|
|
qx{../src/task rc:urgency.rc add 9s due:241h 2>&1}; # task 36
|
|
qx{../src/task rc:urgency.rc add 9t due:265h 2>&1}; # task 37
|
|
qx{../src/task rc:urgency.rc add 9u due:289h 2>&1}; # task 38
|
|
qx{../src/task rc:urgency.rc add 9v due:313h 2>&1}; # task 39
|
|
qx{../src/task rc:urgency.rc add 9w due:337h 2>&1}; # task 40
|
|
qx{../src/task rc:urgency.rc add 9x due:361h 2>&1}; # task 41
|
|
|
|
# due: 10 (due:-10d)
|
|
$output = qx{../src/task rc:urgency.rc 18 _urgency 2>&1};
|
|
like ($output, qr/urgency 10$/ms, 'due:-10d = 10');
|
|
|
|
# due: 10 (due:-7d)
|
|
$output = qx{../src/task rc:urgency.rc 19 _urgency 2>&1};
|
|
like ($output, qr/urgency 10$/ms, 'due:-7d = 10');
|
|
|
|
# due: 9.6 (due:-6d)
|
|
$output = qx{../src/task rc:urgency.rc 20 _urgency 2>&1};
|
|
like ($output, qr/urgency 9.6/ms, 'due:-6d = 9.6');
|
|
|
|
# due: 9.2 (due:-5d)
|
|
$output = qx{../src/task rc:urgency.rc 21 _urgency 2>&1};
|
|
like ($output, qr/urgency 9.2/ms, 'due:-5d = 9.2');
|
|
|
|
# due: 8.8 (due:-4d)
|
|
$output = qx{../src/task rc:urgency.rc 22 _urgency 2>&1};
|
|
like ($output, qr/urgency 8.8/ms, 'due:-4d = 8.8');
|
|
|
|
# due: 8.4 (due:-3d)
|
|
$output = qx{../src/task rc:urgency.rc 23 _urgency 2>&1};
|
|
like ($output, qr/urgency 8.4/ms, 'due:-3d = 8.4');
|
|
|
|
# due: 8 (due:-2d)
|
|
$output = qx{../src/task rc:urgency.rc 24 _urgency 2>&1};
|
|
like ($output, qr/urgency 8/ms, 'due:-2d = 8');
|
|
|
|
# due: 7.6 (due:-1d)
|
|
$output = qx{../src/task rc:urgency.rc 25 _urgency 2>&1};
|
|
like ($output, qr/urgency 7.6/ms, 'due:-1d = 7.6');
|
|
|
|
# due: 7.2 (due:now)
|
|
$output = qx{../src/task rc:urgency.rc 26 _urgency 2>&1};
|
|
like ($output, qr/urgency 7.2$/ms, 'due:now = 7.2');
|
|
|
|
# due: 6.8 (due:1d)
|
|
$output = qx{../src/task rc:urgency.rc 27 _urgency 2>&1};
|
|
like ($output, qr/urgency 6.8/ms, 'due:1d = 6.8');
|
|
|
|
# due: 6.4 (due:2d)
|
|
$output = qx{../src/task rc:urgency.rc 28 _urgency 2>&1};
|
|
like ($output, qr/urgency 6.4/ms, 'due:2d = 6.4');
|
|
|
|
# due: 6 (due:3d)
|
|
$output = qx{../src/task rc:urgency.rc 29 _urgency 2>&1};
|
|
like ($output, qr/urgency 6/ms, 'due:3d = 6');
|
|
|
|
# due: 5.6 (due:4d)
|
|
$output = qx{../src/task rc:urgency.rc 30 _urgency 2>&1};
|
|
like ($output, qr/urgency 5.6/ms, 'due:4d = 5.6');
|
|
|
|
# due: 5.2 (due:5d)
|
|
$output = qx{../src/task rc:urgency.rc 31 _urgency 2>&1};
|
|
like ($output, qr/urgency 5.2/ms, 'due:5d = 5.2');
|
|
|
|
# due: 4.8 (due:6d)
|
|
$output = qx{../src/task rc:urgency.rc 32 _urgency 2>&1};
|
|
like ($output, qr/urgency 4.8/ms, 'due:6d = 4.8');
|
|
|
|
# due: 4.4 (due:7d)
|
|
$output = qx{../src/task rc:urgency.rc 33 _urgency 2>&1};
|
|
like ($output, qr/urgency 4.4/ms, 'due:7d = 4.4');
|
|
|
|
# due: 4 (due:8d)
|
|
$output = qx{../src/task rc:urgency.rc 34 _urgency 2>&1};
|
|
like ($output, qr/urgency 4/ms, 'due:8d = 4');
|
|
|
|
# due: 3.6 (due:9d)
|
|
$output = qx{../src/task rc:urgency.rc 35 _urgency 2>&1};
|
|
like ($output, qr/urgency 3.6/ms, 'due:9d = 3.6');
|
|
|
|
# due: 3.2 (due:10d)
|
|
$output = qx{../src/task rc:urgency.rc 36 _urgency 2>&1};
|
|
like ($output, qr/urgency 3.2/ms, 'due:10d = 3.2');
|
|
|
|
# due: 2.8 (due:11d)
|
|
$output = qx{../src/task rc:urgency.rc 37 _urgency 2>&1};
|
|
like ($output, qr/urgency 2.8/ms, 'due:11d = 2.8');
|
|
|
|
# due: 2.4 (due:12d)
|
|
$output = qx{../src/task rc:urgency.rc 38 _urgency 2>&1};
|
|
like ($output, qr/urgency 2.4/ms, 'due:12d = 2.4');
|
|
|
|
# due: 2 (due:13d)
|
|
$output = qx{../src/task rc:urgency.rc 39 _urgency 2>&1};
|
|
like ($output, qr/urgency 2/ms, 'due:13d = 2');
|
|
|
|
# due: 1.6 (due:14d)
|
|
$output = qx{../src/task rc:urgency.rc 40 _urgency 2>&1};
|
|
like ($output, qr/urgency 1.6/ms, 'due:14d = 1.6');
|
|
|
|
# due: 1.6 (due:20d)
|
|
$output = qx{../src/task rc:urgency.rc 41 _urgency 2>&1};
|
|
like ($output, qr/urgency 1.6$/ms, 'due:20d = 1.6');
|
|
|
|
# user.project: 10 (pro:PROJECT) + 10 (project)
|
|
qx{../src/task rc:urgency.rc add 10a project:PROJECT 2>&1}; # task 42
|
|
$output = qx{../src/task rc:urgency.rc 42 _urgency 2>&1};
|
|
like ($output, qr/urgency 20$/ms, 'pro:PROJECT = 20');
|
|
|
|
# user.tag: 10 (+TAG) + 8 (1 tag)
|
|
qx{../src/task rc:urgency.rc add 11a +TAG 2>&1}; # task 43
|
|
$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};
|
|
$output = qx{../src/task rc:urgency.rc 44 _urgency 2>&1};
|
|
like ($output, qr/urgency 0$/ms, 'scheduled future = 0');
|
|
|
|
# scheduled 5 (scheduled past)
|
|
qx {../src/task rc:urgency.rc add 12b scheduled:yesterday 2>&1};
|
|
$output = qx{../src/task rc:urgency.rc 45 _urgency 2>&1};
|
|
like ($output, qr/urgency 5$/ms, 'scheduled past = 5');
|
|
|
|
# urgency values between 0 and 1
|
|
qx {../src/task rc:urgency.rc add 13 pri:H 2>&1};
|
|
$output = qx{../src/task rc:urgency.rc rc.urgency.priority.coefficient:0.01234 46 info 2>&1};
|
|
like ($output, qr/Urgency 0.01$/ms, 'near-zero urgency is truncated');
|
|
|
|
# Cleanup.
|
|
unlink qw(pending.data completed.data undo.data backlog.data synch.key urgency.rc);
|
|
ok (! -r 'pending.data' &&
|
|
! -r 'completed.data' &&
|
|
! -r 'undo.data' &&
|
|
! -r 'backlog.data' &&
|
|
! -r 'synch.key' &&
|
|
! -r 'urgency.rc', 'Cleanup');
|
|
|
|
exit 0;
|