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

Unit Tests

Browse Source 
- Modified testing to accomodate new split between stdout/stderr.
This commit is contained in:
Paul Beckingham
2012-07-03 15:43:19 -04:00
parent 75822eed47
commit da575c4043
185 changed files with 1591 additions and 1591 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
test/duplicate2.t
View File

@@ -39,35 +39,35 @@ if (open my $fh, '>', 'dup.rc')
}
# Add a recurring task. Duplicate both parent and child.
qx{../src/task rc:dup.rc add R due:tomorrow recur:weekly};
qx{../src/task rc:dup.rc list}; # To force handleRecurrence.
my $output = qx{../src/task rc:dup.rc 1 info};
qx{../src/task rc:dup.rc add R due:tomorrow recur:weekly 2>&1};
qx{../src/task rc:dup.rc list 2>&1}; # To force handleRecurrence.
my $output = qx{../src/task rc:dup.rc 1 info 2>&1};
like ($output, qr/Status\s+Recurring/, 'Found parent');
$output = qx{../src/task rc:dup.rc 2 info};
$output = qx{../src/task rc:dup.rc 2 info 2>&1};
like ($output, qr/Status\s+Pending/, 'Found child');
$output = qx{../src/task rc:dup.rc 1 duplicate};
$output = qx{../src/task rc:dup.rc 1 duplicate 2>&1};
like ($output, qr/The duplicated task is too/, 'Duplicated parent is also a parent');
$output = qx{../src/task rc:dup.rc 2 duplicate};
$output = qx{../src/task rc:dup.rc 2 duplicate 2>&1};
like ($output, qr/The duplicated task is not/, 'Duplicated child is also a plain task');
qx{../src/task rc:dup.rc list}; # To force handleRecurrence.
$output = qx{../src/task rc:dup.rc 1 info};
qx{../src/task rc:dup.rc list 2>&1}; # To force handleRecurrence.
$output = qx{../src/task rc:dup.rc 1 info 2>&1};
like ($output, qr/Status\s+Recurring/, 'Found original parent task');
$output = qx{../src/task rc:dup.rc 2 info};
$output = qx{../src/task rc:dup.rc 2 info 2>&1};
like ($output, qr/Status\s+Pending/, 'Found original child task - pending');
like ($output, qr/Parent/, 'Found original child task - with parent');
$output = qx{../src/task rc:dup.rc 3 info};
$output = qx{../src/task rc:dup.rc 3 info 2>&1};
like ($output, qr/Status\s+Recurring/, 'Found duplicated parent task');
$output = qx{../src/task rc:dup.rc 4 info};
$output = qx{../src/task rc:dup.rc 4 info 2>&1};
like ($output, qr/Status\s+Pending/, 'Found duplicated plain task');
unlike ($output, qr/Parent/, 'Found duplicated child task - no parent');
$output = qx{../src/task rc:dup.rc 5 info};
$output = qx{../src/task rc:dup.rc 5 info 2>&1};
like ($output, qr/Status\s+Pending/, 'Found duplicated child task');
like ($output, qr/Parent/, 'Found duplicated child task - with parent');