- New 'long' report.
This commit is contained in:
Paul Beckingham 2013-10-19 16:25:00 -04:00
parent 685c66c416
commit 325c80b7e4
3 changed files with 13 additions and 10 deletions

View file

@ -311,11 +311,11 @@ std::string Config::_defaults =
"\n"
"# Reports\n"
"\n"
"report.long.description=Lists all pending tasks\n"
"report.long.columns=id,project,priority,entry,start,due,recur,due.countdown,entry.age,depends,tags,description\n"
"report.long.labels=ID,Proj,Pri,Added,Started,Due,Recur,Countdown,Age,Deps,Tags,Description\n"
"report.long.sort=due+,priority-,project+\n"
"report.long.filter=status:pending\n"
"report.long.description=All details of pending tasks by creation date\n"
"report.long.labels=ID,A,Created,Mod,Deps,P,Project,Tags,Recur,Wait,Sched,Due,Until,Description\n"
"report.long.columns=id,start.active,entry,modified.age,depends,priority,project,tags,recur,wait.age,scheduled,due,until,description\n"
"report.long.filter= ( status:pending or status:waiting )\n"
"report.long.sort=modified-\n"
"\n"
"report.list.description=Lists all pending tasks\n"
"report.list.columns=id,project,priority,due,start.active,entry.age,description\n"

View file

@ -56,14 +56,14 @@ qx{../src/task rc:roundtrip.rc export > ./roundtrip.txt 2>&1};
unlink 'pending.data', 'completed.data', 'undo.data';
qx{../src/task rc:roundtrip.rc import ./roundtrip.txt 2>&1};
# Exammine.
# Examine.
# ID Project Pri Added Started Due Recur Countdown Age Deps Tags Description
# -- ------- --- -------- ------- --- ----- --------- --- ---- --------- ---------
# 1 A H 8/7/2010 - one
# 2 8/7/2010 - tag1 tag2 two
my $output = qx{../src/task rc:roundtrip.rc long 2>&1};
like ($output, qr/1.+A.+H.+\d+\/\d+\/\d+.+(?:-|\d+).+one/, '2 round trips task 1 identical');
like ($output, qr/1.+\d+\/\d+\/\d+.+H.+A.+one/, '2 round trips task 1 identical');
like ($output, qr/2.+\d+\/\d+\/\d+.+(?:-|\d+).+tag1\stag2\stwo/, '2 round trips task 2 identical');
# Cleanup.

View file

@ -35,7 +35,10 @@ if (open my $fh, '>', 'uuid.rc')
{
print $fh "data.location=.\n",
"dateformat=m/d/Y\n",
"confirmation=off\n";
"confirmation=off\n",
"report.unittest.columns=id,entry,start,description\n",
"report.unittest.filter=status:pending\n",
"report.unittest.sort=id\n";
close $fh;
ok (-r 'uuid.rc', 'Created uuid.rc');
}
@ -94,7 +97,7 @@ $output = qx{../src/task rc:uuid.rc completed 2>&1};
unlike ($output, qr/UUNNDDOO/, 'task does not list UUNNDDOO after modification');
qx{../src/task rc:uuid.rc d71d3566-7a6b-4c32-8f0b-6de75bb9397b modify start:1293796800 2>&1};
$output = qx{../src/task rc:uuid.rc long 2>&1};
$output = qx{../src/task rc:uuid.rc unittest 2>&1};
like ($output, qr/12\/31\/2010/, 'modified start date of task ssttaarrtt');
qx{../src/task rc:uuid.rc 727baa6c-65b8-485e-a810-e133e3cd83dc modify end:1293796800 2>&1};
@ -103,7 +106,7 @@ like ($output, qr/12\/31\/2010/, 'modified end date of task eenndd');
qx{../src/task rc:uuid.rc aa4abef1-1dc5-4a43-b6a0-7872df3094bb modify entry:1293710400 2>&1};
qx{../src/task rc:uuid.rc aa4abef1-1dc5-4a43-b6a0-7872df3094bb modify start:1293883200 2>&1};
$output = qx{../src/task rc:uuid.rc long 2>&1};
$output = qx{../src/task rc:uuid.rc unittest 2>&1};
like ($output, qr/12\/30\/2010/, 'modified entry date of task three');
like ($output, qr/1\/1\/2011/, 'added start date of task three with modify');