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

12
test/duplicate.t
View File

@@ -39,16 +39,16 @@ if (open my $fh, '>', 'dup.rc')
}
# Test the duplicate command.
qx{../src/task rc:dup.rc add foo};
qx{../src/task rc:dup.rc 1 duplicate};
my $output = qx{../src/task rc:dup.rc info 2};
qx{../src/task rc:dup.rc add foo 2>&1};
qx{../src/task rc:dup.rc 1 duplicate 2>&1};
my $output = qx{../src/task rc:dup.rc info 2 2>&1};
like ($output, qr/ID\s+2/, 'duplicate new id');
like ($output, qr/Status\s+Pending/, 'duplicate same status');
like ($output, qr/Description\s+foo/, 'duplicate same description');
# Test the en passant modification while duplicating.
qx{../src/task rc:dup.rc 1 duplicate priority:H /foo/FOO/ +tag};
$output = qx{../src/task rc:dup.rc info 3};
qx{../src/task rc:dup.rc 1 duplicate priority:H /foo/FOO/ +tag 2>&1};
$output = qx{../src/task rc:dup.rc info 3 2>&1};
like ($output, qr/ID\s+3/, 'duplicate new id');
like ($output, qr/Status\s+Pending/, 'duplicate same status');
like ($output, qr/Description\s+FOO/, 'duplicate modified description');
@@ -56,7 +56,7 @@ like ($output, qr/Priority\s+H/, 'duplicate added priority');
like ($output, qr/Tags\s+tag/, 'duplicate added tag');
# Test the output of the duplicate command - returning id of duplicated task
$output = qx{../src/task rc:dup.rc 1 duplicate};
$output = qx{../src/task rc:dup.rc 1 duplicate 2>&1};
like ($output, qr/Duplicated\stask\s1\s'foo'/, 'duplicate output task id and description');
like ($output, qr/Created\s+task\s+4/, 'duplicate output of new task id');