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

Unit Tests

Browse Source 
- Corrected unit tests, given l10n string changes.
- Upgraded to use the new template.
This commit is contained in:
Paul Beckingham
2014-09-06 14:16:22 -04:00
parent 02b2b9b212
commit 0d2f9c6f1c
1 changed files with 37 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

70
test/project.t
View File

@@ -33,8 +33,12 @@ use Test::More tests => 16;
delete $ENV{'TASKDATA'};
delete $ENV{'TASKRC'};
use File::Basename;
my $ut = basename ($0);
my $rc = $ut . '.rc';
# Create the rc file.
if (open my $fh, '>', 'pro.rc')
if (open my $fh, '>', $rc)
{
print $fh "data.location=.\n",
"confirmation=off\n";
@@ -42,42 +46,42 @@ if (open my $fh, '>', 'pro.rc')
}
# Test the project status numbers.
my $output = qx{../src/task rc:pro.rc add one pro:foo 2>&1 >/dev/null};
like ($output, qr/The project 'foo' has changed\. Project 'foo' is 0% complete \(1 of 1 tasks remaining\)\./, 'add one');
my $output = qx{../src/task rc:$rc add one pro:foo 2>&1 >/dev/null};
like ($output, qr/The project 'foo' has changed\. Project 'foo' is 0% complete \(1 task remaining\)\./, "$ut: add one");
$output = qx{../src/task rc:pro.rc add two pro:'foo' 2>&1 >/dev/null};
like ($output, qr/The project 'foo' has changed\. Project 'foo' is 0% complete \(2 of 2 tasks remaining\)\./, 'add two');
$output = qx{../src/task rc:$rc add two pro:'foo' 2>&1 >/dev/null};
like ($output, qr/The project 'foo' has changed\. Project 'foo' is 0% complete \(2 of 2 tasks remaining\)\./, "$ut: add two");
$output = qx{../src/task rc:pro.rc add three pro:'foo' 2>&1 >/dev/null};
like ($output, qr/The project 'foo' has changed\. Project 'foo' is 0% complete \(3 of 3 tasks remaining\)\./, 'add three');
$output = qx{../src/task rc:$rc add three pro:'foo' 2>&1 >/dev/null};
like ($output, qr/The project 'foo' has changed\. Project 'foo' is 0% complete \(3 of 3 tasks remaining\)\./, "$ut: add three");
$output = qx{../src/task rc:pro.rc add four pro:'foo' 2>&1 >/dev/null};
like ($output, qr/The project 'foo' has changed\. Project 'foo' is 0% complete \(4 of 4 tasks remaining\)\./, 'add four');
$output = qx{../src/task rc:$rc add four pro:'foo' 2>&1 >/dev/null};
like ($output, qr/The project 'foo' has changed\. Project 'foo' is 0% complete \(4 of 4 tasks remaining\)\./, "$ut: add four");
$output = qx{../src/task rc:pro.rc 1 done 2>&1 >/dev/null};
like ($output, qr/Project 'foo' is 25% complete \(3 of 4 tasks remaining\)\./, 'done one');
$output = qx{../src/task rc:$rc 1 done 2>&1 >/dev/null};
like ($output, qr/Project 'foo' is 25% complete \(3 of 4 tasks remaining\)\./, "$ut: done one");
$output = qx{../src/task rc:pro.rc 2 delete 2>&1 >/dev/null};
like ($output, qr/The project 'foo' has changed\. Project 'foo' is 33% complete \(2 of 3 tasks remaining\)\./, 'delete two');
$output = qx{../src/task rc:$rc 2 delete 2>&1 >/dev/null};
like ($output, qr/The project 'foo' has changed\. Project 'foo' is 33% complete \(2 of 3 tasks remaining\)\./, "$ut: delete two");
$output = qx{../src/task rc:pro.rc 3 modify pro:bar 2>&1 >/dev/null};
like ($output, qr/The project 'foo' has changed\. Project 'foo' is 50% complete \(1 of 2 tasks remaining\)\./, 'change project');
like ($output, qr/The project 'bar' has changed\. Project 'bar' is 0% complete \(1 of 1 tasks remaining\)\./, 'change project');
$output = qx{../src/task rc:$rc 3 modify pro:bar 2>&1 >/dev/null};
like ($output, qr/The project 'foo' has changed\. Project 'foo' is 50% complete \(1 task remaining\)\./, "$ut: change project");
like ($output, qr/The project 'bar' has changed\. Project 'bar' is 0% complete \(1 task remaining\)\./, "$ut: change project");
# Test projects with spaces in them.
$output = qx{../src/task rc:pro.rc 3 modify pro:"foo bar" 2>&1 >/dev/null};
like ($output, qr/The project 'foo bar' has changed\./, 'project with spaces');
$output = qx{../src/task rc:$rc 3 modify pro:"foo bar" 2>&1 >/dev/null};
like ($output, qr/The project 'foo bar' has changed\./, "$ut: project with spaces");
# Bug 1056: Project indentation.
# see also the tests of helper functions for CmdProjects in util.t.cpp
qx{../src/task rc:pro.rc add testing project:existingParent 2>&1 >/dev/null};
qx{../src/task rc:pro.rc add testing project:existingParent.child 2>&1 >/dev/null};
qx{../src/task rc:pro.rc add testing project:abstractParent.kid 2>&1 >/dev/null};
qx{../src/task rc:pro.rc add testing project:.myProject 2>&1 >/dev/null};
qx{../src/task rc:pro.rc add testing project:myProject. 2>&1 >/dev/null};
qx{../src/task rc:pro.rc add testing project:.myProject. 2>&1 >/dev/null};
qx{../src/task rc:$rc add testing project:existingParent 2>&1 >/dev/null};
qx{../src/task rc:$rc add testing project:existingParent.child 2>&1 >/dev/null};
qx{../src/task rc:$rc add testing project:abstractParent.kid 2>&1 >/dev/null};
qx{../src/task rc:$rc add testing project:.myProject 2>&1 >/dev/null};
qx{../src/task rc:$rc add testing project:myProject. 2>&1 >/dev/null};
qx{../src/task rc:$rc add testing project:.myProject. 2>&1 >/dev/null};
$output = qx{../src/task rc:pro.rc projects 2>&1};
$output = qx{../src/task rc:$rc projects 2>&1};
my @lines = split ('\n',$output);
# It's easier to make a pattern for the end than the beginning because priority
@@ -91,7 +95,7 @@ else
{
$project_name_column = "error";
}
like ($project_name_column, qr/^\.myProject\s*$/, '\'.myProject\' not indented');
like ($project_name_column, qr/^\.myProject\s*$/, "$ut: '.myProject' not indented");
if ($lines[5] =~ s/\d+$//)
{
@@ -101,7 +105,7 @@ else
{
$project_name_column = "error";
}
like ($project_name_column, qr/^\.myProject\.\s*$/, '\'.myProject.\' not indented');
like ($project_name_column, qr/^\.myProject\.\s*$/, "$ut: '.myProject.' not indented");
if ($lines[6] =~ s/\d+$//)
{
@@ -111,7 +115,7 @@ else
{
$project_name_column = $lines[6];
}
like ($project_name_column, qr/^abstractParent\s*$/, 'abstract parent not indented and no priority columns');
like ($project_name_column, qr/^abstractParent\s*$/, "$ut: abstract parent not indented and no priority columns");
if ($lines[7] =~ s/\d+$//)
{
@@ -121,7 +125,7 @@ else
{
$project_name_column = "error";
}
like ($project_name_column, qr/^ kid\s*$/, 'child indented and without parent name');
like ($project_name_column, qr/^ kid\s*$/, "$ut: child indented and without parent name");
if ($lines[8] =~ s/\d+$//)
{
@@ -131,7 +135,7 @@ else
{
$project_name_column = "error";
}
like ($project_name_column, qr/^existingParent\s*$/, 'existing parent not indented and has priority columns');
like ($project_name_column, qr/^existingParent\s*$/, "$ut: existing parent not indented and has priority columns");
if ($lines[9] =~ s/\d+$//)
{
@@ -141,7 +145,7 @@ else
{
$project_name_column = "error";
}
like ($project_name_column, qr/^ child\s*$/, 'child of existing parent indented and without parent name');
like ($project_name_column, qr/^ child\s*$/, "$ut: child of existing parent indented and without parent name");
if ($lines[12] =~ s/\d+$//)
{
@@ -151,9 +155,9 @@ else
{
$project_name_column = "error";
}
like ($project_name_column, qr/^myProject\.\s*$/, '\'myProject.\' not indented');
like ($project_name_column, qr/^myProject\.\s*$/, "$ut: 'myProject.' not indented");
# Cleanup.
unlink qw(pending.data completed.data undo.data backlog.data pro.rc);
unlink qw(pending.data completed.data undo.data backlog.data), $rc;
exit 0;