#! /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 => 51;

# 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 'synch.key';
ok (!-r 'synch.key', 'Removed synch.key');

unlink 'urgency.rc';
ok (!-r 'urgency.rc', 'Removed urgency.rc');

exit 0;