mirror of
https://github.com/GothenburgBitFactory/taskwarrior.git
synced 2025-08-22 20:23:09 +02:00
Unit Tests
- Modified testing to accomodate new split between stdout/stderr.
This commit is contained in:
Paul Beckingham
parent
75822eed47
commit
da575c4043
185 changed files with 1591 additions and 1591 deletions
|
|
@ -45,8 +45,8 @@ if (open my $fh, '>', 'dep.rc')
|
|||
ok (-r 'dep.rc', 'Created dep.rc');
|
||||
}
|
||||
|
||||
qx{../src/task rc:dep.rc add One};
|
||||
qx{../src/task rc:dep.rc add Two};
|
||||
qx{../src/task rc:dep.rc add One 2>&1};
|
||||
qx{../src/task rc:dep.rc add Two 2>&1};
|
||||
|
||||
# [2]
|
||||
my $output = qx{../src/task rc:dep.rc 1 modify dep:-2 2>&1 >/dev/null};
|
||||
|
|
@ -61,12 +61,12 @@ $output = qx{../src/task rc:dep.rc 99 modify dep:1 2>&1 >/dev/null};
|
|||
like ($output, qr/No tasks specified\./, 'dependencies - add dependency to nonexistent task');
|
||||
|
||||
# [5,6] t 1 dep:2; t info 1 => blocked by 2
|
||||
$output = qx{../src/task rc:dep.rc 1 modify dep:2; ../src/task rc:dep.rc info 1};
|
||||
$output = qx{../src/task rc:dep.rc 1 modify dep:2 2>&1; ../src/task rc:dep.rc info 1 2>&1};
|
||||
like ($output, qr/This task blocked by\s+2 Two\nUUID/, 'dependencies - trivial blocked');
|
||||
unlike ($output, qr/This task is blocking\n/, 'dependencies - trivial blocked');
|
||||
|
||||
# [7,8] t info 2 => blocking 1
|
||||
$output = qx{../src/task rc:dep.rc info 2};
|
||||
$output = qx{../src/task rc:dep.rc info 2 2>&1};
|
||||
unlike ($output, qr/This task blocked by/, 'dependencies - trivial blocking');
|
||||
like ($output, qr/This task is blocking\s+1 One\nUUID/, 'dependencies - trivial blocking');
|
||||
|
||||
|
|
@ -85,10 +85,10 @@ like ($output, qr/Circular dependency detected and disallowed\./, 'dependencie
|
|||
unlike ($output, qr/Modified 1 task\./, 'dependencies - trivial circular');
|
||||
|
||||
# [14,15] t 1 dep:2; t 2 dep:3; t 1 dep:3 => not circular
|
||||
qx{../src/task rc:dep.rc 1 modify dep:2};
|
||||
qx{../src/task rc:dep.rc add Three};
|
||||
qx{../src/task rc:dep.rc 2 modify dep:3};
|
||||
$output = qx{../src/task rc:dep.rc 1 modify dep:3};
|
||||
qx{../src/task rc:dep.rc 1 modify dep:2 2>&1};
|
||||
qx{../src/task rc:dep.rc add Three 2>&1};
|
||||
qx{../src/task rc:dep.rc 2 modify dep:3 2>&1};
|
||||
$output = qx{../src/task rc:dep.rc 1 modify dep:3 2>&1};
|
||||
unlike ($output, qr/Circular dependency detected and disallowed\./, 'dependencies - diamond, non-circular');
|
||||
like ($output, qr/Modified 1 task\./, 'dependencies - diamond, non-circular');
|
||||
|
||||
|
|
@ -96,13 +96,13 @@ like ($output, qr/Modified 1 task\./, 'dependencie
|
|||
unlink 'pending.data';
|
||||
ok (!-r 'pending.data', 'Removed pending.data for a fresh start');
|
||||
|
||||
qx{../src/task rc:dep.rc add One};
|
||||
qx{../src/task rc:dep.rc add Two};
|
||||
qx{../src/task rc:dep.rc add Three};
|
||||
qx{../src/task rc:dep.rc add Four};
|
||||
qx{../src/task rc:dep.rc add Five};
|
||||
qx{../src/task rc:dep.rc add One 2>&1};
|
||||
qx{../src/task rc:dep.rc add Two 2>&1};
|
||||
qx{../src/task rc:dep.rc add Three 2>&1};
|
||||
qx{../src/task rc:dep.rc add Four 2>&1};
|
||||
qx{../src/task rc:dep.rc add Five 2>&1};
|
||||
|
||||
qx{../src/task rc:dep.rc 5 modify dep:4; ../src/task rc:dep.rc 4 modify dep:3; ../src/task rc:dep.rc 3 modify dep:2; ../src/task rc:dep.rc 2 modify dep:1};
|
||||
qx{../src/task rc:dep.rc 5 modify dep:4 2>&1; ../src/task rc:dep.rc 4 modify dep:3 2>&1; ../src/task rc:dep.rc 3 modify dep:2 2>&1; ../src/task rc:dep.rc 2 modify dep:1 2>&1};
|
||||
|
||||
# [17,18] 5 dep 4 dep 3 dep 2 dep 1 dep 5 => error
|
||||
$output = qx{../src/task rc:dep.rc 1 modify dep:5 2>&1 >/dev/null};
|
||||
|
|
@ -113,108 +113,108 @@ unlike ($output, qr/Modified 1 task\./, 'dependencie
|
|||
unlink 'pending.data';
|
||||
ok (!-r 'pending.data', 'Removed pending.data for a fresh start');
|
||||
|
||||
qx{../src/task rc:dep.rc add One};
|
||||
qx{../src/task rc:dep.rc add Two};
|
||||
qx{../src/task rc:dep.rc add Three};
|
||||
qx{../src/task rc:dep.rc add Four};
|
||||
qx{../src/task rc:dep.rc add Five};
|
||||
qx{../src/task rc:dep.rc add Six recurring due:tomorrow recur:daily};
|
||||
qx{../src/task rc:dep.rc add One 2>&1};
|
||||
qx{../src/task rc:dep.rc add Two 2>&1};
|
||||
qx{../src/task rc:dep.rc add Three 2>&1};
|
||||
qx{../src/task rc:dep.rc add Four 2>&1};
|
||||
qx{../src/task rc:dep.rc add Five 2>&1};
|
||||
qx{../src/task rc:dep.rc add Six recurring due:tomorrow recur:daily 2>&1};
|
||||
|
||||
# [20]
|
||||
qx{../src/task rc:dep.rc ls}; # To force handleRecurrence call.
|
||||
$output = qx{echo 'y' | ../src/task rc:dep.rc 6 modify dep:5};
|
||||
qx{../src/task rc:dep.rc ls 2>&1}; # To force handleRecurrence call.
|
||||
$output = qx{echo 'y' | ../src/task rc:dep.rc 6 modify dep:5 2>&1};
|
||||
like ($output, qr/Modified \d+ task/, 'dependencies - recurring task depending on another task');
|
||||
|
||||
# [21]
|
||||
$output = qx{../src/task rc:dep.rc 4 modify dep:5};
|
||||
$output = qx{../src/task rc:dep.rc 4 modify dep:5 2>&1};
|
||||
like ($output, qr/Modified \d+ task/, 'dependencies - task depending on recurring task');
|
||||
|
||||
# [22] t 1 dep:2,3,4; t 1 dep:-2,-4,5; t info 1 => blocked by 3,5
|
||||
$output = qx{../src/task rc:dep.rc 1 modify dep:2,3,4; ../src/task rc:dep.rc 1 modify dep:-2,-4,5; ../src/task rc:dep.rc info 1};
|
||||
$output = qx{../src/task rc:dep.rc 1 modify dep:2,3,4 2>&1; ../src/task rc:dep.rc 1 modify dep:-2,-4,5 2>&1; ../src/task rc:dep.rc info 1 2>&1};
|
||||
like ($output, qr/This task blocked by\s+3 Three\n\s+5 Five\nUUID/, 'dependencies - multiple dependencies modified');
|
||||
|
||||
# [23,24]
|
||||
$output = qx{../src/task rc:dep.rc 3,5 do; ../src/task rc:dep.rc info 1};
|
||||
$output = qx{../src/task rc:dep.rc 3,5 do 2>&1; ../src/task rc:dep.rc info 1 2>&1};
|
||||
unlike ($output, qr/This task blocked by/, 'dependencies - task info reflects completed dependencies');
|
||||
unlike ($output, qr/This task is blocking/, 'dependencies - task info reflects completed dependencies');
|
||||
|
||||
# [25]
|
||||
$output = qx{../src/task rc:dep.rc depreport};
|
||||
$output = qx{../src/task rc:dep.rc depreport 2>&1};
|
||||
like ($output, qr/\s1\s+One\s+/, 'dependencies - depends report column reflects completed dependencies');
|
||||
|
||||
# [26]
|
||||
unlink 'pending.data';
|
||||
ok (!-r 'pending.data', 'Removed pending.data for a fresh start');
|
||||
|
||||
qx{../src/task rc:dep.rc add One};
|
||||
qx{../src/task rc:dep.rc add Two};
|
||||
qx{../src/task rc:dep.rc add Three};
|
||||
qx{../src/task rc:dep.rc add Four};
|
||||
qx{../src/task rc:dep.rc add One 2>&1};
|
||||
qx{../src/task rc:dep.rc add Two 2>&1};
|
||||
qx{../src/task rc:dep.rc add Three 2>&1};
|
||||
qx{../src/task rc:dep.rc add Four 2>&1};
|
||||
|
||||
qx{../src/task rc:dep.rc 1 modify dep:3,4};
|
||||
qx{../src/task rc:dep.rc 2 do};
|
||||
qx{../src/task rc:dep.rc 1 modify dep:3,4 2>&1};
|
||||
qx{../src/task rc:dep.rc 2 do 2>&1};
|
||||
|
||||
# [27]
|
||||
$output = qx{../src/task rc:dep.rc depreport};
|
||||
$output = qx{../src/task rc:dep.rc depreport 2>&1};
|
||||
like ($output, qr/\s1\s+2 3\s+One\s+/, 'dependencies - depends report column reflects changed IDs');
|
||||
|
||||
# [28]
|
||||
qx{../src/task rc:dep.rc 3 do};
|
||||
$output = qx{../src/task rc:dep.rc depreport};
|
||||
qx{../src/task rc:dep.rc 3 do 2>&1};
|
||||
$output = qx{../src/task rc:dep.rc depreport 2>&1};
|
||||
like ($output, qr/\s1\s+2\s+One\s+/, 'dependencies - depends report column reflects completed dependencies');
|
||||
|
||||
# [29]
|
||||
unlink 'pending.data';
|
||||
ok (!-r 'pending.data', 'Removed pending.data for a fresh start');
|
||||
|
||||
qx{../src/task rc:dep.rc add One};
|
||||
qx{../src/task rc:dep.rc add Two};
|
||||
qx{../src/task rc:dep.rc add Three};
|
||||
qx{../src/task rc:dep.rc add Four};
|
||||
qx{../src/task rc:dep.rc add One 2>&1};
|
||||
qx{../src/task rc:dep.rc add Two 2>&1};
|
||||
qx{../src/task rc:dep.rc add Three 2>&1};
|
||||
qx{../src/task rc:dep.rc add Four 2>&1};
|
||||
|
||||
qx{../src/task rc:dep.rc 2 modify dep:1; ../src/task rc:dep.rc 3 modify dep:2; ../src/task rc:dep.rc 4 modify dep:3};
|
||||
qx{../src/task rc:dep.rc 2 modify dep:1 2>&1; ../src/task rc:dep.rc 3 modify dep:2 2>&1; ../src/task rc:dep.rc 4 modify dep:3 2>&1};
|
||||
|
||||
# [30,31]
|
||||
$output = qx{echo 'y' | ../src/task rc:dep.rc 2 do};
|
||||
$output = qx{echo 'y' | ../src/task rc:dep.rc 2 do 2>&1};
|
||||
like ($output, qr/fixed/, 'dependencies - user prompted to fix broken chain after completing a blocked task');
|
||||
like ($output, qr/is blocked by/, 'dependencies - user nagged for completing a blocked task');
|
||||
|
||||
# [32]
|
||||
$output = qx{echo 'y' | ../src/task rc:dep.rc 1 do};
|
||||
$output = qx{echo 'y' | ../src/task rc:dep.rc 1 do 2>&1};
|
||||
unlike ($output, qr/fixed/, 'dependencies - user not prompted to fix broken chain when the head of the chain is marked as complete');
|
||||
|
||||
# [33]
|
||||
$output = qx{echo 'y' | ../src/task rc:dep.rc 4 del};
|
||||
$output = qx{echo 'y' | ../src/task rc:dep.rc 4 del 2>&1};
|
||||
unlike ($output, qr/fixed/, 'dependencies - user not prompted to fix broken chain when the tail of the chain is deleted');
|
||||
|
||||
# [34]
|
||||
unlink 'pending.data';
|
||||
ok (!-r 'pending.data', 'Removed pending.data for a fresh start');
|
||||
|
||||
qx{../src/task rc:dep.rc add One};
|
||||
qx{../src/task rc:dep.rc add Two};
|
||||
qx{../src/task rc:dep.rc add Three};
|
||||
qx{../src/task rc:dep.rc add Four};
|
||||
qx{../src/task rc:dep.rc add Five};
|
||||
qx{../src/task rc:dep.rc add One 2>&1};
|
||||
qx{../src/task rc:dep.rc add Two 2>&1};
|
||||
qx{../src/task rc:dep.rc add Three 2>&1};
|
||||
qx{../src/task rc:dep.rc add Four 2>&1};
|
||||
qx{../src/task rc:dep.rc add Five 2>&1};
|
||||
|
||||
qx{../src/task rc:dep.rc 2 modify dep:1};
|
||||
qx{../src/task rc:dep.rc 3 modify dep:2};
|
||||
qx{../src/task rc:dep.rc 4 modify dep:3};
|
||||
qx{../src/task rc:dep.rc 5 modify dep:4};
|
||||
qx{../src/task rc:dep.rc 2 modify dep:1 2>&1};
|
||||
qx{../src/task rc:dep.rc 3 modify dep:2 2>&1};
|
||||
qx{../src/task rc:dep.rc 4 modify dep:3 2>&1};
|
||||
qx{../src/task rc:dep.rc 5 modify dep:4 2>&1};
|
||||
|
||||
# [35]
|
||||
qx{echo 'y' | ../src/task rc:dep.rc 2 do};
|
||||
$output = qx{../src/task rc:dep.rc depreport};
|
||||
qx{echo 'y' | ../src/task rc:dep.rc 2 do 2>&1};
|
||||
$output = qx{../src/task rc:dep.rc depreport 2>&1};
|
||||
like ($output, qr/\s1\s+One\s*\n\s2\s+1\s+Three\s*\n\s3\s+2\s+Four\s*\n\s4\s+3\s+Five/, 'dependencies - fixed chain after completing a blocked task');
|
||||
|
||||
# [36]
|
||||
qx{echo "Y\nY\n" | ../src/task rc:dep.rc 2 del};
|
||||
$output = qx{../src/task rc:dep.rc depreport};
|
||||
qx{echo "Y\nY\n" | ../src/task rc:dep.rc 2 del 2>&1};
|
||||
$output = qx{../src/task rc:dep.rc depreport 2>&1};
|
||||
like ($output, qr/\s1\s+One\s*\n\s2\s+1\s+Four\s*\n\s3\s+2\s+Five/, 'dependencies - fixed chain after deleting a blocked task');
|
||||
|
||||
# [37]
|
||||
qx{../src/task rc:dep.rc 2 modify dep:-1};
|
||||
$output = qx{../src/task rc:dep.rc depreport};
|
||||
qx{../src/task rc:dep.rc 2 modify dep:-1 2>&1};
|
||||
$output = qx{../src/task rc:dep.rc depreport 2>&1};
|
||||
like ($output, qr/\s1\s+One\s*\n\s2\s+Four\s*\n\s3\s+2\s+Five/, 'dependencies - chain should not be automatically repaired after manually removing a dependency');
|
||||
|
||||
# [38]
|
||||
|
|
@ -224,17 +224,17 @@ ok (!-r 'pending.data', 'Removed pending.data for a fresh start');
|
|||
# Bug when adding a range of dependencies - 'task 3 mod dep:1-2' interprets the
|
||||
# range 1-2 as the id 1
|
||||
|
||||
qx{../src/task rc:dep.rc add test1};
|
||||
qx{../src/task rc:dep.rc add test2};
|
||||
qx{../src/task rc:dep.rc add test3};
|
||||
qx{../src/task rc:dep.rc add test4};
|
||||
qx{../src/task rc:dep.rc add test5};
|
||||
my $output = qx{../src/task rc:dep.rc 5 info};
|
||||
qx{../src/task rc:dep.rc add test1 2>&1};
|
||||
qx{../src/task rc:dep.rc add test2 2>&1};
|
||||
qx{../src/task rc:dep.rc add test3 2>&1};
|
||||
qx{../src/task rc:dep.rc add test4 2>&1};
|
||||
qx{../src/task rc:dep.rc add test5 2>&1};
|
||||
$output = qx{../src/task rc:dep.rc 5 info 2>&1};
|
||||
my ($uuid) = $output =~ /UUID\s+(\S+)/;
|
||||
|
||||
# [39-43] test a comma-separated list of IDs, UUIDs, and ID ranges for creation
|
||||
qx{../src/task rc:dep.rc add test6 dep:1-3,4,$uuid};
|
||||
$output = qx{../src/task rc:dep.rc 6 info};
|
||||
qx{../src/task rc:dep.rc add test6 dep:1-3,4,$uuid 2>&1};
|
||||
$output = qx{../src/task rc:dep.rc 6 info 2>&1};
|
||||
like ($output, qr/test1/ms, 'Dependency appearing for task1');
|
||||
like ($output, qr/test2/ms, 'Dependency appearing for task2');
|
||||
like ($output, qr/test3/ms, 'Dependency appearing for task3');
|
||||
|
|
@ -242,8 +242,8 @@ like ($output, qr/test4/ms, 'Dependency appearing for task4');
|
|||
like ($output, qr/test5/ms, 'Dependency appearing for task5');
|
||||
|
||||
# [44-48] test a comma-separated list of IDs, UUIDs, and ID ranges for deletion
|
||||
qx{../src/task rc:dep.rc 6 mod dep:-1-3,-4,-$uuid};
|
||||
$output = qx{../src/task rc:dep.rc 6 info};
|
||||
qx{../src/task rc:dep.rc 6 mod dep:-1-3,-4,-$uuid 2>&1};
|
||||
$output = qx{../src/task rc:dep.rc 6 info 2>&1};
|
||||
unlike ($output, qr/test1/ms, 'Dependency not appearing for task1');
|
||||
unlike ($output, qr/test2/ms, 'Dependency not appearing for task2');
|
||||
unlike ($output, qr/test3/ms, 'Dependency not appearing for task3');
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue